# HG changeset patch # User HackBot # Date 1358862536 0 # Node ID 295ac4f70bddaad49a28d7ba24a23d573a260912 # Parent 620bcedcadee3a30e6b9323ccce8fb045682d568 sed -i -e \'s/$b $l/$b:$l/\' bin/seen diff -r 620bcedcadee -r 295ac4f70bdd bin/seen --- a/bin/seen Tue Jan 22 13:48:38 2013 +0000 +++ b/bin/seen Tue Jan 22 13:48:56 2013 +0000 @@ -1,2 +1,2 @@ #! /usr/bin/env perl -$n=shift @ARGV; $n=~s/ *$//; @f=split /\s+/, `ls -r /var/irclogs/_esoteric/????-??-??.txt | head -n 30`; for $f (@f) { open F,"<$f"; @l=grep(/^..:..:..: <$n>/i,); close F; if (@l) { $b=$f; $b=~s#.*/##; print "$b $l[-1]"; exit 1; } } print "not lately"; +$n=shift @ARGV; $n=~s/ *$//; @f=split /\s+/, `ls -r /var/irclogs/_esoteric/????-??-??.txt | head -n 30`; for $f (@f) { open F,"<$f"; @l=grep(/^..:..:..: <$n>/i,); close F; if (@l) { $b=$f; $b=~s#.*/##; print "$b:$l[-1]"; exit 1; } } print "not lately";