/[irc-logger]/trunk/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/irc-logger.pl

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

revision 11 by dpavlin, Thu Mar 2 00:52:22 2006 UTC revision 12 by dpavlin, Sun Mar 12 13:33:20 2006 UTC
# Line 18  log all conversation on irc channel Line 18  log all conversation on irc channel
18    
19  ## CONFIG  ## CONFIG
20    
21  my $NICK = 'irc-logger';  my $NICK = 'irc-logger-dev';
22  my $CONNECT =  my $CONNECT =
23    {Server => 'irc.freenode.net',    {Server => 'irc.freenode.net',
24     Nick => $NICK,     Nick => $NICK,
# Line 130  sub get_from_log { Line 130  sub get_from_log {
130    
131                  my $msg = '';                  my $msg = '';
132    
133                  $msg .= "($t";                  $msg .= "{$t";
134                  $msg .= ' ' . $row->{channel} if ($last_row->{channel} ne $row->{channel});                  $msg .= ' ' . $row->{channel} if ($last_row->{channel} ne $row->{channel});
135                  $msg .= ") ";                  $msg .= "} ";
136    
137                  $msg .= $row->{nick} . ': '  if ($last_row->{nick} ne $row->{nick});                  my $append = 1;
138    
139                    if ($last_row->{nick} ne $row->{nick}) {
140                            $msg .= $row->{nick} . ': ';
141                            $append = 0;
142                    }
143    
144                  $msg .= $row->{message};                  $msg .= $row->{message};
145    
146                  push @msgs, $msg;                  if ($append && @msgs) {
147                            $msgs[$#msgs] .= " " . $msg;
148                    } else {
149                            push @msgs, $msg;
150                    }
151    
152                  $last_row = $row;                  $last_row = $row;
153          }          }

Legend:
Removed from v.11  
changed lines
  Added in v.12

  ViewVC Help
Powered by ViewVC 1.1.26