3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-24 19:52:34 +01:00
pbot/modules/seen.pl
2019-06-26 09:34:19 -07:00

88 lines
1.5 KiB
Perl
Executable File

#!/usr/bin/perl -w
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
use strict;
if ($#ARGV != 0)
{
print "Usage: !seen nick\n";
exit 0;
}
my $nick = $ARGV[0];
my $file = "/home/msmud/irclogs/freenode/##c.log";
open(FILE, "< $file")
or die "Can't open $file for reading: $!\n";
seek(FILE, 0, 2); # seek to end of file
my $pos = tell(FILE) - 2;
my $char;
my $result;
while (seek(FILE, $pos--, 0))
{
read(FILE, $char, 1);
if ($char eq "\n")
{
my $line = <FILE>;
chomp $line;
next if not defined $line;
if ($line =~ m/^(\d\d:\d\d) -!- $nick (.*?)$/i)
{
$result = "date at $1: $nick $2\n";
}
elsif ($line =~ m/^(\d\d:\d\d) <\s*$nick> (.*?)$/i)
{
$result = "date at $1: <$nick> $2\n";
}
elsif ($line =~ m/^(\d\d:\d\d) * $nick (.*?)$/i)
{
$result = "date at $1: $nick $2\n";
}
last if defined $result;
}
}
if (defined $result)
{
my $date;
while (seek(FILE, $pos--, 0))
{
read(FILE, $char, 1);
if ($char eq "\n")
{
my $line = <FILE>;
chomp($line);
if ($line =~ m/^--- Log opened (.*?) \d\d:\d\d:\d\d(.*?)$/)
{
$date = $1 . $2;
last;
}
elsif ($line =~ m/^--- Day changed (.*?)$/)
{
$date = $1;
last;
}
}
}
$result =~ s/^date/$date/;
print $result;
}
else
{
print "I haven't seen $nick.\n";
}
close(FILE);