--- trunk/bin/irc-logger.pl	2008/03/07 09:50:53	90
+++ trunk/bin/irc-logger.pl	2008/03/07 10:13:45	91
@@ -897,18 +897,27 @@
 			$_rss = undef;
 			$dbh->do( qq{ update feeds set last_update = now() - delay } );
 			$res = "OK, cleaned RSS cache";
+		} elsif ($msg =~ m/^rss-list/) {
+			my $sth = $dbh->prepare(qq{ select url,name,last_update,active from feeds });
+			$sth->execute;
+			while (my @row = $sth->fetchrow_array) {
+				$_[KERNEL]->post( $IRC_ALIAS => privmsg => $nick, join(' | ',@row) );
+			}
+			$res = '';
 		} elsif ($msg =~ m!^rss-(add|remove|stop|start)\s+(http://\S+)\s*(.*)!) {
 			my $sql = {
 				add		=> qq{ insert into feeds (url,name) values (?,?) },
 #				remove	=> qq{ delete from feeds				where url = ? and name = ? },
-				start	=> qq{ update feeds set active = true	where url = ? -- ? },
-				stop	=> qq{ update feeds set active = false	where url = ? -- ? },
+				start	=> qq{ update feeds set active = true	where url = ? },
+				stop	=> qq{ update feeds set active = false	where url = ? },
 				
 			};
 			if (my $q = $sql->{$1} ) {
 				my $sth = $dbh->prepare( $q );
-				warn "## SQL $q ( $2 | $3 )\n";
-				eval { $sth->execute( $2, $3 ) };
+				my @data = ( $2 );
+				push @data, $3 if ( $q =~ s/\?//g == 2 );
+				warn "## $1 SQL $q with ",dump( @data ),"\n";
+				eval { $sth->execute( @data ) };
 			}
 
 			$res = "OK, RSS $1 : $2 - $3";