/[irc-logger]/trunk/bin/irc-logger.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/irc-logger.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 51 by dpavlin, Sun Mar 18 16:03:24 2007 UTC revision 52 by dpavlin, Sun Mar 18 16:45:18 2007 UTC
# Line 673  POE::Session->create( inline_states => Line 673  POE::Session->create( inline_states =>
673                          if ( ! defined( $1 ) ) {                          if ( ! defined( $1 ) ) {
674                                  my $sth = $dbh->prepare(qq{ select name,value,changed from meta where nick = ? and channel = ? });                                  my $sth = $dbh->prepare(qq{ select name,value,changed from meta where nick = ? and channel = ? });
675                                  $sth->execute( $nick, $channel );                                  $sth->execute( $nick, $channel );
676                                  $res = "config for $nick ";                                  $res = "config for $nick on $channel";
677                                  while ( my ($n,$v) = $sth->fetchrow_array ) {                                  while ( my ($n,$v) = $sth->fetchrow_array ) {
678                                          $res .= "| $n = $v";                                          $res .= " | $n = $v";
679                                  }                                  }
680                          } elsif ( ! $2 ) {                          } elsif ( ! $2 ) {
681                                  my $val = meta( $nick, $channel, $1 );                                  my $val = meta( $nick, $channel, $1 );

Legend:
Removed from v.51  
changed lines
  Added in v.52

  ViewVC Help
Powered by ViewVC 1.1.26