note
eric256
<p>
I threw a quick echo bot together using Net::OSCAR and it worked like a charm.
</p>
<code>
#!/usr/bin/perl
use strict;
use warnings;
use Net::OSCAR qw(:standard);
sub im_in {
my ($self, $sender, $message, $is_away) = @_;
print "$sender: $message\n";
$self->send_im($sender, "ECHO->$message");
}
my $aim = Net::OSCAR->new();
$aim->set_callback_im_in(\&im_in);
$aim->signon('darwin256','********');
while(1) {
$aim->do_one_loop;
}
</code>
<div class="pmsig"><div class="pmsig-263384">
<br />___________<br />
Eric Hodges
</div></div>
814048
814048