X-Git-Url: https://ruin.nu/git/?p=NDIRC.git;a=blobdiff_plain;f=CommonStates.pm;h=dd35657a0ac6f96d44926d9612a41b5e96a3ae2b;hp=7da1c512788281d2d9954689e4a9a59824576e10;hb=dffb2b9f212ffb49763d329bc8ca044d95e72da1;hpb=139b1bb64717ec8be8d97d2d9efc6caaf9e800ca

diff --git a/CommonStates.pm b/CommonStates.pm
index 7da1c51..dd35657 100644
--- a/CommonStates.pm
+++ b/CommonStates.pm
@@ -23,6 +23,11 @@ use warnings;
 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 POE::Component::IRC::Plugin::DCC;
+
 use NDIRC::Dispatcher;
 
 # We registered for all events, this will produce some debug info.
@@ -52,6 +57,18 @@ sub _start {
 	$kernel->sig( USR2 => 'sig_usr2' );
 	$kernel->sig( INT => 'signal_handler' );
 
+	$irc->plugin_add( 'BotTraffic', POE::Component::IRC::Plugin::BotTraffic->new() );
+	$irc->plugin_add( 'DCC', POE::Component::IRC::Plugin::DCC->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} );
 
@@ -64,6 +81,11 @@ sub _start {
 	return;
 }
 
+sub sig_usr1 {
+	my $kernel = $_[KERNEL];
+	$kernel->yield( 'refresh' );
+}
+
 sub sig_usr2 {
 	my $heap = $_[HEAP];
 
@@ -71,12 +93,12 @@ sub sig_usr2 {
 	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>){
-		print;
 		my ($chan, @types) = split /\s+/;
 		say "$chan - @types";
 		$disp->add_channel($chan,\@types);
@@ -104,10 +126,9 @@ sub signal_handler {
 	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();
 		}