RE: POP3 на Perl

sunex — Fri, 02 Aug 2002 14:46:00 GMT

что то я не понял в чем проблема

POP3 на Perl

abvsoft — Fri, 02 Aug 2002 02:46:00 GMT

Добрый день!
У меня проблема:
мне нужно проверять почту, которая дана провом, в любом месте.
Ессесно, что из инет-клуба через мэйл клиент это не сделаешь ;-(.
Тут мне пришла в мозги идейка:
мой пров даёт место под страницу на 1 мег (мало ;( ). НО!
эта страница доступна под гостевым входом (это класс!);
разрешают использовать CGI (Perl) & sendmail.
Так вот, я решил сделать страничку, с которой можно отправлять СМС и почту, а так же забирать почту.
Сделал. Вроде работает...
Но не всё: если принимать письмо с аттачем???
Что делать? Как разделить???
И вот кусок кода:
[code]
#!/usr/bin/perl
print "Content-type: text/html

";
use IO::Socket;
$queryString = <STDIN>;
@elements = split ( '&', $queryString );
$idx = 0;
foreach $item ( @elements ) {
($field, $value) = split ( '=', $item );
$fields[$idx] = $field;
$values[$idx] = $value;
$values[$idx] =~ s/\+/ /g;
$values[$idx] =~ s/%([a-fA-F0-9][a-dA-F0-9])/pack("C",hex($1))/eg;
$idx++;
}
$socket = IO::Socket::INET->new(PeerAddr => $values[0],
PeerPort => 110,
Proto => "tcp",
Timeout => 60)
or die "Couldn't connect to $values[0]:110 : $@
";
print $socket "USER $values[1]
";
print $socket "PASS $values[2]
";
print $socket "$values[3]
";
#именно при выполнении следующей команды идёт задержка около мнуты-двух.
#в чём проблема???
@lines = <$socket>;
print $socket "QUIT
";
close($socket);
[/code]

Вот, собственно.

А страница здесь: http://www.sns.net.ua/~abvsoft/index.htm
Всем за ранее спасибо, жду ответа.

Релиб / Веб-программирование / Perl / POP3 на Perl / Latest Posts

RE: POP3 на Perl

POP3 на Perl