steffen: server/kolabd/kolabd kolabquotawarn.in,1.6,1.7

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/kolabd/kolabd
In directory doto:/tmp/cvs-serv25457/kolabd

Modified Files:
	kolabquotawarn.in 
Log Message:
Fix for Issue1012 (quota warnings logged)

Index: kolabquotawarn.in
===================================================================
RCS file: /kolabrepository/server/kolabd/kolabd/kolabquotawarn.in,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- kolabquotawarn.in	10 Dec 2005 21:57:11 -0000	1.6
+++ kolabquotawarn.in	11 Jan 2006 20:31:38 -0000	1.7
@@ -107,7 +107,7 @@
   fatal_exit( "Can't open quotawarning.txt" );
 }
 
-dbmopen( %quotawarn_db, '@localstatedir@/kolab/quotawarn.db', 0666 ) 
+dbmopen( %quotawarn_db, '@localstatedir@/kolab/quotawarn.db', 0666 )
   || fatal_exit ('Unable to open quotawarn db');
 
 if( $opt_d ) {
@@ -140,7 +140,11 @@
 				data => $msg );
   $mail->print if $opt_d;
   my $mailer = Mail::Transport::SMTP->new();
-  $mailer->send( $mail );
+  if( $mailer->send( $mail ) ) {
+    mylog("info", "info: Sent quota warning message to $user because quota is at $pct%");
+  } else {
+    mylog("err", "error: Failed sent quota warning message to $user");
+  }
 }
 
 sub kolablistquotas {