infobot/scripts/get_entries_from_log

19 lines
329 B
Plaintext

#!/usr/bin/perl
# kevin lenzo
# run infobot.track through here to get the
# enters and updates in order. Adding these
# in order should give you the db as it was.
while (<>) {
next unless s/.*: (enter|update): //;
next if /FAILED/;
chomp;
s/\'; was .*//;
s/\'\s*$//;
s/.*?\'//;
print "$_\n";
}