Dalam tulisan kali ini penulis ingin mendokumentasikan hasil ekperimen penggunaan modul Net::YahooMessenger untuk mengirim pesan melalui Y!M dengan berbais web.

use Net::YahooMessenger;

my $yahoo = Net::YahooMessenger->new(
id => ‘your_yahoo_id’,
password => ‘your_password’,
);
$yahoo->login or die “Can’t login Yahoo!Messenger”;
$yahoo->send(‘recipient_yahoo_id’, ‘Hello World!’);

Ekperimen ini berdasarkan contoh yang ada di website http://search.cpan.org/~oyama/Net-YahooMessenger-0.13/YahooMessenger.pm

Pengiriman Pesan

#!perl
use Net::YahooMessenger;
use strict;

my $yahoo = Net::YahooMessenger->new;
$yahoo->id(‘yahoo_id’);
$yahoo->password(‘password’);
$yahoo->login or die “Can’t login Yahoo!Messenger”;

$yahoo->send(‘recipient_yahoo_id’, ‘Hello World!’);
__END__

Merubah Status Pesan

#!perl
use Net::YahooMessenger;
use strict;
use constant IN_BUSY => 1;

my $yahoo = Net::YahooMessenger->new(
id => ‘yahoo_id’,
password => ‘password’,
);
$yahoo->login or die “Can’t login Yahoo!Messenger”;;

$yahoo->change_state(IN_BUSY, q{I’m very busy now!});
sleep 5;
__END__

Menerima pesan dan mengeluarkan ke STDOUT

#!perl
use Net::YahooMessenger;
use strict;

my $yahoo = Net::YahooMessenger->new(
id => ‘yahoo_id’,
password => ‘password’,
);
$yahoo->set_event_handler(new ToStdoutEventHandler);
$yahoo->login or die “Can’t login Yahoo!Messenger”;
$yahoo->start;

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;
}
__END__

Koneksi ke server yahoo jepang

#!perl
use Net::YahooMessenger;
use strict;

my $yahoo = Net::YahooMessenger->new(
pre_login_url => ‘http://edit.my.yahoo.co.jp/config/’,
hostname => ‘cs.yahoo.co.jp’,
);
$yahoo->id(‘yahoo_id’);
$yahoo->password(‘password’);
$yahoo->login or die “Can’t login Yahoo!Messenger”;

$yahoo->send(‘recipient_yahoo_id’, ‘Konnitiwa Sekai!’);
__END__

Tulisan sampai sini dulu, nanati kalo ada kesempatan di sambung lagi.