|
Hi, I am using the "Mail::IMAPClient" to connect to the exchan... and specifying the below code to kill the process if the E... is not running. But still my process get hunged and it goe... if my Exchange server is not running. Plese suggest me what to do. use Mail::IMAPClient; # IMAP incoming mail server my $imap_server_check = Mail::IMAPClient->new(Server => ($ENV{"IMAP_SERVER"}), User => ($ENV{"USER_NAME"}), Password => ($ENV{"USER_PASSWD"}), Peek => '1', Uid => '0', ) or die "Cannot connect to $ENV{'IMAP_SERVER'} as $ENV{'USER_NAME'}: $@"; if (($imap_server_check->IsConnected()) && ($imap_server_check->IsAuthenticated()) ){ print "\nIMAP Server is available\n"; print "Succesfully Connected to $ENV{'IMAP_SERVER'} as $ENV{'USER_NAME'}\n"; } else{ $imap_server_check->logout or die "Could not logout: [EMAIL PROTECTED]"; print "\nDisconnected Successfully \n"; } Thanks a lot in advance. Thanks&Regards Debi
|
