Changed to use new intranet.
Added some notes on redesign.
This commit is contained in:
parent
060b616766
commit
89bbb2d768
|
@ -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.
|
||||||
|
|
|
@ -43,7 +43,7 @@ sub warnmsg {
|
||||||
"andere Netzplatte verschieben.\n" .
|
"andere Netzplatte verschieben.\n" .
|
||||||
"\n" .
|
"\n" .
|
||||||
"Sie können sich Ihre Verbrauchsgraphen unter\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" .
|
"Der Graph zeigten den verbrauchten Platz ('used') sowie die beiden\n" .
|
||||||
"Quotas ('soft' und 'hard')\n" .
|
"Quotas ('soft' und 'hard')\n" .
|
||||||
"Die Softquota können Sie kurzfristig (bis zu einer Woche) überschreiten,\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) {
|
if (system (@startgraph) != 0) {
|
||||||
die "cannot execute @startgraph";
|
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) {
|
if (!-e $timestamp) {
|
||||||
sendmail($user, $msg, $mount);
|
sendmail($user, $msg, $mount);
|
||||||
|
|
Loading…
Reference in New Issue