Re^3: Mail::POP3Client email server to use

First, you should probably edit your code to remove the username and pass (unless this is an account set up specifically for testing this script).

It seems to me that you should move your initialization of your pop object to outside the until loop:

use Mail::POP3Client;

$pop = new Mail::POP3Client(
    USER      => "username",    
    PASSWORD  => "password",
    HOST      => "server.domain.tld",
    AUTH_MODE => "PASS",           
    DEBUG     => 1      
);
$MailState = $pop->State;
if ( $MailState eq 'AUTHORIZATION' ) {
    die "\n\nBad user name or password!\n";
}
elsif ( $MailState eq 'DEAD' ) {
    die "\n\nMail server unreachable or unavailable!\n";
}
 
$continue = "false";
until ( $continue = "true" ) {

...
[download]

This won't get your whole script working, but with this change it does connect and check my messages.

Hope this helps...

Comment on Re^3: Mail::POP3Client email server to use Download Code

Replies are listed 'Best First'.
Re^4: Mail::POP3Client email server to use by skx (Parson) on Jul 15, 2005 at 13:25 UTC
`until ( $continue = "true" ) { ... }` [download] That "test" isn't doing what you think it is doing ... This might explain why things don't work properly. Steve --- <a href="http://www.steve.org.uk/">steve.org.uk</a> : <a href="http://www.debian-administration.org/">Debian System Administration</a>	[reply] [d/l]
Re^5: Mail::POP3Client email server to use by Anonymous Monk on Jul 15, 2005 at 16:31 UTC
What do you mean? I just want that variable to be set to something and then change it to something else if I find what I'm looking for. What should that code look like instead? Thanks, Austin	[reply]
Re^4: Mail::POP3Client email server to use by Anonymous Monk on Jul 15, 2005 at 16:29 UTC
Thanks again for the suggestions. I changed the loop, but I still can't connect. That email address is set up specifically for this task. Has anyone gotten this code to work with a gmail account? What opeating system are you using? Is anyone able to read my particular email (using the username and password I wrote above) using this code? Also, I added the DEBUG => 1 to the code and it didn't do anything different. What is supposed to happen? I have a feeling something is going wrong with the connection but I'm not sure how to see what. Thanks again, Austin	[reply]
Re^5: Mail::POP3Client email server to use by socketdave (Curate) on Jul 15, 2005 at 16:59 UTC
I think what you really want to do is connect, grab all of the messages, determine if the message you're looking for is there and do something based on that. Is this correct? Do you want the script to continually reconnect and retry if it doesn't find what it's looking for? If so, do you want to to keep trying after it's foud it's first match?	[reply]
Re^6: Mail::POP3Client email server to use by Anonymous Monk on Jul 22, 2005 at 15:11 UTC
Yeah that's what I want to do. Fortunately, I figured out that I need to set USESSL=>1 and download some additional modules (IO::Socket::SSL, Net_SSLeay, OpenSSL) to get this working. Thanks for all the help! Austin	[reply]