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( @_ );
}
[download]

Still the same problem :/

Apologies I missed something whilst looking through Bot::BasicBot's code:

#!/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 strict;
use warnings;
use POE;
use base qw(Bot::BasicBot);

sub irc_disconnected_state {
  my $self = $_[OBJECT];
  if ( $self->{_shutdown} ) {
    $poe_kernel->alarm_remove_all();
    $poe_kernel->alias_remove($_) for $poe_kernel->alias_list();
    return;
  }
  $self->SUPER::irc_disconnected_state( @_ );
}

sub irc_error_state {
  my $self = $_[OBJECT];
  if ( $self->{_shutdown} ) {
    $poe_kernel->alarm_remove_all();
    $poe_kernel->alias_remove($_) for $poe_kernel->alias_list();
    return;
  }
  $self->SUPER::irc_error_state( @_ );
}
[download]

It is icky nasty though.

$poe_kernel->signal($poe_kernel, 'POCOIRC_SHUTDOWN');
[download]

I tried that, and POE::Component::IRC::Cookbook::Disconnecting as well. Bot::BasicBot's documentation under Other Methods says I can call these methods but I'm still not sure how to do it correctly. This is what I tried

#!/usr/bin/perl
use POE;
use warnings;
use strict;


my $bot = Perlbot->new (server => 'swiftco.dal.net', channels => ['#ra
+ndomtestingchannel']);

$SIG{'INT'} = 'Handler';
$SIG{'TERM'} = 'Handler';

sub Handler {
$poe_kernel->signal($poe_kernel,'POCOIRC_SHUTDOWN');
};

$bot->run;

package Perlbot;
use base qw(Bot::BasicBot);
[download]

It still stays there after disconnecting and then reconnects back to IRC.

Did you want something fancier than exit 0;?

exit 0 doesn't send a quit message, and I get the error: (in cleanup) Can't call method "post" on an undefined value at /usr/local/lib/perl5/site_perl/5.10.0/Bot/BasicBot.pm line 1500 during global destruction. I'm looking for a way to shut it down cleanly.

I thought you said that it quit IRC correctly. Is that not the case, or did you replace the shutdown call with the exit?

Something to consider:

If you're shutting it down anyways, does it really really matter if it shuts down quietly or not?

Worst case, you could (copy locally and then) edit the source, and hack in a terminate flag that will avoid reconnect attempts during the shutdown.