I was hesitant to use Net::Aim due to the lack of information on the cpan module page. With AOLIM atleast they should examples of how to use it.
In any case, I implemented a fast copy using Net::Aim and I'm getting an error :PARSE: How many args in ' 2'?
The script hangs after "Login Successful". Any suggestions?
#!/usr/bin/perl
use strict;
use warnings;
use Net::AIM;
my $aim;
my $conn;
print "Subject's name:";
chomp(my $destuser = <STDIN>);
print "Message:";
chomp(my $message = <STDIN>);
print "Starting Net::Aim\n";
$aim = new Net::AIM;
print "Connecting with loging crudentials\n";
$conn = $aim->newconn(Screenname => 'wfgs343R',
Password => 'iamcool');
print "Login sucessfull!\n";
$aim->start;
print "Beginning AIM\n";
$aim->send_im($destuser, $message);
print "Message sent.\n";
| [reply] [Watch: Dir/Any] [d/l] |
#!/usr/bin/perl
use strict;
use Net::AIM;
sub DEBUG() { 1 }
my $aim = new Net::AIM;
$aim->debug(1) if (DEBUG); # provides helpful information
$aim->newconn( Screenname => 'my_name', Password => 'my_password' ) or
+ die "Can't connect to AIM server.\n";
my $conn = $aim->getconn();
$conn->set_handler('config', \&on_config);
$aim->set('config_done', 0);
my $done = 0;
while (! $done) {
$aim->do_one_loop();
if ($aim->get('config_done')) {
$aim->send_im('my_buddy', 'my_message');
sleep 5;
$done = 1;
} else {
$aim->do_one_loop();
}
}
sub on_config {
my ($self, $evt, $from, $to) = @_;
my $str = shift @{$evt->args()};
$self->set_config_str($str, 1);
$self->send_config();
$self->set('config_done', 1);
}
| [reply] [Watch: Dir/Any] [d/l] |
| [reply] [Watch: Dir/Any] [d/l] [select] |