From 69c75288830e8e316f3c7db479fdacaf2e10b1b8 Mon Sep 17 00:00:00 2001
From: lookshe <mail@lookshe.org>
Date: Wed, 21 Sep 2011 09:17:36 +0200
Subject: fix for special character and reading time in firstseen.pl

---
 firstseen.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'firstseen.pl')

diff --git a/firstseen.pl b/firstseen.pl
index adf8f3e..5b938f6 100644
--- a/firstseen.pl
+++ b/firstseen.pl
@@ -9,8 +9,8 @@ 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 @files;
 
@@ -28,7 +28,7 @@ foreach $line (<file>) {
             print "$nick belongs to inventory\n";
             exit 0;
          } else {
-            ($time=$line)=~s/(.*)([0-9]{2}:[0-9]{2}(:[0-9]{2})?)(.*)\n/$3/;
+            ($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;
          }
-- 
cgit v1.2.3