On 21.03.2008 11:25 Vladimir Litovka wrote:

Привет, нужен свободно торчащий в Нет поп или имап сервер, который бы на какой угодно имя/пароль говорил что нет новой почты. Этого достаточно :-)

#!/usr/bin/perl -w use strict; use Net::Server::POP3; sub auth { return 1; } sub list { return (); } sub retrieve { return ""; } my $server = Net::Server::POP3->new( severopts => { user => "nobody", group => "nogroup", chroot => "/var/empty", }, authenticate => \&auth, list => \&list, retrieve => \&retrieve, ); $server->startserver(port => 1110); Если негде это запустить, запущу у себя, но только на левом порту, а не на 110. Надолго надо? -- dg =================================================================== uanog mailing list. To Unsubscribe: send mail to majordomo@uanog.kiev.ua with "unsubscribe uanog" in the body of the message