#!/usr/bin/perl
use Net::IRC::Server;
use Data::Dumper;

my $s = Net::IRC::Server->new ();

print $s->mk_msg ("soo.serv.de", "NOTICE", "not auth");

$s->set_cmd_cb ("*", sub {
  my ($client, $msg) = @_;
  print "$msg->{prefix} $msg->{command} @{$msg->{params}}\n";
  0;
});

$s->set_send_cb (sub {
  my ($cl, $data) = @_;
  print "SEND: $cl $data\n";

});

my $mecl = { hostname => "fun" };

while (<STDIN>) {
  $s->feed_irc_data ($mecl, $_);
}