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 ++--
 lastseen.pl  | 2 +-
 lastspoke.pl | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

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;
          }
diff --git a/lastseen.pl b/lastseen.pl
index 293bcdb..cf23ebe 100644
--- a/lastseen.pl
+++ b/lastseen.pl
@@ -10,8 +10,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;
 
diff --git a/lastspoke.pl b/lastspoke.pl
index 77a6a9b..5df925f 100644
--- a/lastspoke.pl
+++ b/lastspoke.pl
@@ -10,8 +10,8 @@ if ($#ARGV ne 2){
 my $folder=$ARGV[0];
 my $chan=$ARGV[1];
 my $nick=$ARGV[2];
-$nick=~s/\|/\\\|/g;
 $nick=~s/\\/\\\\/g;
+$nick=~s/\|/\\\|/g;
 
 my @files;
 
-- 
cgit v1.2.3