18 |
|
|
19 |
## CONFIG |
## CONFIG |
20 |
|
|
21 |
my $NICK = 'irc-logger-dev'; |
my $NICK = 'irc-logger'; |
22 |
my $CONNECT = |
my $CONNECT = |
23 |
{Server => 'irc.freenode.net', |
{Server => 'irc.freenode.net', |
24 |
Nick => $NICK, |
Nick => $NICK, |
217 |
my $append = 1; |
my $append = 1; |
218 |
|
|
219 |
my $nick = $row->{nick}; |
my $nick = $row->{nick}; |
220 |
$nick =~ s/^_*(.*?)_*$/$1/; |
if ($nick =~ s/^_*(.*?)_*$/$1/) { |
221 |
|
$row->{nick} = $nick; |
222 |
|
} |
223 |
|
|
224 |
if ($last_row->{nick} ne $nick) { |
if ($last_row->{nick} ne $nick) { |
225 |
# obfu way to find format for me_nick if needed or fallback to default |
# obfu way to find format for me_nick if needed or fallback to default |
226 |
my $fmt = $row->{me} ? ( $args->{fmt}->{me_nick} || $args->{fmt}->{nick} ) : $args->{fmt}->{nick}; |
my $fmt = $row->{me} ? ( $args->{fmt}->{me_nick} || $args->{fmt}->{nick} ) : $args->{fmt}->{nick}; |