You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
329 B
Plaintext
19 lines
329 B
Plaintext
4 years ago
|
#!/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";
|
||
|
|
}
|