ispman/lib/ISPMan IMAP.pm,1.6,1.6.2.1

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30544/lib/ISPMan

Modified Files:
      Tag: rel_1_2-bugfixes
	IMAP.pm 
Log Message:
fixed wrong calls of log_event

Index: IMAP.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/IMAP.pm,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -u -d -r1.6 -r1.6.2.1
--- IMAP.pm	30 May 2004 23:35:37 -0000	1.6
+++ IMAP.pm	9 Oct 2005 08:59:18 -0000	1.6.2.1
@@ -24,12 +24,12 @@
     my $server = shift;
 
     unless ($server) {
-        log_event("No server passed to Connect. Returning nothing");
+        $self->log_event("No server passed to Connect. Returning nothing");
         return;
     }
 
     if ( !$self->{'imap_connections'}{$server} ) {
-        log_event("connecting to IMAP $server");
+        $self->log_event("connecting to IMAP $server");
         if ( !$self->{'imapModuleLoaded'} ) {
             require IMAP::Admin;
             $self->{'imapModuleLoaded'}++;
@@ -76,7 +76,7 @@
 
     # Dont force prefix.
     #$mailbox=($mailbox=~/^user\./)?$mailbox:"user.$mailbox";
-    log_event(
+    $self->log_event(
 "Trying to remove $mailbox from $server as $self->{'Config'}{'imapAdminUsername'}"
     );
     if (
@@ -89,7 +89,7 @@
       )
     {
         if ( $self->try( $imap->delete($mailbox) ) ) {
-            log_event(" $mailbox deleted from  $server ");
+            $self->log_event(" $mailbox deleted from  $server ");
             return 1;
         }
     }
@@ -104,10 +104,10 @@
 
     # Dont force prefix.
     #$mailbox=($mailbox=~/^user\./)?$mailbox:"user.$mailbox";
-    log_event("Trying to add  $mailbox to  $server ");
+    $self->log_event("Trying to add  $mailbox to  $server ");
 
     if ( $self->try( $imap->create($mailbox) ) ) {
-        log_event(" $mailbox added to   $server ");
+        $self->log_event(" $mailbox added to   $server ");
         return 1;
     }
     return 0;
@@ -120,9 +120,9 @@
 
     # Dont force prefix.
     #$mailbox=($mailbox=~/^user\./)?$mailbox:"user.$mailbox";
-    log_event("Trying to set quota on   $mailbox to  $server ");
+    $self->log_event("Trying to set quota on   $mailbox to  $server ");
     if ( $self->try( $imap->set_quota( $mailbox, $quota ) ) ) {
-        log_event(" quota set on $mailbox @ $server ");
+        $self->log_event(" quota set on $mailbox @ $server ");
         return 1;
     }
     return 0;



-------------------------------------------------------
This SF.Net email is sponsored by:
Power Architecture Resource Center: Free content, downloads, discussions,
and more. http://solutions.newsforge.com/ibmarch.tmpl