HCoop
/
hcoop
/
scripts.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ca-install: install certs to mailman server
[hcoop/scripts.git]
/
quotacheck
diff --git
a/quotacheck
b/quotacheck
index
9a8806d
..
d4cb912
100755
(executable)
--- a/
quotacheck
+++ b/
quotacheck
@@
-54,7
+54,7
@@
use Data::Dumper qw/Dumper/;
# Warn threshold
our %threshold = ( user => 0.8, mail => 0.6, db => 0.4 );
# AFS servers with volumes
# Warn threshold
our %threshold = ( user => 0.8, mail => 0.6, db => 0.4 );
# AFS servers with volumes
-our @servers = qw/
fritz
/;
+our @servers = qw/
gibran
/;
# Which volumes we want?
# (Your volumes need to be in format (TYPE).USERNAME, otherwise
# you will have to modify below where we take .USERNAME to mean
# Which volumes we want?
# (Your volumes need to be in format (TYPE).USERNAME, otherwise
# you will have to modify below where we take .USERNAME to mean
@@
-237,7
+237,7
@@
sub email_notify {
$_ =~ s/\$CRIT{(\w+)}/$warn{$user}{$1} ? " (APPROACHING QUOTA)" : ""/mge;
}
#print join('', @msg);
$_ =~ s/\$CRIT{(\w+)}/$warn{$user}{$1} ? " (APPROACHING QUOTA)" : ""/mge;
}
#print join('', @msg);
- open(MAIL, "| mail -s 'Approaching quota limit at HCoop' -a 'From: admins\@hcoop.net' -b 'admins' '$user\@hcoop.net'");
+ open(MAIL, "| mail -s 'Approaching quota limit at HCoop' -a 'From: admins\@hcoop.net' -b 'admins
\@hcoop.net
' '$user\@hcoop.net'");
{ no warnings; print main::MAIL join('', @msg); }
close MAIL;
}
{ no warnings; print main::MAIL join('', @msg); }
close MAIL;
}
@@
-302,12
+302,6
@@
Mail:
threshold=$threshold{mail}
use=$warn{mail} $CRIT{mail}
threshold=$threshold{mail}
use=$warn{mail} $CRIT{mail}
-Databases:
- size=$vol{db}{diskused} KB
- quota=$vol{db}{maxquota} KB
- threshold=$threshold{db}
- use=$warn{db} $CRIT{db}
-
Please submit your disk quota increase request in a timely
manner at:
Please submit your disk quota increase request in a timely
manner at: