VPF::Как скриптом ПОЛУЧИТЬ почту? - Форум программистов

Bolat

Дата 12.4.2005, 06:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 8.4.2005

Репутация: нет
Всего: нет

korob2001
Я и указал
Все же в коде есть:

Код


$pass = "7777777";

Я думаю может там какие настройки с Perlom или какими нибудь разрешениями ФайрВола ...

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

chaos

Дата 12.4.2005, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

интересные штуки происходят))) у меня все работает а у человека не работает smile

А у тебя 110 порт случаем не зафильтрован???

Bolat

Дата 12.4.2005, 12:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 8.4.2005

Репутация: нет
Всего: нет

chaos

Цитата

интересные штуки происходят))) у меня все работает а у человека не работает

Вот ты здеся ржеш а я психую.

Цитата

А у тебя 110 порт случаем не зафильтрован???

Не знаю. Как это проверить?
И не скажеш где у тебя лежит cgi-файл с вышеупомянутым кодом? И как ты его запускаеш?
я кидаю в
"C:\Program Files\Apache Group\Apache\cgi-bin"
и запускаю в брауере
'localhost\cgi-bin\perlFile.cgi'

korob2001

Дата 12.4.2005, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Таким способом попробуй:

Код


#!/usr/bin/perl -w
use strict;
use Net::POP3;
my( $host, $login, $pass ) = ( shift, shift, shift );
my $pop = Net::POP3->new($host) || die $!;
$pop->user($login);
print "You have ", $pop->pass($pass), " messages in mail box. \n";
$pop->quit;

Ложишь скрипт куда угодно, лишь бы Perl был установлен. Затем в командной строке даёшь такую команду:
C:\>perl C:\script.pl pop.mail.ru login password
Естественно нужно будет указать свой сервер, логин и пароль.

Удачи.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Bolat

Дата 13.4.2005, 06:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 8.4.2005

Репутация: нет
Всего: нет

korob2001
Нужно отдельно установить модуль Net::POP3?

Чото неустанавливается(через ppm.bat).
А ты как устанавливал?

Это сообщение отредактировал(а) Bolat - 13.4.2005, 06:02

korob2001

Дата 13.4.2005, 06:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Он входит в стандартный пакет Perl, потому его устанавливать, как правило, не нужно. Попробуй через командную строку запросить документацию к нему:

C:\>perldoc Net::POP3

Если увидишь документацию, значит модуль установлен и готов к использованию.

Можно так же проверить наличие модуля такой командой:

C:\>perl -e "use Net::POP3"

Если после выполнения этой команды ты не увидешь примерно такой ошибки:

Can't locate Net/POP3.pm in @INC (@INC contains: C:/Perl/usr/lib C:/Perl/usr/site/lib . ) at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

Это будет говорить отом, что модуль у тебя установлен.

Удачи.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »