i have a script like this :
==================================================================
$name='sciensez';
$pass='blu635';
$serv='mail.yahoo.com';
$subj='Subject: Daily loggin report';

use Mail::POP3Client;
$client = new Mail::POP3Client($name, $pass, $serv);
$thestate = $client->State;

if($thestate eq 'AUTHORIZATION')
        {die "bad user name or password\n"}
elsif($thestate eq 'DEAD')
        {die "mail server unreachable or unavailable \n"}
#find out how many messages there are

$nummsg = $client ->count;
for($i =1;$i<=$nummsg; $i +=1) {
        $headers =$client->Head($i);
        @headlist = split(/\n/, $headers);
        foreach $line (@headlist) {
                if($line =~ /^$subj/) {
                        #found the body and print
                        $body = $client->Body($i);
                        print "$body \n";
                }
        }
}

$client->close;
        
====================================================================

and always get message "network unreachable bla bla
bla",

i dont understand, is that because yahoo.mail.com is
only free mail server (is this script is only working
in mail.myisp.com ?)

friends..i really need to accessing yahoo.mail or hot
mail or free mail through text mode, any solutions ?



thank you very much



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to