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

Moved myself into the second row. 

Don't send message every hour unless less than 20 hours left.
This commit is contained in:
hjp 2006-11-16 08:43:07 +00:00
parent dfa2f8c764
commit f347d67dcf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
quotacheck/quotacheck.pl
View File

@ -54,8 +54,8 @@ sub warnmsg {
"\n" . "\n" .
"Lassen Sie sich bei Gelegenheit auch von einem der zuständigen\n" . "Lassen Sie sich bei Gelegenheit auch von einem der zuständigen\n" .
"Systemadministratoren unterstützen:\n" . "Systemadministratoren unterstützen:\n" .
"Peter Holzer, hjp\@wsr.ac.at, Kl. 786\n" .
"Gina Lanik, gina\@wsr.ac.at, Kl. 738\n" . "Gina Lanik, gina\@wsr.ac.at, Kl. 738\n" .
"Peter Holzer, hjp\@wsr.ac.at, Kl. 786\n" .
"Michael Demelbauer, michael\@wsr.ac.at, Kl. 787\n"; "Michael Demelbauer, michael\@wsr.ac.at, Kl. 787\n";
my $timestamp = "/usr/local/dfstat/quotacheck-timestamps/$user:$mount_t:$sunit"; my $timestamp = "/usr/local/dfstat/quotacheck-timestamps/$user:$mount_t:$sunit";
@ -73,6 +73,7 @@ sub warnmsg {
if ($comp > 5) { if ($comp > 5) {
my $msg1 = $msg; my $msg1 = $msg;
$msg1 =~ s/( noch \d)([.\d]*)( MB )/$1 . "x" x length($2) . $3/e; $msg1 =~ s/( noch \d)([.\d]*)( MB )/$1 . "x" x length($2) . $3/e;
$msg1 =~ s/(kurzfristig \(noch )([2-9])\d:\d\d\)/$1${2}0:00) /;
my $digest = md5_hex($msg1); my $digest = md5_hex($msg1);
unless (-f "/var/tmp/quotacheck/$digest") { unless (-f "/var/tmp/quotacheck/$digest") {
sendmail($user, $msg, $mount); sendmail($user, $msg, $mount);