From 6b9f79a2613eb06bf2336e383e883601393a8a4a Mon Sep 17 00:00:00 2001 From: hjp Date: Mon, 27 Sep 2004 08:46:15 +0000 Subject: [PATCH] Removed obsolete file systems. Improved text (hopefully). Fixed Content-Type. --- quotacheck/quotacheck.pl | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/quotacheck/quotacheck.pl b/quotacheck/quotacheck.pl index bbde4c7..b5be6a7 100644 --- a/quotacheck/quotacheck.pl +++ b/quotacheck/quotacheck.pl @@ -10,9 +10,7 @@ my $hostname; sub warnmsg { my ($mount, $usage, $soft, $hard, $grace, $unit, $user) = @_; my %dosdrv = ( - '/wifosv/dosprogs' => 'H:', '/wsrdb/users' => 'J:', - '/wifosv/users' => 'K:', '/usr/local/www' => 'W:', ); @@ -44,13 +42,15 @@ sub warnmsg { "\n" . "Sie können sich Ihre Verbrauchsgraphen unter\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" . - "die Softquotas, die Grenze an, die Sie überschritten haben und die Hardquotas\n" . - "die Obergrenze, die Sie nicht überschreiten können. \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" . + "die Hardquota nicht.\n" . "\n" . "Lassen Sie sich bei Gelegenheit auch von einem der zuständigen\n" . "Systemadministratoren unterstützen:\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"; return $msg; } @@ -79,13 +79,16 @@ sub sendmail } if ($opts{'a'}) { print SENDMAIL "To: \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 { print SENDMAIL "To: <$user\@wsr.ac.at>\r\n"; print SENDMAIL "Cc: \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: \r\n"; print SENDMAIL "\r\n"; print SENDMAIL "$msg\r\n";