#rename me to bot.pl or something else witty.
#!/usr/bin/perl -w
use lib "/dir/path/where/you/put/YahooSimple";
use Getopt::Long;
use IO::Poll;
use YahooSimple;
#use Net::Ping::External qw(ping);

my $yahoo = YahooSimple->new( 'YahooID'  => "putusernamehere",
                              'Password' => "putpasswordhere");

  $yahoo->setHandler( 'Connected' => \&Connected );
  $yahoo->setHandler( 'Message' => \&Message );
  $yahoo->setHandler( 'Room' => \&Room );
  $yahoo->Connect();
  $yahoo->do_one_loop while(1);

#Just subs below.
  sub Connected{
      my $yahoo = shift;
      $yahoo->SendMessage("deceptive_measures","Your the biggest lamer ever");
  }

  sub Message{
      my $yahoo = shift;
      my($from, $message) = @_;
      print "($from, $message)\n";
  }

  sub Room{
  	  my $yahoo = shift;
  	  my $room = $_;
  	  $yahoo->Room($room);
  	  print "$room\n";
  }