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, |
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 |
} |
} |