Как получить почту скриптом?

Mail::POP3Client

Юзайте CPAN!

Приветы.

Я завел ящик на mail.ru,

ЛогИн: 'lamerizlamerov'
Пароль: '7777777'

Мне нужно скриптом подключится к ящику и считать оттуда количество писем (для начала).

Я использую Mail::POP3Client (так как другие модули я установить не смог):

Код

#!/usr/bin/perl use Mail::POP3Client;  $login = "lamerizlamerov"; $pass = "7777777"; $host = "http://www.pop3.mail.ru"; print "Content-type: text/html\n\n"; my $pop = new Mail::POP3Client( USER      => $login,                                  PASSWORD  => $pass,                                  HOST      => $host,                                  AUTH_MODE => "PASS",                                  DEBUG=>0 );    if (my $popCount=$pop->Count() == -1 ) {  print "Bad connect!";  } else {  print "In your box ",$pop->Count()," messages.<br>n";  }

После запуска скрипта выдается: Bad connect!. То есть неполучается законектится к ящику.
Подскажите плиз что я делаю неправельно?
Может ктонить попробует у себя законектится ИМЕННО К МОЕМУ ЯЩИКУ(login = "lamerizlamerov", pass = "7777777"), и потом скажет мне, как это у него получилось, буду очень благодарен. .

Это сообщение отредактировал(а) Bolat - 8.4.2005, 08:59

Цитата(Bolat @ 8.4.2005, 08:56)

Приветы. Я завел ящик на mail.ru, ЛогИн: 'lamerizlamerov' Пароль: '7777777' Мне нужно скриптом подключится к ящику и считать оттуда количество писем (для начала). Я использую Mail::POP3Client (так как другие модули я установить не смог): Код #!/usr/bin/perl use Mail::POP3Client;  $login = "lamerizlamerov"; $pass = "7777777"; $host = "http://www.pop3.mail.ru"; print "Content-type: text/html\n\n"; my $pop = new Mail::POP3Client( USER      => $login,                                  PASSWORD  => $pass,                                  HOST      => $host,                                  AUTH_MODE => "PASS",                                  DEBUG=>0 );    if (my $popCount=$pop->Count() == -1 ) {  print "Bad connect!";  } else {  print "In your box ",$pop->Count()," messages.<br>n";  } После запуска скрипта выдается: Bad connect!. То есть неполучается законектится к ящику. Подскажите плиз что я делаю неправельно? Может ктонить попробует у себя законектится ИМЕННО К МОЕМУ ЯЩИКУ(login = "lamerizlamerov", pass = "7777777"), и потом скажет мне, как это у него получилось, буду очень благодарен. .

по моему еще нужно вызывать методы Alive() и POPStat()

chaos
А для чего эти методы и как их использовать?

Цитата(Bolat @ 8.4.2005, 12:26)

chaos А для чего эти методы и как их использовать?

короче я перепутал маленько ничего дописывать не надо!!!
у тебя косяк в сторчке
$host = "http://www.pop3.mail.ru";
те надо написать
$host = "pop3.mail.ru";и тогда ввсе будет хорошо, кстати у тебя там 2 письма)))

Это сообщение отредактировал(а) chaos - 8.4.2005, 14:05

chaos
Я у себя исправил на $host = "pop3.mail.ru".
Но у меня пишет "Bad connect!"
Скинь плиз тот скрипт которым ты узнал что у меня 2 письма.
А то я пишу:

Код

#!/usr/bin/perl use Mail::POP3Client;  $login = "lamerizlamerov"; $pass = "7777777"; $host = "pop3.mail.ru"; print "Content-type: text/html\n\n"; my $pop = new Mail::POP3Client( USER      => $login,                                  PASSWORD  => $pass,                                  HOST      => $host,                                  AUTH_MODE => "PASS",                                  DEBUG=>0 );    if (my $popCount=$pop->Count() == -1 ) {  print "Bad connect!";  } else {  print "In your box ",$pop->Count()," messages.<br>n";  }

Может у меня чото нето с настройками....

Код

#!/usr/bin/perl use Mail::POP3Client;  $login = "lamerizlamerov"; $pass = "7777777"; $host = "pop3.mail.ru"; print "Content-type: text/html\n\n"; my $pop = new Mail::POP3Client( USER      => $login,                                  PASSWORD  => $pass,                                  HOST      => $host,                                  AUTH_MODE => "PASS",                                  DEBUG=>0 );    if (my $popCount=$pop->Count() == -1 ) {  print "Bad connect!";  } else {  print "In your box ",$pop->Count()," messages.<br>n";  }

ну вот он!! этот скрипт работает, ПРОВЕРЯЛ!!!!

Посмотри тему http://forum.vingrad.ru/index.php?showtopic=45716. Там есть скрипт, но с использованием Net::POP3.pm

Вообщем не пашет у меня.

Я вообще с Perloom знаком плохо...

Вообщем я сделал так:
Файл с кодом:

Код

#!/usr/bin/perl use Mail::POP3Client;  $login = "lamerizlamerov"; $pass = "7777777"; $host = "pop3.mail.ru"; print "Content-type: text/html\n\n"; my $pop = new Mail::POP3Client( USER      => $login,                                  PASSWORD  => $pass,                                  HOST      => $host,                                  AUTH_MODE => "PASS",                                  DEBUG=>0 );    if (my $popCount=$pop->Count() == -1 ) {  print "Bad connect!";  } else {  print "In your box ",$pop->Count()," messages.<br>n";  }

сохранил под именем "test.cgi" в папке:
"C:\Program Files\Apache Group\Apache\cgi-bin"

Теперь в браузере запускаю адрес:
"http://localhost/cgi-bin/test.cgi"

И все. Мож я чото неправельно сделал или недоделал?

Цитата

И все. Мож я чото неправельно сделал или недоделал?

И что ты видешь в браузере??? Если ничего, то ищи файл error.log, как правило он находится в корне.

korob2001
Я вижу в браузере 'Bad conect':

Код

... if (my $popCount=$pop->Count() == -1 ) {  print "Bad connect!"; ...

Цитата(Bolat @ 11.4.2005, 11:23)

korob2001 Я вижу в браузере 'Bad conect': Код ... if (my $popCount=$pop->Count() == -1 ) {  print "Bad connect!"; ...

а может надо указать полное имя, ну те
$login = '[email protected]';?

Цитата

а может надо указать полное имя, ну те $login = '[email protected]';?

Угу, ну и пароль тоже не мешало бы указать свой.

Это сообщение отредактировал(а) korob2001 - 11.4.2005, 15:32