in reply to How do I shut down a Bot::BasicBot?
This will perhaps work:
#!/usr/bin/perl package main; my $bot = Perlbot->new (no_run => 0, server => 'swiftco.dal.net', chan +nels => ['#randomtestingchannel']); $SIG{'INT'} = 'Handler'; $SIG{'TERM'} = 'Handler'; sub Handler { $bot->{_shutdown} = 1; $bot->shutdown('Leaving.'); }; $bot->run; package Perlbot; use POE; use base qw(Bot::BasicBot); sub irc_disconnected_state { my $self = $_[OBJECT]; return if $self->{_shutdown}; $self->SUPER::irc_disconnected_state( @_ ); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: How do I shut down a Bot::BasicBot?
by myuserid7 (Scribe) on Jul 16, 2010 at 08:43 UTC | |
by bingos (Vicar) on Jul 16, 2010 at 15:52 UTC | |
by myuserid7 (Scribe) on Jul 16, 2010 at 16:53 UTC |
In Section
Seekers of Perl Wisdom