diff options
Diffstat (limited to 'firstseen.pl')
| -rw-r--r-- | firstseen.pl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/firstseen.pl b/firstseen.pl index 1e3d305..7d8f3b6 100644 --- a/firstseen.pl +++ b/firstseen.pl @@ -9,9 +9,10 @@ if ($#ARGV ne 2){ my $chan=$ARGV[1]; my $folder=$ARGV[0]; my $nick=$ARGV[2]; -$nick=~s/\\/\\\\/g; -$nick=~s/\|/\\\|/g; -$nick=~s/\^/\\\^/g; +my $snick=$nick; +$snick=~s/\\/\\\\/g; +$snick=~s/\|/\\\|/g; +$snick=~s/\^/\\\^/g; my @files; @@ -24,7 +25,7 @@ my $line; open(file, $file) or die("Could not open file $file"); foreach $line (<file>) { - if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-9]{2})?\] (Action: )?<?$nick>? /i) { + if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-9]{2})?\] (Action: )?<?$snick>? /i) { if ($date =~ /^irgendwas$/) { print "$nick belongs to inventory\n"; exit 0; @@ -37,8 +38,8 @@ 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: .* -> $nick/i) { - ($newnick=$line)=~s/.* Nick change: (.*) -> $nick\n/$1/i; + if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-]{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); exit 0 |