# HG changeset patch # User HackBot # Date 1358862510 0 # Node ID 1dbbfd962f223b7c055340ccb37b1949d53c8d16 # Parent d32a6933bc5d99008698738c027d26ec451b662b sed -i -e \'s/......txt#$1/#/\' bin/seen diff -r d32a6933bc5d -r 1dbbfd962f22 bin/seen --- a/bin/seen Tue Jan 22 13:48:06 2013 +0000 +++ b/bin/seen Tue Jan 22 13:48:30 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#.*/(.*?).txt#$1#; 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";