summaryrefslogtreecommitdiffstats
path: root/firstseen.pl
diff options
context:
space:
mode:
Diffstat (limited to 'firstseen.pl')
-rw-r--r--firstseen.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/firstseen.pl b/firstseen.pl
index 5b938f6..859ffa2 100644
--- a/firstseen.pl
+++ b/firstseen.pl
@@ -23,12 +23,12 @@ 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-]{2})?\] (Action: )?<?$nick>? /i) {
+ if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-9]{2})?\] (Action: )?<?$nick>? /i) {
if ($date =~ /^irgendwas$/) {
print "$nick belongs to inventory\n";
exit 0;
} else {
- ($time=$line)=~s/(.*)([0-9]{2}:[0-9]{2}(:[0-9]{2})?)(.*)\n/$2/;
+ ($time=$line)=~s/([^:]*)([0-9]{2}:[0-9]{2})(:[0-9]{2})?(.*)\n/$2/;
print "$nick was first seen on $date at $time\n";
exit 0;
}