steffen: server/kolab/kolab kolabquotareport, NONE, 1.1 kolabquotawarn, 1.2, 1.3

[cvs at intevation.de]

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 );