Работа с почтовыми ящиками на PHP и Perl

[Bolat]

chur,
Хорошо попробую.

UUU,
Я попытался использовать Mail::POP3Client. Хочу хотябы связатся с почтовиком:

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

#!/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";
}

Пишет "Bad connect!".
Что я не правельно делаю?

[Absurd]

AFAIK у mail.ru сервер под pop3 был отдельный - pop.mail.ru

[Bolat]

Absurd,
поменял 'mail.ru' на 'pop.mail.ru' - все равно 'Bad connect'

[UUU]

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

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

В общем, это прекрасно работает на протящении многих лет.

[Bolat]

UUU
Чото ни чего не пашет. Немог быты скинуть код, который будет работать с реальными данными:
Я завел ящик на mail.ru, вот параметры:
$login = "lamerizlamerov";
$pass = "7777777";
Нужен скрипт который производит соеденение и считывает количество писем.
Я был бы благодарен, еслибы ты написал этот скрипт и проверил его у себя. Если у тя будет работать а у меня нет, то видать у меня чото с настройками.

[UUU]

Булат. Я привел рабочий скрипт, который работает у меня, независимо от почтовых ящиков и т.д. И работает уже несколько лет.

[Malysh]

Может ответ на мой вопрос уже опубликован выше, но я мало в этом разбираюсь. Поэтому, будьте добры, ответьте лично мне:
Знакомы ли вы с работой Eserv - это наш отечественный продукт, который под Win. XP реализует работу сервера по всем необходимым протоколам? Http и Proxy работают, а с SMTP сервером не всё получается - то спам сначала мешал, включил авторизацию - спама нет, но и толком не работает. Может вы знаете что-нибудь аналогичное приложению SMTPSEND.exe, реально работающее по вызову из Perl-скрипта форума - тогда и оповещение можно запустить и рассылку и прочее, связанное с SMTP?

[Bolat]

UUU,
Во первых не БУлат а БОлат .
Какая мне разница несколько лет или недель .
А про свой конкретный пример я попоросил чтобы знать точно чо где писать, например:
mail.ru или pop.mail.ru или pop3.mail.ru и т.д.

[UUU]

- А Вы и пальцы за меня загибать будете?
- Ага.

Болат. Я тебе привел кусок скрипта, через который мои абоненты получают и удаляют почту из своих почтовых ящиков. Мне глубоко по барабану, на каком серваке у них находится ящик. Правильно заданный логин-пароль и поп3 решают проблему.
Адреса почтовых серверов есть на соотв. почтовом сервере.