Silverfox wrote:
> Sanko Robinson wrote:
>
>> "Silverfox" wrote...
>> : hey All, am trying to use the Aim module and getting this error:
>> : Code =
>> : #!/usr/bin/perl -w
>> :
>> : use Net::AIM;
>> : $aim = new Net::AIM;
>> : $aim->newconn(Screenname =>'anything',
>> : Password =>'duh',)
>> : or die "Error: Cannot Connect to Aim!";
>> :
>> : $conn = $aim->getconn();
>> : $conn->set_handler('im_in', \&on_im);
>> :
>> : print "Bot loaded successfully!!\n";
>> : $aim->start;
>> :
>> :
>> : Error =
>> : [laptop@localhost perl]$ ./aim.pl
>> : Bot loaded successfully!!
>> : Can't use an undefined value as a symbol reference at
>> : /usr/lib/perl5/site_perl/5.6.1/Net/AIM/Connection.pm line 781.
>> : (in cleanup) No method called "handler" for object. at
>> : ./aim.pl
>> : line 0
>>
>> You told Net::AIM to execute &on_im when your bot (I'm guessing) receives
>> an Instant Message even though sub on_im is undefined.
>>
>> You may want to define an handler for on_config and on_error. These two
>> aren't managed very well by the module.
> Thanks Sanko, am implementing you suggestion right now. thx for the input.
>
> ~SilverFox
OK...I rewrote the code..created the sub's..this is what am getting..any
ideas:
ERROR:
[laptop@localhost perl]$ ./aim.pl
Including on_config.pl.. OK!
Including on_error.pl.. OK!
Including on_evil.pl.. OK!
Including on_im.pl.. OK!
Including sendim.pl.. OK!
Including commands.pl.. OK!
Including dosleep.pl.. OK!
Including log_im.pl.. OK!
Including warners.pl.. OK!
Bot loaded successfully!!
Use of uninitialized value in split at
/usr/lib/perl5/site_perl/5.6.1/Net/AIM.pm line 702.
Can't use an undefined value as a symbol reference at
/usr/lib/perl5/site_perl/5.6.1/Net/AIM/Connection.pm line 781.
(in cleanup) No method called "handler" for object. at ./aim.pl
line 0
Code:
#!/usr/bin/perl -w
$admin ="iam";
use File::Basename;
chdir(dirname($0));
#to seed random numbers
srand time;
#write admin name to file.
open (DATA, ">admin.txt");
print DATA "$admin";
close(DATA);
#checking for needed directories.
if (-e "handlers" ne 1
|| -e "commands" ne 1
|| -e "extras" ne 1
|| -e "logs" ne 1) {
print "Files are missing sucker: "
. "handlers, commands, extras and logs. ";
exit;
}
#Use Net::AIM to connect to AIM
use Net::AIM;
#Setup usage of above directory/files (handlers,commands extras and log).
@dirs = ("handlers","commands","extras","logs");
foreach $dir (@dirs) {
opendir(DIR, "./$dir");
foreach $file (sort(grep(!/^\./, readdir(DIR)))) {
print "Including $file..";
require "$dir/$file";
print " OK!\n";
}
closedir(DIR);
}
#start a new Net::AIM instance
$aim = new Net::AIM;
#Try to connect to the AIM server.
$aim->newconn(Screenname =>'anything',
Password =>'duh',)
or die "Error: Cannot Connect to Aim!";
#Net::AIM::Connection module reference
$conn = $aim->getconn();
#Set up the handlers for commands issued by the server.
$conn->set_handler('im_in', \&on_im);
$conn->set_handler('error', \&on_error);
$conn->set_handler('eviled', \&on_evil);
$conn->set_handler('config', \&on_config);
print "Bot loaded successfully!!\n\n";
$aim->start;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
