#!/usr/bin/perl

use strict;

use Event;
use Net::Knuddels;

my $client = new Net::Knuddels::Client PeerAddr => "213.61.5.150:2710";

$client->login;

my %channels;

#0  "t"
#1  ">"
#2  "-"
#3  "Schmusemann wird von NiceLovelyGirl z\344rtlich gek\374sst..."

$client->register (b => sub {
  for (@_) {
    if ($_ ne "-") {

    } else {
      

    }
  }
});

$client->register (UNHANDLED => sub {
   use Dumpvalue;
   print "---\n";
   Dumpvalue->new (compactDump => 1, veryCompact => 1, quoteHighBit => 1, tick => '"')->dumpValue ([@_]);
});

$client->register (login => sub {
   $client->set_nick ("Flirt 3", "Net-Knuddels", "lolfe");
});

$client->register (msg_room => sub {
   my ($room, $user, $msg) = @_;
   print "($room) $user: $msg\n";
});

$client->register (msg_priv => sub {
   my ($room, $src, $dst, $msg) = @_;
   print "($room) ########### $src an $dst: $msg\n";
});

$client->register (join_room => sub {
  print "$_[1]->{name} joined $_[0]: ".scalar(keys %{$client->{user_lists}->{lc $_[0]}}). " users\n";

});

$client->register (part_room => sub {
  print "$_[1]->{name} left $_[0]: ".scalar(keys %{$client->{user_lists}->{lc $_[0]}}). " users\n";
});

$client->register (user_list => sub {
   my ($room, $list) = @_;
   print "***** USER LIST FUER $room *****\n";
   
   printf ("%s (%d) [%s]\n", $_->{name}, $_->{age}, $_->{gender}) 
     for sort { $a->{name} cmp $b->{name} } values %$list;

   print scalar (keys %$list)." users\n";
   print "********************************\n";
});

$client->register (room_info => sub {
  my ($room, $ri) = @_;
  print "ROOM INFO: $room : $ri->{picture}\n";
});

Event->io ( fd => $client->fh, poll => 'r', cb => sub { $client->ready });

Event::loop;