#!/usr/bin/perl
use strict; use warnings;
use Net::YahooMessenger;
use L;
chomp(my $pw = slurp("/home/sam/etc/private/niplserver.pw"));
my $yahoo = Net::YahooMessenger->new(
       id       => 'niplserver',
       password => $pw,
       hostname => 'scs.msg.yahoo.com',
);
$yahoo->login or die "Can't login Yahoo!Messenger\n";
$yahoo->set_event_handler(ToStdoutEventHandler->new);
$yahoo->send('sammy_watkins', 'Hello World!');
for(1..30) {
	$yahoo->do_one_loop;
	sleep 1;
}
exit;

package ToStdoutEventHandler;
use base 'Net::YahooMessenger::EventHandler';
use strict;

sub ChangeState {}
sub GoesOffline {}
sub GoesOnline {}
sub UnImplementEvent {}

sub ReceiveMessage
{
	my $self = shift;
	my $event = shift;
	printf "%s: %s\n", $event->from, $event->body;
}