I'm fairly new to perl and I'm working on an AIM bot using Net::AIM. I'm trying to get it so that when the bot gets disconnected it will reconnect itself. The sub gets called, but I get that error. I don't know what's wrong. Can anyone help?
I get the following error:
Can't locate object method "connect" via package "Net::AIM" at handlers/on_disco
nnect.pl line 31.
Here is my code for that sub:
sub on_disconnect
{
my ($self, $event) = @_;
$directory = "logs/$screenname";
if (-e $directory && -d $directory)
{ #Well, it exists and it is a directory
}
else
{
mkdir "logs/$screenname";
}
#write the log.
open (DATA, ">>logs/$screenname/main.txt");
print DATA "$timestamp ****Disconnect****\n";
close(DATA);
print "Disconnect\n";
$self->connect();
}
I get the following error:
Can't locate object method "connect" via package "Net::AIM" at handlers/on_disco
nnect.pl line 31.
Here is my code for that sub:
sub on_disconnect
{
my ($self, $event) = @_;
$directory = "logs/$screenname";
if (-e $directory && -d $directory)
{ #Well, it exists and it is a directory
}
else
{
mkdir "logs/$screenname";
}
#write the log.
open (DATA, ">>logs/$screenname/main.txt");
print DATA "$timestamp ****Disconnect****\n";
close(DATA);
print "Disconnect\n";
$self->connect();
}