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

quotacheck: prerelease in production 

quotastat: Should work
This commit is contained in:
hjp 1998-05-18 14:54:02 +00:00
parent db488840be
commit 8c77a4c68b
4 changed files with 159 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
quotacheck/.vimrc Normal file
View File

@ -0,0 +1,4 @@
set autoindent
set autowrite
set exrc
set shiftwidth=4

28
quotacheck/GNUmakefile Normal file
View File

@ -0,0 +1,28 @@
include GNUmakevars
BINDIR=/usr/local/sbin
all: quotacheck quotastat
clean:
rm -f quotacheck *.bak
distclean: clean
rm -f customize
install: $(BINDIR) $(BINDIR)/quotacheck $(BINDIR)/quotastat
%: %.pl customize
sh ./customize < $< > $@
chmod +x $@
%: %.sh customize
sh ./customize < $< > $@
chmod +x $@
customize: configure
sh ./configure
$(BINDIR):
mkdir -p $@
include GNUmakerules

87
quotacheck/quotacheck.pl Normal file
View File

@ -0,0 +1,87 @@
#!@@@perl@@@
sub warnmsg {
my ($mount, $usage, $soft, $hard, $grace, $unit) = @_;
my $msg = "Sie haben auf $mount (Host $hostname) Ihr Limit von $soft $unit " .
"um " . ($usage - $soft) . " $unit überschritten.\n";
if ($grace eq "EXPIRED" or $usage >= $hard-2) {
$msg .= "Sie können dort KEINE Files mehr anlegen.\n" .
"Bitte löschen Sie eine entsprechende Anzahl Files\n" .
"oder wenden Sie sich an einen Systemadministrator.\n";
} else {
$grace =~ s/days/Tage/g;
$grace =~ s/hours/Stunden/g;
$msg .= "Sie können dieses Limit noch $grace um maximal " .
($hard - $soft) . " $unit überschreiten.\n" .
"Sollte das nicht reichen, wenden Sie sich an einen Systemadministrator.\n";
}
return $msg;
}
$hostname=`hostname`;
chomp($hostname);
open (DF, "@@@df@@@ |") or die "cannot call @@@df@@@: $!";
$fs = $/;
undef ($/);
$df = <DF>;
close(DF);
$/ = $fs;
$df =~ s/\n[ \t]+/ /mg;
@df = split(/\n/, $df);
for $ln (@df) {
($fs, $total, $used, $free, $pct, $mount) = split(/\s+/, $ln);
if ($fs =~ m|^/dev/|) {
print $mount, "\n";
open REPQUOTA, "@@@repquota@@@ $mount |" or die "cannot call @@@repquota@@@: $!";
while (<REPQUOTA>) {
$msg = "";
if (/(\w+) \s+ -- \s*
(\d+)\s+(\d+)\s+(\d+)\s+
(\d+)\s+(\d+)\s+(\d+)
/x) {
#print "ok: $1\n";
} elsif (/(\w+) \s+ \+- \s*
(\d+)\s+(\d+)\s+(\d+)\s+(EXPIRED|\d+\.\d+\ (?:days|hours))\s+
(\d+)\s+(\d+)\s+(\d+)
/x) {
print "block limit: $1: $2 > ($3 $4) $5\n";
$user = $1;
$msg = warnmsg($mount, $2, $3, $4, $5, "kB");
} elsif (/(\w+) \s+ -\+ \s*
(\d+)\s+(\d+)\s+(\d+)\s+
(\d+)\s+(\d+)\s+(\d+)\s+(EXPIRED|\d+\.\d+\ (?:days|hours))
/x) {
print "file limit: $1: $5 > ($6 $7) $8\n";
$user = $1;
$msg = warnmsg($mount, $5, $6, $7, $8, "Files");
} elsif (/(\w+) \s+ \+\+ \s*
(\d+)\s+(\d+)\s+(\d+)\s+(EXPIRED|\d+\.\d+\ (?:days|hours))\s+
(\d+)\s+(\d+)\s+(\d+)\s+(EXPIRED|\d+\.\d+\ (?:days|hours))
/x) {
print "block limit: $1: $2 > ($3 $4) $5\n";
$user = $1;
$msg = warnmsg($mount, $2, $3, $4, $5, "kB");
print "file limit: $1: $6 > ($7 $8) $9\n";
$msg .= "\n\n" . warnmsg($mount, $6, $7, $8, $9, "Files");
} else {
print "unparseable: $_";
}
if ($msg) {
open (SENDMAIL, "|@@@sendmail@@@ -t -i");
print SENDMAIL "To: <$user\@wsr.ac.at>\r\n";
print SENDMAIL "Cc: <system\@wsr.ac.at>\r\n";
print SENDMAIL "Reply-To: <system\@wsr.ac.at>\r\n";
print SENDMAIL "Subject: Disk Quotas überschritten\r\n";
print SENDMAIL "\r\n";
print SENDMAIL "$msg\r\n";
}
}
}
}

40
quotacheck/quotastat.pl Normal file
View File

@ -0,0 +1,40 @@
#!@@@perl@@@
$hostname=`hostname`;
chomp($hostname);
$date=`date '+%Y-%m-%dT%H:%M:%S'`;
chomp($date);
open (DF, "@@@df@@@ |") or die "cannot call @@@df@@@: $!";
$fs = $/;
undef ($/);
$df = <DF>;
close(DF);
$/ = $fs;
$df =~ s/\n[ \t]+/ /mg;
@df = split(/\n/, $df);
open (STAT, ">>/usr/local/dfstat/quota.stat") or die "cannot append to quota.stat";
for $ln (@df) {
($fs, $total, $used, $free, $pct, $mount) = split(/\s+/, $ln);
if ($fs =~ m|^/dev/|) {
print $mount, "\n";
open REPQUOTA, "@@@repquota@@@ $mount |" or die "cannot call @@@repquota@@@: $!";
while (<REPQUOTA>) {
$msg = "";
if (/^\s+/) {
#print "header: $_";
} elsif (/(\w+) \s+ [-+][-+] \s*
(\d+)\s+(\d+)\s+(\d+)\s+(|EXPIRED|\d+\.\d+\ (?:days|hours))\s+
(\d+)\s+(\d+)\s+(\d+)\s+(|EXPIRED|\d+\.\d+\ (?:days|hours))
/x) {
print "block limit: $1: $2 > ($3 $4) $5\n";
print "file limit: $1: $6 > ($7 $8) $9\n";
print STAT "$date\t$mount\t$1\t$2\t$3\t$4\t$6\t$7\t$8\n";
} else {
print "unparseable: $_";
}
}
}
}