You need to call $handle->quit ();
/Jon
Cabezon Aurélien wrote:
>
> Hi list,
>
> I'm playing around Net::POP3.
> I wanna make a script that is able to check for pop3 mail and then save them
> in a MySQL database (not implemented yet, usefull for mailing archiving)
> I'm at the start of the script but i have a problem.
>
> First i check for new mail : OK
> Then i get mail : OK
> Then i get print mail : OK
> Then i delete the mails : PROBLEM.
>
> I can't delete them. Why ? an idea ?
>
> Here is the code :
>
> ------<cut>-----
> #!/usr/bin/perl
>
> use Net::POP3;
>
> # Variables
> $hostname="www.isecurelabs.com";
> $account="securiteam\@isecurelabs.com";
> $password="eniac";
> $timeout ="3600";
>
> # pop3 connection
> $handle = Net::POP3->new($hostname,Timeout => $timeout) or die "Connection
> au serveur POP3 $hostname impossible.\n";
>
> # Authentification
> defined($handle->login($account, $password)) or die "Probléme
> authentification ($account, $password) sur $hostname.\n";
>
> # command list
> $list=$handle->list();
>
> #############work with each mail##############
>
> foreach $item (keys %$list) {
>
> # get mail
> $message = $handle->get($item);
>
> # print mail (waiting for coding database support)
> @message = @$message;
> print "\n@message\n";
>
> # del mail
> $handle->delete($item);
$handle->quit ();
> print "\nMail $item efface\n";
>
> };
>
> ------<cut>-----
>
> Thanks very much,
> regards,
>
> ---
> Cabezon Aurélien | [EMAIL PROTECTED]
> http://www.iSecureLabs.com | French Security Portal
>
> ____________________________________________
> " Sachez qu'aujourd'hui est le plus beau jour de votre vie,
> car c'est le premier de ceux qu'il vous reste à vivre "
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
