#!/usr/bin/perl
# $Id$

use warnings;
use strict;

use Util::Backend;
use YAML qw(Dump);

select STDOUT; $| = 1;

svc_run("127.0.0.1", 12345);
exit 0;

sub on_nick {
  my $msg = shift;
  print $msg->csactor(), " changed nick to ", $msg->csnewnick(), "\n";
}

sub on_unhandled {
  my $msg = shift;

  print Dump $msg;

  return unless defined $msg->nick() and defined $msg->message();

  if ($msg->message() =~ /^\s*rot13\s+(.+?)\s*$/i) {
    my $rot = $1;
    $rot =~ tr[a-zA-Z][n-za-mN-ZA-M];
    if ($msg->addressed()) {
      $msg->say($msg->csnick() . ": $rot");
    }
    else {
      $msg->say($rot);
    }

    msg_send($msg);
    return;
  }

  if ($msg->addressed() and $msg->message() =~ /^shutdown$/i) {
    $msg->say("Test backend, PID $$, is shutting down.  Bye!");
    msg_send($msg);
    svc_stop();
    return;
  }
}