Developing.ru

Код: Выделить всё

#!/usr/bin/perl

use Mail::POP3Client;

$login = "lamerizlamerov";
$password = "7777777";
$mailserver = "mail.ru";

$pop = new Mail::POP3Client( USER     => $login, PASSWORD => $password, HOST     => $mailserver);

print "Content-type: text/html\n\n";

if ($pop->Count() == -1 ) {
print "Bad connect!";
} else {
print "In your box ",$pop->Count()," messages.
n";
}

Код: Выделить всё

use Mail::POP3Client;

my $pop = new Mail::POP3Client( USER     => "$q2[2]",
                               PASSWORD => "$q2[3]",
                               HOST     => "$q2[1]",
	 			AUTH_MODE => "PASS",
				DEBUG=>0 );
my $popCount=$pop->Count();
unless($popCount){$OutMess="Ваш ящик пуст.";$exit=1;}
else                               
{
#Удаление писем команда MAIL -1 2 3 4 5 6 или -* - все
if($UserQuery=~ s/^-//g)
{
#вычленить номера и удалить
#print "Delete*$UserQuery*\n";
if($UserQuery=~ s/\*//)
{
#удалить все
#print "*Delete All*\n";
for ($i = 1; $i <= $popCount; $i++) 
{
$pop->Delete($i);
$OutMess="Все сообщения из ящика удалены.";
$exit=2;
}
}
else