Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: Handling reconnection with Mail::IMAPClient -- solved

by Discipulus (Canon)
on Jan 27, 2023 at 08:37 UTC ( [id://11149919]=note: print w/replies, xml ) Need Help??


in reply to Re: Handling reconnection with Mail::IMAPClient
in thread Handling reconnection with Mail::IMAPClient

Hello markong,

thanks! even more useful is the reconnect method I totally missed from the module documentation.

As the module Carp::cluck on error issuing imap commands, then the $imap->noop seems to be a sane command to try.

The following code acts as expected and reconnect to the imap server:

while (1){ my $attempts = 1; my $max_attempts = 10; while ( !$imap->noop ){ print "Reconection retry $attempts..\n"; $imap->reconnect; if( $imap->IsConnected() ){ print "Reconnected succesfully!\n"; last; } else{ sleep 1; die "Impossible to reconnect: $@" if $attempts == $max_att +empts; $attempts++; } } print "IMAP connected\n" if $imap->IsConnected(); }

L*

PS January 31: see the definitive program

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11149919]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (4)
As of 2024-03-28 18:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found