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

Removed obsolete file systems. 

Improved text (hopefully).

Fixed Content-Type.
This commit is contained in:
hjp 2004-09-27 08:46:15 +00:00
parent 002657d522
commit 6b9f79a261
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
quotacheck/quotacheck.pl
View File

@ -10,9 +10,7 @@ my $hostname;
sub warnmsg { sub warnmsg {
my ($mount, $usage, $soft, $hard, $grace, $unit, $user) = @_; my ($mount, $usage, $soft, $hard, $grace, $unit, $user) = @_;
my %dosdrv = ( my %dosdrv = (
'/wifosv/dosprogs' => 'H:',
'/wsrdb/users' => 'J:', '/wsrdb/users' => 'J:',
'/wifosv/users' => 'K:',
'/usr/local/www' => 'W:', '/usr/local/www' => 'W:',
); );
@ -44,13 +42,15 @@ sub warnmsg {
"\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://sww.wsr.ac.at/intranet/quotas/$user$mount_t.gif ansehen. \n" .
"Die Quotas die Sie verwendet haben werden rot angezeigt. Außerdem zeigen\n" . "Der Graph zeigten den verbrauchten Platz ("used") sowie die beiden\n" .
"die Softquotas, die Grenze an, die Sie überschritten haben und die Hardquotas\n" . "Quotas ("soft" und "hard")\n" .
"die Obergrenze, die Sie nicht überschreiten können. \n" . "Die Softquota können Sie kurzfristig (bis zu einer Woche) überschreiten\n" .
"die Hardquota nicht.\n" .
"\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" . "Peter Holzer, hjp\@wsr.ac.at, Kl. 786\n" .
"Gina Lanik, gina\@wsr.ac.at, Kl. 738\n" .
"Michael Demelbauer, michael\@wsr.ac.at, Kl. 787\n"; "Michael Demelbauer, michael\@wsr.ac.at, Kl. 787\n";
return $msg; return $msg;
} }
@ -79,13 +79,16 @@ sub sendmail
} }
if ($opts{'a'}) { if ($opts{'a'}) {
print SENDMAIL "To: <system\@wsr.ac.at>\r\n"; print SENDMAIL "To: <system\@wsr.ac.at>\r\n";
print SENDMAIL "Subject: User $user: Disk Quotas überschritten\r\n"; print SENDMAIL "Subject: User $user: Disk Quotas =?iso-8859-1?Q?=FCberschritten?=\r\n";
} else { } else {
print SENDMAIL "To: <$user\@wsr.ac.at>\r\n"; print SENDMAIL "To: <$user\@wsr.ac.at>\r\n";
print SENDMAIL "Cc: <system\@wsr.ac.at>\r\n"; print SENDMAIL "Cc: <system\@wsr.ac.at>\r\n";
print SENDMAIL "Subject: Disk Quotas überschritten\r\n"; print SENDMAIL "Subject: Disk Quotas =?iso-8859-1?Q?=FCberschritten?=\r\n";
} }
print SENDMAIL "MIME-Version: 1.0\r\n";
print SENDMAIL "Content-Type: text/plain; charset=iso-8859-1\r\n";
print SENDMAIL "Content-Encoding: 8bit\r\n";
print SENDMAIL "Reply-To: <system\@wsr.ac.at>\r\n"; print SENDMAIL "Reply-To: <system\@wsr.ac.at>\r\n";
print SENDMAIL "\r\n"; print SENDMAIL "\r\n";
print SENDMAIL "$msg\r\n"; print SENDMAIL "$msg\r\n";