Re: [uanog] Fake pop/imap server, publicly available

21 Mar 2008

      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

Re: [uanog] Fake pop/imap server, publicly available

Daniel Ginsburg