steffen: server/kolab/kolab kolabquotareport, NONE, 1.1 kolabquotawarn, 1.2, 1.3
cvs at intevation.de
cvs at intevation.de
Mon May 17 14:10:48 CEST 2004
Author: steffen
Update of /kolabrepository/server/kolab/kolab
In directory doto:/tmp/cvs-serv18568
Modified Files:
kolabquotawarn
Added Files:
kolabquotareport
Log Message:
only complain every 24 hours, script for reporting to admins (unfinished)
--- NEW FILE: kolabquotareport ---
(This appears to be a binary file; contents omitted.)
Index: kolabquotawarn
===================================================================
RCS file: /kolabrepository/server/kolab/kolab/kolabquotawarn,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- kolabquotawarn 27 Apr 2004 23:56:09 -0000 1.2
+++ kolabquotawarn 17 May 2004 12:10:46 -0000 1.3
@@ -52,6 +52,7 @@
my $prefix = $Kolab::config{'prefix'};
my $warninterval = 60*60*24; # seconds between warnings
my $warnmessage = '';
+my $quotawarnpct = $Kolab::config{'cyrus-quotawarn'};
my %quotawarn_db;
my $warnh = new IO::File "< $prefix/etc/kolab/quotawarning.txt";
if( defined($warnh) ) {
@@ -140,7 +141,7 @@
'mechanisms' => 'plaintext', )
|| die("Unable to authenticate with Cyrus admin interface, Error = `" . $cyrus->error. "'");
-#print "USERS:\n------\n";
-kolablistquotas( $cyrus, 'user/*', '*', 80 );
+### Mail offending users
+kolablistquotas( $cyrus, 'user/*', '*', $quotawarnpct );
#print "\nSHARED FOLDERS:\n---------------\n";
#kolablistquotas( $cyrus, 'user.*', '*', 80 );
More information about the commits
mailing list