--- trunk/bin/irc-logger.pl	2008/03/10 13:02:32	112
+++ trunk/bin/irc-logger.pl	2008/03/10 21:52:49	114
@@ -61,9 +61,9 @@
 my $CHANNEL = '#razmjenavjestina';
 
 if ( $HOSTNAME =~ m/llin/ ) {
-	$irc_config->{nick} = 'irc-logger-dev';
+	$irc_config->{nick} = 'irc-logger-llin';
 #	$irc_config = {
-#		nick => 'irc-logger-dev',
+#		nick => 'irc-logger-llin',
 #		server => 'localhost',
 #		port => 6668,
 #	};
@@ -696,6 +696,12 @@
 		$msg .= prefix( ' | ' , $entry->title );
 		$msg .= prefix( ' | ' , $link );
 #		$msg .= prefix( ' id ' , $entry->id );
+		if ( my $tags = $entry->category ) {
+			$tags =~ s!^\s+!!;
+			$tags =~ s!\s*$! !;
+			$tags =~ s!\s+!// !g;
+			$msg .= prefix( ' ' , $tags );
+		}
 
 		if ( $args->{kernel} && $send_rss_msgs ) {
 			$send_rss_msgs--;
@@ -1009,13 +1015,22 @@
 	irc_376 => sub {
 		_log "<< motd", $_[ARG0], "end";
 	},
+#	irc_433 => sub {
+#		print "# irc_433: ",$_[ARG1], "\n";
+#		warn "## indetify $NICK\n";
+#		$_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" );
+#	},
+#	irc_451	# please register
 	irc_477 => sub {
 		_log "<< irc_477: ",$_[ARG1];
-		$_[KERNEL]->post( $irc => privmsg => 'nickserv', "register $NICK" );
+		_log ">> IDENTIFY $NICK";
+		$_[KERNEL]->post( $irc => privmsg => 'NickServ', "IDENTIFY $NICK" );
 	},
 	irc_505 => sub {
 		_log "<< irc_505: ",$_[ARG1];
-		$_[KERNEL]->post( $irc => privmsg => 'nickserv', "register $NICK" );
+		_log ">> register $NICK";
+		$_[KERNEL]->post( $irc => privmsg => 'NickServ', "register $NICK" );
+#		$_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" );
 #		$_[KERNEL]->post( $irc => privmsg => 'nickserv', "set hide email on" );
 #		$_[KERNEL]->post( $irc => privmsg => 'nickserv', "set email dpavlin\@rot13.org" );
 	},
@@ -1032,15 +1047,10 @@
 		sleep($sleep_on_error);
 		$_[KERNEL]->post( $irc => connect => {} );
 	},
-#	irc_433 => sub {
-#		print "# irc_433: ",$_[ARG1], "\n";
-#		warn "## indetify $NICK\n";
-#		$_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" );
-#	},
-#	irc_451	# please register
 	irc_notice => sub {
-		_log "<< notice",$_[ARG0];
+		_log "<< notice",$_[ARG0],dump($_[ARG1]);
 		if ( $_[ARG0] =~ m!/msg\s+NickServ\s+IDENTIFY!i ) {
+			_log ">> IDENTIFY";
 			$_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" );
 		}
 	},
@@ -1065,6 +1075,8 @@
 
 # http server
 
+_log "WEB archive at $url";
+
 my $httpd = POE::Component::Server::HTTP->new(
 	Port => $http_port,
 	PreHandler => {
@@ -1111,7 +1123,7 @@
 	$style .= ".col-${max_color} { background: $c }\n";
 	$max_color++;
 }
-warn "defined $max_color colors for users...\n";
+_log "WEB defined $max_color colors for users...";
 
 sub root_handler {
 	my ($request, $response) = @_;
@@ -1233,7 +1245,7 @@
 			$feed->add_entry( $feed_entry );
 
 		} else {
-			_log "unknown rss request $r_url";
+			_log "WEB unknown rss request $r_url";
 			$feed->title( "unknown $r_url" );
 			foreach my $c ( @commands ) {
 				my $feed_entry = XML::Feed::Entry->new($type);