scripts/mqr-smtp.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use AnyEvent::SMTP::Server;
   7
   8 my $server = AnyEvent::SMTP::Server->new( port => 2525 );
   9
  10 $server->reg_cb(
  11         client => sub {
  12                 my ($s,$con) = @_;
  13                 warn "Client from $con->{host}:$con->{port} connected\n";
  14         },
  15         disconnect => sub {
  16                 my ($s,$con) = @_;
  17                 warn "Client from $con->{host}:$con->{port} gone\n";
  18         },
  19         mail => sub {
  20                 my ($s,$mail) = @_;
  21                 warn "Received mail from $mail->{from} to $mail->{to}\n$mail->{data}\n";
  22         },
  23 );
  24
  25 $server->start;
  26 AnyEvent->condvar->recv;