I'm trying to get a small Net::AIM script running...I'm snagging this
code from someone that says it works. When I run it, I get this error:
Can't call method "add_handler" without a package or object reference
at aim_message.pl line 5
1 use Net::AIM;
2 my $nick = "motherofperlbot";
3 my $aim = new Net::AIM;
4 $aim->debug(1);
5 my $conn = $aim->newconn(Screenname => 'motherofperlbot',
6 Password => 'motherofperl')
7 or die "Can't connect to AIM server.\n";
8 $conn->add_handler('config', \&on_config);
9 $aim-start;
10
11 sub on_config {
12 my ($self, $event) = @_;
13 my ($str) = $event->args;
14 $self->set_config($str);
15 $self->send_im($nick, 'testing...');
16 }
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
