use feature ':5.10';
use POE::Session;
+use POE::Component::IRC::Plugin::Logger;
+use POE::Component::IRC::Plugin::BotTraffic;
+use POE::Component::IRC::Plugin::Connector;
+
+use NDIRC::Dispatcher;
# We registered for all events, this will produce some debug info.
sub _default {
$kernel->sig( USR2 => 'sig_usr2' );
$kernel->sig( INT => 'signal_handler' );
+ $irc->plugin_add( 'BotTraffic', POE::Component::IRC::Plugin::BotTraffic->new() );
+ $irc->plugin_add('Logger', POE::Component::IRC::Plugin::Logger->new(
+ Path => 'irclogs',
+ DCC => 0,
+ Private => 1,
+ Public => 1,
+ Sort_by_date => 1,
+ Strip_color => 1,
+ Strip_formatting => 1,
+ ));
+
$heap->{connector} = POE::Component::IRC::Plugin::Connector->new();
$irc->plugin_add( 'Connector' => $heap->{connector} );
return;
}
+sub sig_usr1 {
+ my $kernel = $_[KERNEL];
+ $kernel->yield( 'refresh' );
+}
+
+sub sig_usr2 {
+ my $heap = $_[HEAP];
+
+ open COMMANDS, 'commands';
+ my @commands = split /\W+/, do { local $/; <COMMANDS> };
+ close COMMANDS;
+
+ say "Loading commands from: @commands";
+ my $disp = new NDIRC::Dispatcher;
+ $disp->load(@commands);
+
+ open CHANNELS, 'channels';
+ while (<CHANNELS>){
+ my ($chan, @types) = split /\s+/;
+ say "$chan - @types";
+ $disp->add_channel($chan,\@types);
+ }
+ close CHANNELS;
+
+ $heap->{disp} = $disp;
+}
+
sub sig_DIE {
my( $kernel,$sig, $ex ) = @_[ KERNEL,ARG0, ARG1 ];
say "DIED!!!!!!!!!!!!!!";
my ($kernel, $signal_name, $heap) = @_[KERNEL, ARG0, HEAP];
print "First session caught SIG$signal_name\n";
- $heap->{irc}->yield(privmsg => '#testarlite', "SIGNAL $signal_name!");
-
given($signal_name){
when ('INT') {
+ exit unless $heap->{irc}->connected;
$heap->{irc}->yield(quit => 'Bye!');
$kernel->sig_handled();
}