hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changed to use new intranet. 

Added some notes on redesign.
This commit is contained in:
hjp 2005-03-29 10:53:05 +00:00
parent 060b616766
commit 89bbb2d768
2 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
quotacheck/Notes Normal file
View File

@ -0,0 +1,22 @@
Change to use statemachine:
States:
ok
soft
soft-urgent
hard
ok-again
soft-urgent is soft, but expiry is < $n$ hours (48?) away.
All non-ok states revert to ok-again. ok-again turns into
ok after $n$ hours (168?).
Notifications are sent on all state transitions except
ok->ok-again and periodically in the states soft-urgent and
hard.
The message text reflects the different states.
The graph is updated in all states except ok.

4
quotacheck/quotacheck.pl
View File

@ -43,7 +43,7 @@ sub warnmsg {
"andere Netzplatte verschieben.\n" .
"\n" .
"Sie können sich Ihre Verbrauchsgraphen unter\n" .
"http://sww.wsr.ac.at/intranet/quotas/$user$mount_t.gif ansehen. \n" .
"http://intra.wsr.ac.at/informationssysteme/quotas/$user$mount_t.gif ansehen. \n" .
"Der Graph zeigten den verbrauchten Platz ('used') sowie die beiden\n" .
"Quotas ('soft' und 'hard')\n" .
"Die Softquota können Sie kurzfristig (bis zu einer Woche) überschreiten,\n" .
@ -175,7 +175,7 @@ for my $ln (@df) {
if (system (@startgraph) != 0) {
die "cannot execute @startgraph";
}
system("@@@scp@@@", "/usr/local/www/wsr/intranet/quotas/$user$mount_t.gif", "sww.wsr.ac.at:/usr/local/www/wsr/intranet/quotas/$user$mount_t.gif");
system("@@@scp@@@", "/usr/local/www//wsr/intranet/quotas/$user$mount_t.gif", "intra.wsr.ac.at:/usr/local/www/intra/informationssysteme/quotas/$user$mount_t.gif");
if (!-e $timestamp) {
sendmail($user, $msg, $mount);