archive/eggdrop
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

typo in regex

Browse source
This commit is contained in:
lookshe 2014-07-01 11:56:22 +02:00
parent c5e05d88d4
commit 3ffde91c79
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
firstseen.pl
View file

@ -38,7 +38,7 @@ foreach $line (<file>) {
if ($line =~ m/^\[00:00(:00)?\] --- /){
($date=$line)=~s/^\[00:00(:00)?\] --- (.*)\n/$2/;
}
if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-]{2})?\] Nick change: .* -> $snick/i) {
if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-9]{2})?\] Nick change: .* -> $snick/i) {
($newnick=$line)=~s/.* Nick change: (.*) -> $snick\n/$1/i;
print "$nick was $newnick\n";
exec($^X, $0, $folder, $chan, $newnick);