Actions

Half Life Log Parsing: Difference between revisions

From Rabbi Blog

(→‎Purpose: test of new account)
 
(9 intermediate revisions by one other user not shown)
Line 1: Line 1:
=Purpose=
=Purpose=
Awhile ago I started a project called "[[Atlashl|AtlasHL]]" and today while I was sick I decided to go back and look at some of the scripting I had done two years ago.
Awhile ago I started a project called "[[Atlashl|AtlasHL]]" and today while I was sick I decided to go back and look at some of the scripting I had done two years ago.  Without too much detail, I did today in two hours what I did in about two months back then.


I'm not a regex guru by any stretch of the imagination and while there are better ways to do what I'm doing, I do actually have some reasons for breaking some specific log lines the way I do.  Someday I'll learn efficiency, but for right now, I'm going through this in the worst way possible: stepped if/elsif statements until the end.
I'm not a Regex Guru by any stretch of the imagination and while there are better ways to do what I'm doing, I do actually have some reasons for breaking some specific log lines the way I do.  Someday I'll learn efficiency, but for right now, I'm going through this in the worst way possible: stepped if/elsif statements until the end.


==Current Status==
==Current Status==
Line 29: Line 29:
my ($COPYRIGHT)="2007";
my ($COPYRIGHT)="2007";
      
      
my($LOGDIR)="U:/Programs/atlashl/pb/oldlogs";
#my($LOGDIR)="U:/Programs/atlashl/pb/oldlogs";
#my($LOGDIR)="V:/Programs/Perl/logscanner/source/logs";
my($LOGDIR)="input";
my($LOGFILE_IN)=();        #logfile input vars
my($LOGFILE_IN)=();        #logfile input vars
my($FILE)=();
my($FILE)=();
Line 38: Line 40:
my ($TODO_OUT)="todo.txt";
my ($TODO_OUT)="todo.txt";
my ($DONE_OUT)="done.csv";
my ($DONE_OUT)="done.csv";
my @LINES=();
my $LINES=();
my $LOGLINE=();
my $lineno = 0; # The line number in the log file   


##################################
##################################
Line 51: Line 59:
@FILES = sort (@FILES); # reverse the array
@FILES = sort (@FILES); # reverse the array


my $lineno = 0; # The line number in the log file
$lineno = 0; # The line number in the log file


foreach $FILE (@FILES)  
foreach $FILE (@FILES)  
     {
     {
$LOGFILE_IN="$LOGDIR/$FILE";
$LOGFILE_IN="$LOGDIR/$FILE";
     $lineno=0;
     my $LOGLINE=();
      
      
     ########### Open Logfile for reading ############################################
     ########### Open Logfile for reading ############################################
Line 66: Line 73:
         while (<LOGFILE_IN>)
         while (<LOGFILE_IN>)
    {
    {
         $lineno++; # increment the line number primarily for debugging
        $LINES[$lineno]=$_;           
    $LOGLINE=$_;
        print $LINES[$lineno];
        $lineno++;
        }
       
        $lineno=0;
       
        foreach $LINES (@LINES)
        {
        $LOGLINE=$LINES[$lineno];
        &CHECKLINE($LOGLINE);
         $lineno++;       
        }
   
           
        #$lineno++; # increment the line number primarily for debugging
    #$LOGLINE=$_;
    ##### Log File Comment #####
    ##### Log File Comment #####


         #L 05/11/2007 - 06:45:28: Server cvars start
         #L 05/11/2007 - 06:45:28: Server cvars start
         if ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvars start/i)
   
           
    }   
         close (LOGFILE_IN);
    #    close ($FILE);       
    #Close of log file
       
 
    #End of log files
   
   
##################################################
################### Main Loop End ################
##################################################
 
 
sub printmissing
    {
    #Alternate the comment if you really want to see the area that sent the
    #line, otherwise just output the $_
   
    #print MISSING "$printout\n$_\n";
    print "Missing $_\n";
    }
   
 
 
sub CHECKLINE
    {
      if ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvars start/i)
             {
             {
             print DONE_OUT "001A,$_";
             print DONE_OUT "001A,$LINES[$lineno];";
             }
             }
         #L 05/11/2007 - 06:45:28: Server cvars end
         #L 05/11/2007 - 06:45:28: Server cvars end
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvars end/i)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvars end/i)
             {
             {
             print DONE_OUT "001B,$_";
             print DONE_OUT "001B,$LINES[$lineno];";
             }
             }
         #L 05/11/2007 - 06:45:28: Server cvar "_tutor_bomb_viewable_check_interval" = "0.5"
         #L 05/11/2007 - 06:45:28: Server cvar "_tutor_bomb_viewable_check_interval" = "0.5"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvar \"(.*)\" = \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvar \"(.*)\" = \"(.*)\"/)
             {
             {
             print DONE_OUT "001C,$_";
             print DONE_OUT "001C,$LINES[$lineno];";
             }
             }
         #L 11/03/2007 - 18:12:22: server_cvar: "sv_accelerate" "5"
         #L 11/03/2007 - 18:12:22: server_cvar: "sv_accelerate" "5"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): server_cvar: \"(.*)\" \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): server_cvar: \"(.*)\" \"(.*)\"/)
             {
             {
             print DONE_OUT "001D,$_";
             print DONE_OUT "001D,$LINES[$lineno];";
             }           
             }           
         #L 11/03/2007 - 20:46:17: "r_AirboatViewDampenFreq" = "7.0"
         #L 11/03/2007 - 20:46:17: "r_AirboatViewDampenFreq" = "7.0"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" = \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" = \"(.*)\"/)
             {
             {
             print DONE_OUT "001D,$_";
             print DONE_OUT "001D,$LINES[$lineno];";
             }           
             }           
         #L 05/11/2007 - 06:45:28: Log file started (file "logs\L0511019.log") (game "cstrike") (version "47/1.1.2.5/3647")
         #L 05/11/2007 - 06:45:28: Log file started (file "logs\L0511019.log") (game "cstrike") (version "47/1.1.2.5/3647")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Log file started \(file \"(.*)\"\) \(game \"(.*)\"\) \(version \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Log file started \(file \"(.*)\"\) \(game \"(.*)\"\) \(version \"(.*)\"\)/)
             {
             {
             print DONE_OUT "002A,$_";
             print DONE_OUT "002A,$LINES[$lineno];";
             }
             }
         #L 05/11/2007 - 07:11:12: Log file closed
         #L 05/11/2007 - 07:11:12: Log file closed
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Log file closed/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Log file closed/)
             {
             {
             print DONE_OUT "002B,$_";
             print DONE_OUT "002B,$LINES[$lineno];";
             }
             }
         #L 10/30/2007 - 10:11:25: server_message: "quit"
         #L 10/30/2007 - 10:11:25: server_message: "quit"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): server_message: \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): server_message: \"(.*)\"/)
             {
             {
             print DONE_OUT "002C,$_";
             print DONE_OUT "002C,$LINES[$lineno];";
             }         
             }         
         #L 07/08/2007 - 03:29:10: Server shutdown     
         #L 07/08/2007 - 03:29:10: Server shutdown     
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server shutdown/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server shutdown/)
             {
             {
             print DONE_OUT "002C,$_";
             print DONE_OUT "002C,$LINES[$lineno];";
             }                 
             }                 
         #L 05/11/2007 - 06:45:28: Loading map "de_dust"
         #L 05/11/2007 - 06:45:28: Loading map "de_dust"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Loading map \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Loading map \"(.*)\"/)
             {
             {
             print DONE_OUT "003A,$_";
             print DONE_OUT "003A,$LINES[$lineno];";
             }
             }
         #L 05/11/2007 - 06:45:30: Started map "de_dust" (CRC "-1641307065")
         #L 05/11/2007 - 06:45:30: Started map "de_dust" (CRC "-1641307065")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Started map \"(.*)\" \(CRC \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Started map \"(.*)\" \(CRC \"(.*)\"\)/)
             {
             {
             print DONE_OUT "003B,$_";
             print DONE_OUT "003B,$LINES[$lineno];";
             }
             }
         #L 04/25/2007 - 08:30:44: Bad Rcon: "rcon 578394037 "password" changelevel de_dust " from "65.175.222.9:61147"
         #L 04/25/2007 - 08:30:44: Bad Rcon: "rcon 578394037 "password" changelevel de_dust " from "65.175.222.9:61147"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Bad Rcon: \"(.*) \"(.*)\" (.*)\" from \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Bad Rcon: \"(.*) \"(.*)\" (.*)\" from \"(.*)\"/)
             {
             {
             print DONE_OUT "004B,$_";
             print DONE_OUT "004B,$LINES[$lineno];";
             }
             }
          
          
         #L 10/29/2007 - 23:23:24: rcon from "70.91.92.66:1941": command "log on"
         #L 10/29/2007 - 23:23:24: rcon from "70.91.92.66:1941": command "log on"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): rcon from \"(.*)\": command \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): rcon from \"(.*)\": command \"(.*)\"/)
             {
             {
             print DONE_OUT "004C,$_";
             print DONE_OUT "004C,$LINES[$lineno];";
             }
             }
         #L 05/06/2005 - 21:27:47: Rcon: "rcon 4018452088 "toyota" log" from "24.253.156.83:7130"
         #L 05/06/2005 - 21:27:47: Rcon: "rcon 4018452088 "toyota" log" from "24.253.156.83:7130"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Rcon: \"(.*) \"(.*)\" (.*)\" from \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Rcon: \"(.*) \"(.*)\" (.*)\" from \"(.*)\"/)
             {
             {
             print DONE_OUT "004D,$_";
             print DONE_OUT "004D,$LINES[$lineno];";
             }
             }
         #L 11/04/2007 - 20:25:34: rcon from "66.30.92.200:2058": Bad Password
         #L 11/04/2007 - 20:25:34: rcon from "66.30.92.200:2058": Bad Password
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): rcon from \"(.*)\": Bad Password/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): rcon from \"(.*)\": Bad Password/)
             {
             {
             print DONE_OUT "004E,$_";
             print DONE_OUT "004E,$LINES[$lineno];";
             }         
             }         
         #L 10/28/2007 - 20:39:28: [META] dll: Updating plugins...
         #L 10/28/2007 - 20:39:28: [META] dll: Updating plugins...
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[META|CSTRIKE|CSX|FUN\] (.*)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[META|CSTRIKE|CSX|FUN\] (.*)/)
             {
             {
             print DONE_OUT "007A,$_";
             print DONE_OUT "007A,$LINES[$lineno];";
             }
             }
         #L 11/04/2007 - 01:44:28: "FoCA|LocoYokel<158><STEAM_ID_PENDING><>" connected, address "72.177.119.42:12381"
         #L 11/04/2007 - 01:44:28: "FoCA|LocoYokel<158><STEAM_ID_PENDING><>" connected, address "72.177.119.42:12381"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" connected, address \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" connected, address \"(.*)\"/)
             {
             {
             print DONE_OUT "050A,$_";
             print DONE_OUT "050A,$LINES[$lineno];";
             }
             }
         #L 11/04/2007 - 02:00:04: "-Ðinosaur<161><STEAM_0:1:3908269><>" STEAM USERID validated
         #L 11/04/2007 - 02:00:04: "-Ðinosaur<161><STEAM_0:1:3908269><>" STEAM USERID validated
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" STEAM USERID validated/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" STEAM USERID validated/)
             {
             {
             print DONE_OUT "050B,$_";
             print DONE_OUT "050B,$LINES[$lineno];";
             }
             }
         #L 11/02/2007 - 23:50:41: "FoCA|rochvegas j<9><STEAM_0:0:63048><>" entered the game
         #L 11/02/2007 - 23:50:41: "FoCA|rochvegas j<9><STEAM_0:0:63048><>" entered the game
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" entered the game$/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" entered the game$/)
             {
             {
             print DONE_OUT "051A,$_";
             print DONE_OUT "051A,$LINES[$lineno];";
             }
             }
         #L 11/04/2007 - 01:44:12: "violeNt| Conen.<157><STEAM_0:0:5752133><TERRORIST>" disconnected (reason "Disconnect by user.")
         #L 11/04/2007 - 01:44:12: "violeNt| Conen.<157><STEAM_0:0:5752133><TERRORIST>" disconnected (reason "Disconnect by user.")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected \(reason \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected \(reason \"(.*)\"/)
             {
             {
             print DONE_OUT "052A,$_";
             print DONE_OUT "052A,$LINES[$lineno];";
             }
             }
         #L 05/11/2007 - 06:46:43: "(* ) ( *)<1><STEAM_0:1:273255><>" disconnected
         #L 05/11/2007 - 06:46:43: "(* ) ( *)<1><STEAM_0:1:273255><>" disconnected
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected$/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected$/)
             {
             {
             print DONE_OUT "052A,$_";
             print DONE_OUT "052A,$LINES[$lineno];";
             }
             }
         #L 10/28/2007 - 21:28:34: Kick: "Ciggarette  / Gago<202><STEAM_0:1:15378592><>" was kicked by "Console"
         #L 10/28/2007 - 21:28:34: Kick: "Ciggarette  / Gago<202><STEAM_0:1:15378592><>" was kicked by "Console"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Kick: "(.*)" was kicked by \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Kick: "(.*)" was kicked by \"(.*)\"/)
             {
             {
             print DONE_OUT "052B,$_";
             print DONE_OUT "052B,$LINES[$lineno];";
             }
             }
         #L 05/11/2007 - 06:45:30: Ban: "<><STEAM_0:0:1004474><>" was banned "permanently" by "Console"
         #L 05/11/2007 - 06:45:30: Ban: "<><STEAM_0:0:1004474><>" was banned "permanently" by "Console"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Ban: "(.*)" was banned \"(.*)\" by \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Ban: "(.*)" was banned \"(.*)\" by \"(.*)\"/)
             {
             {
             print DONE_OUT "052C,$_";
             print DONE_OUT "052C,$LINES[$lineno];";
             }
             }
         #L 05/20/2007 - 21:54:31: Ban: "VZLA.milk<192><STEAM_0:1:14553521><>" was kicked and banned "for 5.00 minutes" by "Console"
         #L 05/20/2007 - 21:54:31: Ban: "VZLA.milk<192><STEAM_0:1:14553521><>" was kicked and banned "for 5.00 minutes" by "Console"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Ban: "(.*)" was kicked and banned \"(.*)\" by \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Ban: "(.*)" was kicked and banned \"(.*)\" by \"(.*)\"/)
             {
             {
             print DONE_OUT "052D,$_";
             print DONE_OUT "052D,$LINES[$lineno];";
             }         
             }         
          
          
         #L 11/03/2007 - 23:41:06: "FoCA| TADMG<113><STEAM_0:0:85065><TERRORIST>" disconnected (reason "No Steam logon
         #L 11/03/2007 - 23:41:06: "FoCA| TADMG<113><STEAM_0:0:85065><TERRORIST>" disconnected (reason "No Steam logon
         ###CS:S output appears to include a line carriage when announcing STEAM account issues###
         ###HL2DM & CS:S output appears to include a line carriage when announcing STEAM account issues###
        # Confirmed with Alfred Reynolds 11-6-07
        #
        # Hey, you need to parse all the text between the quotes for this one, the reason string on disconnect
        # is shown in the users UI and we are moving more lines to have breaks for readability. - Alfred
          
          
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected \(reason \"(.*)$/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected \(reason \"(.*)$/)
             {
             {
             print DONE_OUT "052A,$_";
             print DONE_OUT "052Z,$LINES[$lineno];";
             }             
             }             
         ##L 11/03/2007 - 01:44:44: Banid: "<><STEAM_0:1:9283492><>" was banned "permanently" by "Console"
         ##L 11/03/2007 - 01:44:44: Banid: "<><STEAM_0:1:9283492><>" was banned "permanently" by "Console"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Banid: "(.*)" was banned \"(.*)\" by \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Banid: "(.*)" was banned \"(.*)\" by \"(.*)\"/)
             {
             {
             print DONE_OUT "052D,$_";
             print DONE_OUT "052D,$LINES[$lineno];";
             }
             }
         #L 11/03/2007 - 00:03:32: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" committed suicide with "hegrenade"
         #L 11/03/2007 - 00:03:32: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" committed suicide with "hegrenade"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" committed suicide with \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" committed suicide with \"(.*)\"/)
             {
             {
             print DONE_OUT "053A,$_";
             print DONE_OUT "053A,$LINES[$lineno];";
             }
             }
         #L 11/02/2007 - 23:50:46: "FoCA|BigE[GH]<18><STEAM_0:0:28458><Unassigned>" joined team "CT"
         #L 11/02/2007 - 23:50:46: "FoCA|BigE[GH]<18><STEAM_0:0:28458><Unassigned>" joined team "CT"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" joined team \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" joined team \"(.*)\"/)
             {
             {
             print DONE_OUT "054A,$_";
             print DONE_OUT "054A,$LINES[$lineno];";
             }
             }
         #L 05/02/2005 - 21:45:01: "FoCA|Rolyak<986><STEAM_0:1:72275><Axis>" changed role to "#class_axis_k43"
         #L 05/02/2005 - 21:45:01: "FoCA|Rolyak<986><STEAM_0:1:72275><Axis>" changed role to "#class_axis_k43"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" changed role to \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" changed role to \"(.*)\"/)
             {
             {
             print DONE_OUT "055A,$_";
             print DONE_OUT "055A,$LINES[$lineno];";
             }
             }
         #L 11/03/2007 - 01:59:19: "Anarico<42><STEAM_0:1:412737><CT>" changed name to "FoCA|Anarico"
         #L 11/03/2007 - 01:59:19: "Anarico<42><STEAM_0:1:412737><CT>" changed name to "FoCA|Anarico"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" changed name to \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" changed name to \"(.*)\"/)
             {
             {
             print DONE_OUT "056A,$_";
             print DONE_OUT "056A,$LINES[$lineno];";
             }
             }
         #L 11/02/2007 - 23:54:24: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" killed "Alice<8><STEAM_0:0:2357615><TERRORIST>" with "m4a1"     
         #L 11/02/2007 - 23:54:24: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" killed "Alice<8><STEAM_0:0:2357615><TERRORIST>" with "m4a1"     
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" killed \"(.*)\" with \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" killed \"(.*)\" with \"(.*)\"/)
             {
             {
             print DONE_OUT "057A,$_";
             print DONE_OUT "057A,$LINES[$lineno];";
             }
             }
         #L 11/02/2007 - 23:54:24: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" killed "Alice<8><STEAM_0:0:2357615><TERRORIST>" with "m4a1" (headshot)
         #L 11/02/2007 - 23:54:24: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" killed "Alice<8><STEAM_0:0:2357615><TERRORIST>" with "m4a1" (headshot)
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" killed \"(.*)\" with \"(.*)\" \((.*)\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" killed \"(.*)\" with \"(.*)\" \((.*)\)/)
             {
             {
             print DONE_OUT "057B,$_";
             print DONE_OUT "057B,$LINES[$lineno];";
             }
             }
         #L 11/02/2007 - 23:52:36: "FoCA|Rabbi Bob<17><STEAM_0:1:273255><TERRORIST>" triggered "Got_The_Bomb"
         #L 11/02/2007 - 23:52:36: "FoCA|Rabbi Bob<17><STEAM_0:1:273255><TERRORIST>" triggered "Got_The_Bomb"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" triggered \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" triggered \"(.*)\"/)
             {
             {
             print DONE_OUT "060A,$_";
             print DONE_OUT "060A,$LINES[$lineno];";
             }
             }
         #L 05/02/2005 - 21:47:06: "FoCA|Rolyak<986><STEAM_0:1:72275><Allies>" triggered a "dod_capture_area" - "POINT_AVALANCHE_AXISGUNPOSITION"
         #L 05/02/2005 - 21:47:06: "FoCA|Rolyak<986><STEAM_0:1:72275><Allies>" triggered a "dod_capture_area" - "POINT_AVALANCHE_AXISGUNPOSITION"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" triggered a \"(.*)\" - \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" triggered a \"(.*)\" - \"(.*)\"/)
            {
            print DONE_OUT "060BA,$LINES[$lineno];";
            }
        #L 05/02/2005 - 20:57:29: "FoCA|moondance<970><STEAM_0:0:1852522><Axis>" triggered a "dod_object"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" triggered a \"(.*)\"/)
             {
             {
             print DONE_OUT "060BA,$_";
             print DONE_OUT "060BA,$LINES[$lineno];";
             }
             }
         #L 11/03/2007 - 00:51:39: Team "TERRORIST" triggered "Target_Bombed" (CT "0") (T "0")
         #L 11/03/2007 - 00:51:39: Team "TERRORIST" triggered "Target_Bombed" (CT "0") (T "0")
         #L 05/11/2007 - 06:50:22: Team "CT" triggered "Target_Saved" (CT "1") (T "0")
         #L 05/11/2007 - 06:50:22: Team "CT" triggered "Target_Saved" (CT "1") (T "0")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
             {
             {
             print DONE_OUT "061A,$_";
             print DONE_OUT "061A,$LINES[$lineno];";
             }
             }
         #L 11/03/2007 - 00:06:35: Team "CT" triggered "CTs_Win" (CT "12") (T "6")
         #L 11/03/2007 - 00:06:35: Team "CT" triggered "CTs_Win" (CT "12") (T "6")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
             {
             {
             print DONE_OUT "061B,$_";
             print DONE_OUT "061B,$LINES[$lineno];";
             }
             }
         #L 05/02/2005 - 21:47:06: Team "Allies" triggered a "dod_capture_area" - "POINT_AVALANCHE_AXISGUNPOSITION"
         #L 05/02/2005 - 21:47:06: Team "Allies" triggered a "dod_capture_area" - "POINT_AVALANCHE_AXISGUNPOSITION"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered a \"(.*)\" - \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered a \"(.*)\" - \"(.*)\"/)
            {
            print DONE_OUT "061C,$LINES[$lineno];";
            }
        #L 05/30/2005 - 20:51:57: Team "Allies" triggered a "dod_capture_area"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered a \"(.*)\"$/)
             {
             {
             print DONE_OUT "061C,$_";
             print DONE_OUT "061C,$LINES[$lineno];";
             }
             }
         #L 05/11/2007 - 06:46:52: World triggered "Round_Start"
         #L 05/11/2007 - 06:46:52: World triggered "Round_Start"
         #L 05/11/2007 - 06:46:43: World triggered "Round_End"
         #L 05/11/2007 - 06:46:43: World triggered "Round_End"
         #L 11/02/2007 - 23:50:47: World triggered "Game_Commencing"             
         #L 11/02/2007 - 23:50:47: World triggered "Game_Commencing"             
         #L 11/04/2007 - 02:06:26: World triggered "Intermission_Time_Limit"
         #L 11/04/2007 - 02:06:26: World triggered "Intermission_Time_Limit"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): World triggered \"(.*)\"$/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): World triggered \"(.*)\"$/)
             {
             {
             print DONE_OUT "062A,$_";
             print DONE_OUT "062A,$LINES[$lineno];";
             }
             }
       #L 05/11/2007 - 06:46:43: World triggered "Round_Draw" (CT "0") (T "0")
       #L 05/11/2007 - 06:46:43: World triggered "Round_Draw" (CT "0") (T "0")
       #L 04/21/2007 - 07:43:18: World triggered "Game_Commencing" (CT "0") (T "0")
       #L 04/21/2007 - 07:43:18: World triggered "Game_Commencing" (CT "0") (T "0")


         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): World triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): World triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
             {
             {
             print DONE_OUT "062B,$_";
             print DONE_OUT "062B,$LINES[$lineno];";
             }
             }


         #L 11/04/2007 - 01:48:19: "FoCA|LocoYokel<158><STEAM_0:0:4864772><CT>" say "test"
         #L 11/04/2007 - 01:48:19: "FoCA|LocoYokel<158><STEAM_0:0:4864772><CT>" say "test"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" say \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" say \"(.*)\"/)
             {
             {
             print DONE_OUT "063A,$_";
             print DONE_OUT "063A,$LINES[$lineno];";
             }
             }
         #L 11/04/2007 - 01:52:25: "[CoFR]FoxyFire<156><STEAM_0:0:1362382><CT>" say_team "go back door"
         #L 11/04/2007 - 01:52:25: "[CoFR]FoxyFire<156><STEAM_0:0:1362382><CT>" say_team "go back door"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" say_team \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" say_team \"(.*)\"/)
             {
             {
             print DONE_OUT "063B,$_";
             print DONE_OUT "063B,$LINES[$lineno];";
             }
             }
         #L 05/11/2007 - 07:11:12: Team "CT" scored "6" with "0" players
         #L 05/11/2007 - 07:11:12: Team "CT" scored "6" with "0" players
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" scored \"(.*)\" with \"(.*)\" players/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" scored \"(.*)\" with \"(.*)\" players/)
             {
             {
             print DONE_OUT "065A,$_";
             print DONE_OUT "065A,$LINES[$lineno];";
             }
             }
         #L 05/02/2005 - 21:47:37: "Allies" scored "55" with "2" players
         #L 05/02/2005 - 21:47:37: "Allies" scored "55" with "2" players
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" scored \"(.*)\" with \"(.*)\" players/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" scored \"(.*)\" with \"(.*)\" players/)
             {
             {
             print DONE_OUT "065A,$_";
             print DONE_OUT "065A,$LINES[$lineno];";
             }
             }


############### AMXMODX ####################
############### AMXMODX ####################
         #L 10/28/2007 - 21:23:17: [admincmd.amxx] Cmd: "[FoCA|CoFR]Barnes<189><STEAM_0:1:343958><>" changelevel "de_dust2"
         #L 10/28/2007 - 21:23:17: [admincmd.amxx] Cmd: "[FoCA|CoFR]Barnes<189><STEAM_0:1:343958><>" changelevel "de_dust2"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" changelevel \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" changelevel \"(.*)\"/)
             {
             {
             print DONE_OUT "A03A,$_";
             print DONE_OUT "A03A,$LINES[$lineno];";
             }             
             }             
         #L 06/03/2007 - 23:48:29: [admincmd.amxx] Cmd: "Simple Daddy<305><STEAM_0:1:215772><>" set cvar (name "sv_gravity") (value "200")
         #L 06/03/2007 - 23:48:29: [admincmd.amxx] Cmd: "Simple Daddy<305><STEAM_0:1:215772><>" set cvar (name "sv_gravity") (value "200")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" set cvar \(name \"(.*)\"\) \(value \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" set cvar \(name \"(.*)\"\) \(value \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A03A,$_";
             print DONE_OUT "A03A,$LINES[$lineno];";
             }             
             }             


         #L 10/28/2007 - 20:41:06: [admincmd.amxx] Cmd: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" ask for players list
         #L 10/28/2007 - 20:41:06: [admincmd.amxx] Cmd: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" ask for players list
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" ask for players list/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" ask for players list/)
             {
             {
             print DONE_OUT "A07A,$_";
             print DONE_OUT "A07A,$LINES[$lineno];";
             }             
             }             
          
          
         #L 05/11/2007 - 06:46:18: [admin.amxx] Login: "(* ) ( *)<1><STEAM_0:1:273255><>" became an admin (account "STEAM_0:1:273255") (access "bcdefghijklmnopqrstu") (address "76.179.90.224")
         #L 05/11/2007 - 06:46:18: [admin.amxx] Login: "(* ) ( *)<1><STEAM_0:1:273255><>" became an admin (account "STEAM_0:1:273255") (access "bcdefghijklmnopqrstu") (address "76.179.90.224")


         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admin.amxx\] Login: \"(.*)\" became an admin \(account \"(.*)\"\) \(access \"(.*)\"\) \(address \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admin.amxx\] Login: \"(.*)\" became an admin \(account \"(.*)\"\) \(access \"(.*)\"\) \(address \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A50A,$_";
             print DONE_OUT "A50A,$LINES[$lineno];";
             }
             }
         #L 10/28/2007 - 21:28:34: [plmenu.amxx] Kick: "FoCA|rochvegas j + astigmatism<192><STEAM_0:0:63048><>" kick "Ciggarette  / Gago<202><STEAM_0:1:15378592><>"
         #L 10/28/2007 - 21:28:34: [plmenu.amxx] Kick: "FoCA|rochvegas j + astigmatism<192><STEAM_0:0:63048><>" kick "Ciggarette  / Gago<202><STEAM_0:1:15378592><>"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Kick: \"(.*)\" kick \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Kick: \"(.*)\" kick \"(.*)\"/)
             {
             {
             print DONE_OUT "A52B,$_";
             print DONE_OUT "A52B,$LINES[$lineno];";
             }                     
             }                     
         #L 06/17/2007 - 22:23:51: [admincmd.amxx] Kick: "FoCA|DRB<114><STEAM_0:0:400966><>" kick "|8|r90|Prim3[martyr]<143><STEAM_0:1:2487360><>" (reason "")
         #L 06/17/2007 - 22:23:51: [admincmd.amxx] Kick: "FoCA|DRB<114><STEAM_0:0:400966><>" kick "|8|r90|Prim3[martyr]<143><STEAM_0:1:2487360><>" (reason "")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Kick: \"(.*)\" kick \"(.*)\" \(reason \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Kick: \"(.*)\" kick \"(.*)\" \(reason \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A52C,$_";
             print DONE_OUT "A52C,$LINES[$lineno];";
             }                     
             }                     
         #L 06/19/2007 - 21:58:00: [admincmd.amxx] Ban: "FoCA|DRB<417><STEAM_0:0:400966><>" ban and kick "cl_utch<433><STEAM_0:1:9428559><>" (minutes "0") (reason "")
         #L 06/19/2007 - 21:58:00: [admincmd.amxx] Ban: "FoCA|DRB<417><STEAM_0:0:400966><>" ban and kick "cl_utch<433><STEAM_0:1:9428559><>" (minutes "0") (reason "")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Ban: \"(.*)\" ban and kick \"(.*)\" \(minutes \"(.*)\"\) \(reason \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Ban: \"(.*)\" ban and kick \"(.*)\" \(minutes \"(.*)\"\) \(reason \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A52C,$_";
             print DONE_OUT "A52C,$LINES[$lineno];";
             }                     
             }                     
         #L 10/29/2007 - 01:12:55: [plmenu.amxx] Ban: "FoCA|LocoYokel[GH]<241><STEAM_0:0:4864772><>" ban and kick "Ctb  SSay<266><STEAM_0:1:13406436><>" (minutes "5")
         #L 10/29/2007 - 01:12:55: [plmenu.amxx] Ban: "FoCA|LocoYokel[GH]<241><STEAM_0:0:4864772><>" ban and kick "Ctb  SSay<266><STEAM_0:1:13406436><>" (minutes "5")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Ban: \"(.*)\" ban and kick \"(.*)\" \(minutes \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Ban: \"(.*)\" ban and kick \"(.*)\" \(minutes \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A52C,$_";
             print DONE_OUT "A52C,$LINES[$lineno];";
             }                  
            }
        #L 05/06/2005 - 20:21:21: [admincmd.amxx] Cmd: "FoCA|Sturm[RR]<15><STEAM_0:1:548458><>" ban "STEAM_0" (minutes ":") (reason "1")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" ban \"(.*)\" \(minutes \"(.*)\"\) \(reason \"(.*)\"\)/)
            {
            print DONE_OUT "A52C,$LINES[$lineno];";
             }  
           
         #L 05/20/2007 - 17:32:19: [plmenu.amxx] Cmd: "FoCA|OGWG Persecutor<51><STEAM_0:0:266906><>" transfer "xDf<69><STEAM_0:1:14332828><>" (team "TERRORIST")
         #L 05/20/2007 - 17:32:19: [plmenu.amxx] Cmd: "FoCA|OGWG Persecutor<51><STEAM_0:0:266906><>" transfer "xDf<69><STEAM_0:1:14332828><>" (team "TERRORIST")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" transfer \"(.*)\" \(team \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" transfer \"(.*)\" \(team \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A54A,$_";
             print DONE_OUT "A54A,$LINES[$lineno];";
             }               
             }               
         #L 10/28/2007 - 22:10:11: [admincmd.amxx] Cmd: "FoCA|rochvegas j + astigmatism<192><STEAM_0:0:63048><>" change nick to "roch's slave" "Player<213><STEAM_0:1:15118437><>"
         #L 10/28/2007 - 22:10:11: [admincmd.amxx] Cmd: "FoCA|rochvegas j + astigmatism<192><STEAM_0:0:63048><>" change nick to "roch's slave" "Player<213><STEAM_0:1:15118437><>"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" change nick to \"(.*)\" \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" change nick to \"(.*)\" \"(.*)\"/)
             {
             {
             print DONE_OUT "A56A,$_";
             print DONE_OUT "A56A,$LINES[$lineno];";
             }                     
             }                     
         #L 10/28/2007 - 21:12:41: [plmenu.amxx] Cmd: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" slay "[.icC.]Duke Nukem<183><STEAM_0:1:13910450><>"
         #L 10/28/2007 - 21:12:41: [plmenu.amxx] Cmd: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" slay "[.icC.]Duke Nukem<183><STEAM_0:1:13910450><>"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" slay \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" slay \"(.*)\"/)
             {
             {
             print DONE_OUT "A57A,$_";
             print DONE_OUT "A57A,$LINES[$lineno];";
             }                     
             }                     
         #L 06/20/2007 - 21:28:12: [admincmd.amxx] Cmd: "FoCA|LocoYokel[GH]<121><STEAM_0:0:4864772><>" slay "LCC Tank<125><STEAM_0:1:13068210><>"
         #L 06/20/2007 - 21:28:12: [admincmd.amxx] Cmd: "FoCA|LocoYokel[GH]<121><STEAM_0:0:4864772><>" slay "LCC Tank<125><STEAM_0:1:13068210><>"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" slay \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" slay \"(.*)\"/)
             {
             {
             print DONE_OUT "A57A,$_";
             print DONE_OUT "A57A,$LINES[$lineno];";
             }                     
             }                     
         #L 10/28/2007 - 21:36:12: [admincmd.amxx] Cmd: "[FoCA|CoFR]Barnes<189><STEAM_0:1:343958><>" slap with 0 damage "FoCA|Senser<203><STEAM_0:0:261108><>"
         #L 10/28/2007 - 21:36:12: [admincmd.amxx] Cmd: "[FoCA|CoFR]Barnes<189><STEAM_0:1:343958><>" slap with 0 damage "FoCA|Senser<203><STEAM_0:0:261108><>"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" slap with (.*) damage \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" slap with (.*) damage \"(.*)\"/)
             {
             {
             print DONE_OUT "A57B,$_";
             print DONE_OUT "A57B,$LINES[$lineno];";
             }                     
             }                     
         #L 10/28/2007 - 20:42:41: [plmenu.amxx] Cmd: "FoCA|Rizzo<180><STEAM_0:0:8245642><>" slap with 0 damage "FoCA|Fullthrottle<160><STEAM_0:1:386955><>"             
         #L 10/28/2007 - 20:42:41: [plmenu.amxx] Cmd: "FoCA|Rizzo<180><STEAM_0:0:8245642><>" slap with 0 damage "FoCA|Fullthrottle<160><STEAM_0:1:386955><>"             
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" slap with (.*) damage \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" slap with (.*) damage \"(.*)\"/)
             {
             {
             print DONE_OUT "A57C,$_";
             print DONE_OUT "A57C,$LINES[$lineno];";
             }                             
             }                             
         #L 08/26/2007 - 18:12:02: [admincmd.amxx] Cmd: "FoCA|Chronik[BB]<151><STEAM_0:1:2643832><>" server console (cmdline "sv_alltalk 3")
         #L 08/26/2007 - 18:12:02: [admincmd.amxx] Cmd: "FoCA|Chronik[BB]<151><STEAM_0:1:2643832><>" server console (cmdline "sv_alltalk 3")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" server console \(cmdline \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" server console \(cmdline \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A57D,$_";
             print DONE_OUT "A57D,$LINES[$lineno];";
             }             
             }             
          
          
         #L 10/28/2007 - 20:39:49: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" chat " who changed it?"
         #L 10/28/2007 - 20:39:49: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" chat " who changed it?"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" chat \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" chat \"(.*)\"/)
             {
             {
             print DONE_OUT "A63A,$_";
             print DONE_OUT "A63A,$LINES[$lineno];";
             }             
             }             
         #L 10/28/2007 - 20:43:30: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" tsay "hey RB"
         #L 10/28/2007 - 20:43:30: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" tsay "hey RB"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" tsay \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" tsay \"(.*)\"/)
             {
             {
             print DONE_OUT "A63B,$_";
             print DONE_OUT "A63B,$LINES[$lineno];";
             }     
             }     
         #L 05/14/2007 - 23:36:46: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<21><STEAM_0:0:4864772><>" csay "Friendly fire is on, verify your targets and do not shoot teammates.  Offenders WILL be kicked."
         #L 05/14/2007 - 23:36:46: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<21><STEAM_0:0:4864772><>" csay "Friendly fire is on, verify your targets and do not shoot teammates.  Offenders WILL be kicked."
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" csay \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" csay \"(.*)\"/)
             {
             {
             print DONE_OUT "A63C,$_";
             print DONE_OUT "A63C,$LINES[$lineno];";
             }               
             }               
         #L 05/16/2007 - 22:13:37: [adminchat.amxx] Chat: "FoCA|mother_goose<342><STEAM_0:1:265230><>" psay "FoCA|MudBone[GH]<337><STEAM_0:1:717421><>" "hey"
         #L 05/16/2007 - 22:13:37: [adminchat.amxx] Chat: "FoCA|mother_goose<342><STEAM_0:1:265230><>" psay "FoCA|MudBone[GH]<337><STEAM_0:1:717421><>" "hey"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" psay \"(.*)\" \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" psay \"(.*)\" \"(.*)\"/)
             {
             {
             print DONE_OUT "A63D,$_";
             print DONE_OUT "A63D,$LINES[$lineno];";
            }             
        #L 05/04/2005 - 21:28:28: [adminchat.amxx] Chat: "[CoFR]STEELEAGLE|FoCA<1214><STEAM_0:0:546319><>" say "I thought he was a lost lamb"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" say \"(.*)\"/)
            {
            print DONE_OUT "A63D,$LINES[$lineno];";
             }               
             }               
         #L 05/16/2007 - 22:24:30: [adminvote.amxx] Vote: "FoCA|mother_goose<342><STEAM_0:1:265230><>" vote custom (question "should loco learn how to do an actual vote?") (option#1 "yes") (option#2 "no")
         #L 05/16/2007 - 22:24:30: [adminvote.amxx] Vote: "FoCA|mother_goose<342><STEAM_0:1:265230><>" vote custom (question "should loco learn how to do an actual vote?") (option#1 "yes") (option#2 "no")


         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: \"(.*)\" vote custom \(question \"(.*)\"\) \(option#1 \"(.*)\"\) \(option#2 \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: \"(.*)\" vote custom \(question \"(.*)\"\) \(option#1 \"(.*)\"\) \(option#2 \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A80A,$_";
             print DONE_OUT "A80A,$LINES[$lineno];";
             }               
             }               
         #L 06/04/2007 - 18:33:37: [adminvote.amxx] Vote: "FoCA|DRB<366><STEAM_0:0:400966><>" vote map (map "mindmaze")
         #L 06/04/2007 - 18:33:37: [adminvote.amxx] Vote: "FoCA|DRB<366><STEAM_0:0:400966><>" vote map (map "mindmaze")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: \"(.*)\" vote map \(map \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: \"(.*)\" vote map \(map \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A80A,$_";
             print DONE_OUT "A80A,$LINES[$lineno];";
             }               
             }               
         #L 05/16/2007 - 22:24:42: [adminvote.amxx] Vote: Voting successful (got "10") (needed "1") (result "should loco learn how to do an actual vote? - yes")
         #L 05/16/2007 - 22:24:42: [adminvote.amxx] Vote: Voting successful (got "10") (needed "1") (result "should loco learn how to do an actual vote? - yes")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: Voting successful \(got \"(.*)\"\) \(needed \"(.*)\"\) \(result \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: Voting successful \(got \"(.*)\"\) \(needed \"(.*)\"\) \(result \"(.*)\"\)/)
             {
             {
             print DONE_OUT "A80B,$_";
             print DONE_OUT "A80B,$LINES[$lineno];";
            }           
        #L 05/20/2005 - 21:54:29: [adminvote.amxx] Vote: Voting failed (got "3") (needed "6")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: Voting successful \(got \"(.*)\"\) \(needed \"(.*)\"\)$/)
            {
            print DONE_OUT "A80B,$LINES[$lineno];";
             }             
             }             
         #L 07/18/2007 - 17:04:18: [mapsmenu.amxx] Cmd: "FoCA|Scorp<2><STEAM_0:0:7817668><>" changelevel "as_crazytank"
         #L 07/18/2007 - 17:04:18: [mapsmenu.amxx] Cmd: "FoCA|Scorp<2><STEAM_0:0:7817668><>" changelevel "as_crazytank"
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Cmd: \"(.*)\" changelevel \"(.*)\"/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Cmd: \"(.*)\" changelevel \"(.*)\"/)
             {
             {
             print DONE_OUT "A81B,$_";
             print DONE_OUT "A81B,$LINES[$lineno];";
             }       
             }       
         #L 05/12/2007 - 22:44:10: [mapchooser.amxx] Vote: Voting for the nextmap started
         #L 05/12/2007 - 22:44:10: [mapchooser.amxx] Vote: Voting for the nextmap started
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Voting for the nextmap (.*)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Voting for the nextmap (.*)/)
             {
             {
             print DONE_OUT "A81C,$_";
             print DONE_OUT "A81C,$LINES[$lineno];";
             }
             }
         #L 06/04/2007 - 18:33:50: [adminvote.amxx] Vote: Result accepted             
         #L 06/04/2007 - 18:33:50: [adminvote.amxx] Vote: Result accepted             
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Result accepted/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Result accepted/)
             {
             {
             print DONE_OUT "A81C,$_";
             print DONE_OUT "A81C,$LINES[$lineno];";
             }
             }
         #L 06/09/2007 - 01:27:43: [mapsmenu.amxx] Vote: Voting successful. Map will be changed to awp_city
         #L 06/09/2007 - 01:27:43: [mapsmenu.amxx] Vote: Voting successful. Map will be changed to awp_city
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Voting successful. Map will be changed to (.*)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Voting successful. Map will be changed to (.*)/)
             {
             {
             print DONE_OUT "A81C,$_";
             print DONE_OUT "A81C,$LINES[$lineno];";
             }          
             }          
        #L 05/05/2005 - 23:34:32: [mapsmenu.amxx] Vote: "FoCA|LocoYokel<1402><STEAM_0:0:4864772><>" vote maps (map#1 "dod_charlie") (map#2 "") (map#3 "") (map#4 "")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: \"(.*)\" vote maps \(map#1 \"(.*)\"\) \(map#2 \"(.*)\"\) \(map#3 \"(.*)\"\) \(map#4 \"(.*)\"\)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }         
       
         #L 10/28/2007 - 20:07:20: [mapsmenu.amxx] Vote: Result accepted
         #L 10/28/2007 - 20:07:20: [mapsmenu.amxx] Vote: Result accepted
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Result accepted/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Result accepted/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }
             
        #L 05/19/2005 - 23:06:42: [mapsmenu.amxx] Vote: Result refused
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Result refused/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }
        #L 05/20/2005 - 21:54:29: [adminvote.amxx] Vote: Voting failed (got "3") (needed "6")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: Voting failed \(got \"(.*)\"\) \(needed \"(.*)\"\)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }
 
        #L 05/07/2005 - 21:49:37: [mapsmenu.amxx] Vote: Voting failed
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Voting failed/)
             {
             {
             print DONE_OUT "A81C,$_";
             print DONE_OUT "A81C,$LINES[$lineno];";
             }
             }
         #L 10/28/2007 - 20:07:18: [mapsmenu.amxx] Vote: Voting successful. Map will be changed to as_tundra
         #L 10/28/2007 - 20:07:18: [mapsmenu.amxx] Vote: Voting successful. Map will be changed to as_tundra
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Voting successful. Map will be changed to (.*)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Voting successful. Map will be changed to (.*)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }   
        #L 05/11/2005 - 21:44:40: [adminreservation.amxx] [AdminReservation] =[21st]=Maj.Vash was kicked to free a slot for [CoFR]Big Shirtless Ron!
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminreservation.amxx\] \[AdminReservation\] (.*) was kicked to free a slot for (.*)/)
             {
             {
             print DONE_OUT "A81C,$_";
             print DONE_OUT "A81C,$LINES[$lineno];";
             }    
             }  
 
################### STATS #################################
################### STATS #################################


         #L 09/07/2007 - 04:25:12: "Koopa Koop<44><STEAM_0:0:63055><CT>" attacked "MM | lil [IRA]<49><STEAM_0:1:406035><CT>" with "grenade" (damage "77") (damage_armor "0") (health "23") (armor "0")
         #L 09/07/2007 - 04:25:12: "Koopa Koop<44><STEAM_0:0:63055><CT>" attacked "MM | lil [IRA]<49><STEAM_0:1:406035><CT>" with "grenade" (damage "77") (damage_armor "0") (health "23") (armor "0")
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" attacked \"(.*)\" with \"(.*)\" \(damage \"(.*)\"\) \(damage_armor \"(.*)\"\) \(health \"(.*)\"\) \(armor \"(.*)\"\)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" attacked \"(.*)\" with \"(.*)\" \(damage \"(.*)\"\) \(damage_armor \"(.*)\"\) \(health \"(.*)\"\) \(armor \"(.*)\"\)/)
             {
             {
             print DONE_OUT "B01A,$_";
             print DONE_OUT "B01A,$LINES[$lineno];";
             }                     
             }                     
         #L 05/02/2005 - 23:04:49: Final Scores: Allies: 94  Axis: 476
         #L 05/02/2005 - 23:04:49: Final Scores: Allies: 94  Axis: 476
         elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Final Scores: (.*): (.*) (.*): (.*)/)
         elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Final Scores: (.*): (.*) (.*): (.*)/)
             {
             {
             print DONE_OUT "B01B,$_";
             print DONE_OUT "B01B,$LINES[$lineno];";
             }
             }
################ MISC ADDONS #################
################ MISC ADDONS #################


#L 05/14/2005 - 23:27:54: [ADMIN] IRONHAND has forgiven FoCA|Whatfer's TK.
#L 05/14/2005 - 23:27:54: [ADMIN] IRONHAND has forgiven FoCA|Whatfer's TK.
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) has forgiven (.*)\'s TK.$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) has forgiven (.*)\'s TK.$/)
             {
             {
             print DONE_OUT "C01A,$_";
             print DONE_OUT "C01A,$LINES[$lineno];";
             }
             }
#L 05/14/2005 - 23:28:24: [ADMIN] [CoFR]Keeve TK warning 1 of 3
#L 05/14/2005 - 23:28:24: [ADMIN] [CoFR]Keeve TK warning 1 of 3
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) TK warning (.*) of (.*)$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) TK warning (.*) of (.*)$/)
             {
             {
             print DONE_OUT "C01B,$_";
             print DONE_OUT "C01B,$LINES[$lineno];";
             }
             }
#L 05/02/2005 - 22:08:50: [ADMIN] FoCA|moondance Slayed for teammate attack after respawn
#L 05/02/2005 - 22:08:50: [ADMIN] FoCA|moondance Slayed for teammate attack after respawn
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Slayed for teammate attack after respawn$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Slayed for teammate attack after respawn$/)
             {
             {
             print DONE_OUT "C01C,$_";
             print DONE_OUT "C01C,$LINES[$lineno];";
             }
             }
#L 05/05/2005 - 23:40:18: [ADMIN] Nix Slayed for violating 3 TK warning
#L 05/05/2005 - 23:40:18: [ADMIN] Nix Slayed for violating 3 TK warning
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Slayed for violating (.*) TK warning$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Slayed for violating (.*) TK warning$/)
             {
             {
             print DONE_OUT "C01C,$_";
             print DONE_OUT "C01C,$LINES[$lineno];";
             }
             }
#L 05/06/2005 - 21:13:04: [ADMIN] deiter Exceeded 3 TK limit and is BANNED for 1 minutes
#L 05/06/2005 - 21:13:04: [ADMIN] deiter Exceeded 3 TK limit and is BANNED for 1 minutes
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Exceeded (.*) TK limit and is BANNED for (.*) minutes$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Exceeded (.*) TK limit and is BANNED for (.*) minutes$/)
            {
            print DONE_OUT "C01C,$LINES[$lineno];";
            }
#L 05/12/2005 - 23:43:10: [ADMIN] FoCA|Ogre Slayed for melee attack
      elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Slayed for melee attack$/)
             {
             {
             print DONE_OUT "C01C,$_";
             print DONE_OUT "C01C,$LINES[$lineno];";
             }
             }
#L 10/27/2007 - 08:07:31: Loaded 128 Maps into the maps that will be picked for the vote
#L 10/27/2007 - 08:07:31: Loaded 128 Maps into the maps that will be picked for the vote
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Loaded (.*) Maps into the maps that will be picked for the vote$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Loaded (.*) Maps into the maps that will be picked for the vote$/)
             {
             {
             print DONE_OUT "C02A,$_";
             print DONE_OUT "C02A,$LINES[$lineno];";
             }
             }
#L 09/13/2007 - 18:10:47: Nominations for the map vote: 0 out of 5 possible nominations
#L 09/13/2007 - 18:10:47: Nominations for the map vote: 0 out of 5 possible nominations
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Nominations for the map vote: (.*) out of (.*) possible nominations$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Nominations for the map vote: (.*) out of (.*) possible nominations$/)
             {
             {
             print DONE_OUT "C02A,$_";
             print DONE_OUT "C02A,$LINES[$lineno];";
             }
             }
#L 09/13/2007 - 18:10:47: Randomly Filling slots for the vote with 5 out of 128
#L 09/13/2007 - 18:10:47: Randomly Filling slots for the vote with 5 out of 128
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Randomly Filling slots for the vote with (.*) out of (.*)$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Randomly Filling slots for the vote with (.*) out of (.*)$/)
             {
             {
             print DONE_OUT "C02A,$_";
             print DONE_OUT "C02A,$LINES[$lineno];";
             }
             }
#L 09/13/2007 - 18:10:47: Filled 5 vote slots with random maps, 5 are custom
#L 09/13/2007 - 18:10:47: Filled 5 vote slots with random maps, 5 are custom
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Filled (.*) vote slots with random maps, (.*) are custom$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Filled (.*) vote slots with random maps, (.*) are custom$/)
             {
             {
             print DONE_OUT "C02A,$_";
             print DONE_OUT "C02A,$LINES[$lineno];";
             }
             }
#L 10/27/2007 - 07:19:39: Banned 1 Maps in your mapstoban.ini file
#L 10/27/2007 - 07:19:39: Banned 1 Maps in your mapstoban.ini file
       elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Banned (.*) Maps in your mapstoban.ini file$/)
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Banned (.*) Maps in your mapstoban.ini file$/)
             {
             {
             print DONE_OUT "C02B,$_";
             print DONE_OUT "C02B,$LINES[$lineno];";
             }
             }
#L 10/27/2007 - 07:19:39: 1 Maps were not loaded because they were the last maps played, or defined twice, or banned
#L 10/27/2007 - 07:19:39: 1 Maps were not loaded because they were the last maps played, or defined twice, or banned
elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): (.*) Maps were not loaded because they were the last maps played, or defined twice, or banned$/)
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): (.*) Maps were not loaded because they were the last maps played, or defined twice, or banned$/)
             {
             {
             print DONE_OUT "C02C,$_";
             print DONE_OUT "C02C,$LINES[$lineno];";
             }
             }
#L 10/27/2007 - 07:19:39: Found 12 Maps in your mapcycle.txt/allmaps.txt file, 7 are available for filling slots
#L 10/27/2007 - 07:19:39: Found 12 Maps in your mapcycle.txt/allmaps.txt file, 7 are available for filling slots
elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Found (.*) Maps in your mapcycle.txt\/allmaps.txt file, (.*) are available for filling slots$/)
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Found (.*) Maps in your mapcycle.txt\/allmaps.txt file, (.*) are available for filling slots$/)
             {
             {
             print DONE_OUT "C02D,$_";
             print DONE_OUT "C02D,$LINES[$lineno];";
             }
             }
#L 10/26/2007 - 06:09:27: Vote: Voting for the nextmap started
#L 10/26/2007 - 06:09:27: Vote: Voting for the nextmap started
elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Vote: Voting for the nextmap started$/)
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Vote: Voting for the nextmap started$/)
             {
             {
             print DONE_OUT "C02E,$_";
             print DONE_OUT "C02E,$LINES[$lineno];";
             }
             }


#L 10/26/2007 - 06:09:47: Vote: Voting for the nextmap finished. The nextmap will be de_dust
#L 10/26/2007 - 06:09:47: Vote: Voting for the nextmap finished. The nextmap will be de_dust
elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Vote: Voting for the nextmap finished. The nextmap will be (.*)$/)
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Vote: Voting for the nextmap finished. The nextmap will be (.*)$/)
             {
             {
             print DONE_OUT "C02F,$_";
             print DONE_OUT "C02F,$LINES[$lineno];";
             }
             }
#L 09/15/2007 - 05:13:04: -------- Mapchange to awp_war --------
#L 09/15/2007 - 05:13:04: -------- Mapchange to awp_war --------
elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): -------- Mapchange to (.*) --------$/)
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): -------- Mapchange to (.*) --------$/)
            {
            print DONE_OUT "C02G,$LINES[$lineno];";
            }
           
#L 05/01/2005 - 16:16:58: -------- Mapchange --------
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): -------- Mapchange --------$/)
             {
             {
             print DONE_OUT "C02G,$_";
             print DONE_OUT "C02G,$LINES[$lineno];";
             }
             }
           
#L 06/19/2007 - 21:26:40: Server say "DRB I need your steam id to fix the ban"
#L 06/19/2007 - 21:26:40: Server say "DRB I need your steam id to fix the ban"
elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server say \"(.*)\"$/)
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server say \"(.*)\"$/)
             {
             {
             print DONE_OUT "C03G,$_";
             print DONE_OUT "C03G,$LINES[$lineno];";
             }
             }
#L 09/15/2007 - 04:48:35: FoCA|quibeep has left; de_dust is no longer nominated
#L 09/15/2007 - 04:48:35: FoCA|quibeep has left; de_dust is no longer nominated
elsif ($LOGLINE = m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): (.*) has left; (.*) is no longer nominated$/)
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): (.*) has left; (.*) is no longer nominated$/)
            {
            print DONE_OUT "C03H,$LINES[$lineno];";
            }
           
#L 05/31/2005 - 17:19:23: [DODX] dev: called: GiveFnptrsToDll
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[DODX\] (.*)$/)
             {
             {
             print DONE_OUT "C03H,$_";
             print DONE_OUT "C03H,$LINES[$lineno];";
            }
#L 05/14/2005 - 13:13:22: FATAL ERROR (shutting down): models/mapmodels/hedgehog.mdl has been modified since starting the engine.  Consider running system diagnostics to check for faulty hardware.
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): FATAL ERROR \(shutting down\): (.*)$/)
            {
            print DONE_OUT "C04H,$LINES[$lineno];";
             }
             }
################
################
################
################
Line 550: Line 686:
         else
         else
             {
             {
             print TODO_OUT "$_";
             print TODO_OUT "$LINES[$lineno];";
             #print "$_";                         
             #print "$LINES[$lineno];";                         
             }
             }
           
         }
        }   
</pre>
        close (LOGFILE_IN);
        close ($FILE);       
    } #Close of log file
          
 
    #End of log files
   
   
##################################################
################### Main Loop End ################
##################################################
 
 
sub printmissing
    {
    #Alternate the comment if you really want to see the area that sent the
    #line, otherwise just output the $_
   
    #print MISSING "$printout\n$_\n";
    print "Missing $_\n";
    }
<\pre>
 


[[Category:Cleanup]]
[[Category:Perl]]
[[Category:Programming]]
[[Category:Gaming]]
[[Category:Gaming]]
[[Category:2007-11]]
[[Category:Weblog-2007-11]]

Latest revision as of 00:56, 2 January 2008

Purpose

Awhile ago I started a project called "AtlasHL" and today while I was sick I decided to go back and look at some of the scripting I had done two years ago. Without too much detail, I did today in two hours what I did in about two months back then.

I'm not a Regex Guru by any stretch of the imagination and while there are better ways to do what I'm doing, I do actually have some reasons for breaking some specific log lines the way I do. Someday I'll learn efficiency, but for right now, I'm going through this in the worst way possible: stepped if/elsif statements until the end.

Current Status

  1. Generally just bashing lines through the regex. After I get through all of the logs I have, I'll look at categorizing a little better (and condensing some lines).
  2. Current ratio:
    1. 10,972 logs
    2. 114 unmatched lines (mostly repetitive)
    3. 2,619,859 matched lines

References

  1. http://developer.valvesoftware.com/wiki/HL_Log_Standard#054._Team_Selection

The HL Log Standard appears to be a little long in the tooth and hasn't been really updated and the adhering to it is loose at best depending on what game you're looking at. Tthis is my opinion, but I have nearly 100 thousand logs from various games & mods to back this up with.

Code

#!/usr/bin/perl -w
# Created by Rabbi-Bob

use strict;
use warnings;

my ($VERSION)="0.6B";
my ($LASTEDIT)="11/03/2007";
my ($EDIT)="Rabbi Bob";
my ($COPYRIGHT)="2007";
    
#my($LOGDIR)="U:/Programs/atlashl/pb/oldlogs";
#my($LOGDIR)="V:/Programs/Perl/logscanner/source/logs";
my($LOGDIR)="input";
my($LOGFILE_IN)=();         #logfile input vars
my($FILE)=();
my(@FILES)=();
my($OUTPUT)=();                #output vars
my($missing)=();

my ($TODO_OUT)="todo.txt";
my ($DONE_OUT)="done.csv";

my @LINES=();
my $LINES=();

my $LOGLINE=();
my $lineno = 0; # The line number in the log file    

##################################
opendir(DIR, "$LOGDIR") or die "Cannot open $LOGDIR to read: $!";
@FILES = grep(/\.log$/,readdir(DIR));
closedir(DIR);

open (TODO_OUT, ">$TODO_OUT") or die "Cannot open $TODO_OUT to output: $!";
open (DONE_OUT, ">$DONE_OUT") or die "Cannot open $DONE_OUT to output: $!";

print DONE_OUT "EventID,LogLine\n";

@FILES = sort (@FILES); # reverse the array

$lineno = 0; # The line number in the log file

foreach $FILE (@FILES) 
    {
	$LOGFILE_IN="$LOGDIR/$FILE";
    $lineno=0;
    
    ########### Open Logfile for reading ############################################
	#open the input file
	open LOGFILE_IN, $LOGFILE_IN or die "Cannot open $LOGFILE_IN for read :$!";
	print "scanning $LOGFILE_IN\n";
    ######################################################################
        while (<LOGFILE_IN>)
	    {
        $LINES[$lineno]=$_;            
        print $LINES[$lineno];
        $lineno++;
        }
        
        $lineno=0;
        
        foreach $LINES (@LINES)
        {
        $LOGLINE=$LINES[$lineno];
        &CHECKLINE($LOGLINE);
        $lineno++;        
        }
    
            
        #$lineno++; # increment the line number primarily for debugging
	    #$LOGLINE=$_;
	    ##### Log File Comment #####

        #L 05/11/2007 - 06:45:28: Server cvars start
     
            
    }    
        close (LOGFILE_IN);
    #    close ($FILE);        
     #Close of log file
        

     #End of log files
    
    
##################################################
################### Main Loop End ################
##################################################


sub printmissing
    {
    #Alternate the comment if you really want to see the area that sent the 
    #line, otherwise just output the $_
    
    #print MISSING "$printout\n$_\n";
    print "Missing $_\n";
    }
    


sub CHECKLINE
    {
       if ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvars start/i)
            {
            print DONE_OUT "001A,$LINES[$lineno];";
            }
        #L 05/11/2007 - 06:45:28: Server cvars end
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvars end/i)
            {
            print DONE_OUT "001B,$LINES[$lineno];";
            }
        #L 05/11/2007 - 06:45:28: Server cvar "_tutor_bomb_viewable_check_interval" = "0.5"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server cvar \"(.*)\" = \"(.*)\"/)
            {
            print DONE_OUT "001C,$LINES[$lineno];";
            }
        #L 11/03/2007 - 18:12:22: server_cvar: "sv_accelerate" "5"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): server_cvar: \"(.*)\" \"(.*)\"/)
            {
            print DONE_OUT "001D,$LINES[$lineno];";
            }          
        #L 11/03/2007 - 20:46:17: "r_AirboatViewDampenFreq" = "7.0"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" = \"(.*)\"/)
            {
            print DONE_OUT "001D,$LINES[$lineno];";
            }          
        #L 05/11/2007 - 06:45:28: Log file started (file "logs\L0511019.log") (game "cstrike") (version "47/1.1.2.5/3647")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Log file started \(file \"(.*)\"\) \(game \"(.*)\"\) \(version \"(.*)\"\)/)
            {
            print DONE_OUT "002A,$LINES[$lineno];";
            }
        #L 05/11/2007 - 07:11:12: Log file closed
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Log file closed/)
            {
            print DONE_OUT "002B,$LINES[$lineno];";
            }
        #L 10/30/2007 - 10:11:25: server_message: "quit"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): server_message: \"(.*)\"/)
            {
            print DONE_OUT "002C,$LINES[$lineno];";
            }        
        #L 07/08/2007 - 03:29:10: Server shutdown    
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server shutdown/)
            {
            print DONE_OUT "002C,$LINES[$lineno];";
            }                
        #L 05/11/2007 - 06:45:28: Loading map "de_dust"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Loading map \"(.*)\"/)
            {
            print DONE_OUT "003A,$LINES[$lineno];";
            }
        #L 05/11/2007 - 06:45:30: Started map "de_dust" (CRC "-1641307065")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Started map \"(.*)\" \(CRC \"(.*)\"\)/)
            {
            print DONE_OUT "003B,$LINES[$lineno];";
            }
        #L 04/25/2007 - 08:30:44: Bad Rcon: "rcon 578394037 "password" changelevel de_dust " from "65.175.222.9:61147"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Bad Rcon: \"(.*) \"(.*)\" (.*)\" from \"(.*)\"/)
            {
            print DONE_OUT "004B,$LINES[$lineno];";
            }
        
        #L 10/29/2007 - 23:23:24: rcon from "70.91.92.66:1941": command "log on"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): rcon from \"(.*)\": command \"(.*)\"/)
            {
            print DONE_OUT "004C,$LINES[$lineno];";
            }
        #L 05/06/2005 - 21:27:47: Rcon: "rcon 4018452088 "toyota" log" from "24.253.156.83:7130"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Rcon: \"(.*) \"(.*)\" (.*)\" from \"(.*)\"/)
            {
            print DONE_OUT "004D,$LINES[$lineno];";
            }
        #L 11/04/2007 - 20:25:34: rcon from "66.30.92.200:2058": Bad Password
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): rcon from \"(.*)\": Bad Password/)
            {
            print DONE_OUT "004E,$LINES[$lineno];";
            }        
        #L 10/28/2007 - 20:39:28: [META] dll: Updating plugins...
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[META|CSTRIKE|CSX|FUN\] (.*)/)
            {
            print DONE_OUT "007A,$LINES[$lineno];";
            }
        #L 11/04/2007 - 01:44:28: "FoCA|LocoYokel<158><STEAM_ID_PENDING><>" connected, address "72.177.119.42:12381"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" connected, address \"(.*)\"/)
            {
            print DONE_OUT "050A,$LINES[$lineno];";
            }
        #L 11/04/2007 - 02:00:04: "-Ðinosaur<161><STEAM_0:1:3908269><>" STEAM USERID validated
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" STEAM USERID validated/)
            {
            print DONE_OUT "050B,$LINES[$lineno];";
            }
        #L 11/02/2007 - 23:50:41: "FoCA|rochvegas j<9><STEAM_0:0:63048><>" entered the game
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" entered the game$/)
            {
            print DONE_OUT "051A,$LINES[$lineno];";
            }
        #L 11/04/2007 - 01:44:12: "violeNt| Conen.<157><STEAM_0:0:5752133><TERRORIST>" disconnected (reason "Disconnect by user.")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected \(reason \"(.*)\"/)
            {
            print DONE_OUT "052A,$LINES[$lineno];";
            }
        #L 05/11/2007 - 06:46:43: "(* ) ( *)<1><STEAM_0:1:273255><>" disconnected
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected$/)
            {
            print DONE_OUT "052A,$LINES[$lineno];";
            }
        #L 10/28/2007 - 21:28:34: Kick: "Ciggarette  / Gago<202><STEAM_0:1:15378592><>" was kicked by "Console"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Kick: "(.*)" was kicked by \"(.*)\"/)
            {
            print DONE_OUT "052B,$LINES[$lineno];";
            }
        #L 05/11/2007 - 06:45:30: Ban: "<><STEAM_0:0:1004474><>" was banned "permanently" by "Console"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Ban: "(.*)" was banned \"(.*)\" by \"(.*)\"/)
            {
            print DONE_OUT "052C,$LINES[$lineno];";
            }
        #L 05/20/2007 - 21:54:31: Ban: "VZLA.milk<192><STEAM_0:1:14553521><>" was kicked and banned "for 5.00 minutes" by "Console"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Ban: "(.*)" was kicked and banned \"(.*)\" by \"(.*)\"/)
            {
            print DONE_OUT "052D,$LINES[$lineno];";
            }        
        
        #L 11/03/2007 - 23:41:06: "FoCA| TADMG<113><STEAM_0:0:85065><TERRORIST>" disconnected (reason "No Steam logon
        ###HL2DM & CS:S output appears to include a line carriage when announcing STEAM account issues###
        # Confirmed with Alfred Reynolds 11-6-07
        #
        # Hey, you need to parse all the text between the quotes for this one, the reason string on disconnect 
        # is shown in the users UI and we are moving more lines to have breaks for readability. - Alfred
        
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): "(.*)" disconnected \(reason \"(.*)$/)
            {
            print DONE_OUT "052Z,$LINES[$lineno];";
            }            
        ##L 11/03/2007 - 01:44:44: Banid: "<><STEAM_0:1:9283492><>" was banned "permanently" by "Console"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Banid: "(.*)" was banned \"(.*)\" by \"(.*)\"/)
            {
            print DONE_OUT "052D,$LINES[$lineno];";
            }
        #L 11/03/2007 - 00:03:32: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" committed suicide with "hegrenade"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" committed suicide with \"(.*)\"/)
            {
            print DONE_OUT "053A,$LINES[$lineno];";
            }
        #L 11/02/2007 - 23:50:46: "FoCA|BigE[GH]<18><STEAM_0:0:28458><Unassigned>" joined team "CT"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" joined team \"(.*)\"/)
            {
            print DONE_OUT "054A,$LINES[$lineno];";
            }
        #L 05/02/2005 - 21:45:01: "FoCA|Rolyak<986><STEAM_0:1:72275><Axis>" changed role to "#class_axis_k43"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" changed role to \"(.*)\"/)
            {
            print DONE_OUT "055A,$LINES[$lineno];";
            }
        #L 11/03/2007 - 01:59:19: "Anarico<42><STEAM_0:1:412737><CT>" changed name to "FoCA|Anarico"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" changed name to \"(.*)\"/)
            {
            print DONE_OUT "056A,$LINES[$lineno];";
            }
        #L 11/02/2007 - 23:54:24: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" killed "Alice<8><STEAM_0:0:2357615><TERRORIST>" with "m4a1"    
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" killed \"(.*)\" with \"(.*)\"/)
            {
            print DONE_OUT "057A,$LINES[$lineno];";
            }
        #L 11/02/2007 - 23:54:24: "FoCA|BigE[GH]<18><STEAM_0:0:28458><CT>" killed "Alice<8><STEAM_0:0:2357615><TERRORIST>" with "m4a1" (headshot)
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" killed \"(.*)\" with \"(.*)\" \((.*)\)/)
            {
            print DONE_OUT "057B,$LINES[$lineno];";
            }
        #L 11/02/2007 - 23:52:36: "FoCA|Rabbi Bob<17><STEAM_0:1:273255><TERRORIST>" triggered "Got_The_Bomb"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" triggered \"(.*)\"/)
            {
            print DONE_OUT "060A,$LINES[$lineno];";
            }
        #L 05/02/2005 - 21:47:06: "FoCA|Rolyak<986><STEAM_0:1:72275><Allies>" triggered a "dod_capture_area" - "POINT_AVALANCHE_AXISGUNPOSITION"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" triggered a \"(.*)\" - \"(.*)\"/)
            {
            print DONE_OUT "060BA,$LINES[$lineno];";
            }
        #L 05/02/2005 - 20:57:29: "FoCA|moondance<970><STEAM_0:0:1852522><Axis>" triggered a "dod_object"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" triggered a \"(.*)\"/)
            {
            print DONE_OUT "060BA,$LINES[$lineno];";
            }
        #L 11/03/2007 - 00:51:39: Team "TERRORIST" triggered "Target_Bombed" (CT "0") (T "0")
        #L 05/11/2007 - 06:50:22: Team "CT" triggered "Target_Saved" (CT "1") (T "0")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
            {
            print DONE_OUT "061A,$LINES[$lineno];";
            }
        #L 11/03/2007 - 00:06:35: Team "CT" triggered "CTs_Win" (CT "12") (T "6")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
            {
            print DONE_OUT "061B,$LINES[$lineno];";
            }
        #L 05/02/2005 - 21:47:06: Team "Allies" triggered a "dod_capture_area" - "POINT_AVALANCHE_AXISGUNPOSITION"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered a \"(.*)\" - \"(.*)\"/)
            {
            print DONE_OUT "061C,$LINES[$lineno];";
            }
        #L 05/30/2005 - 20:51:57: Team "Allies" triggered a "dod_capture_area"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" triggered a \"(.*)\"$/)
            {
            print DONE_OUT "061C,$LINES[$lineno];";
            }



        #L 05/11/2007 - 06:46:52: World triggered "Round_Start"
        #L 05/11/2007 - 06:46:43: World triggered "Round_End"
        #L 11/02/2007 - 23:50:47: World triggered "Game_Commencing"            
        #L 11/04/2007 - 02:06:26: World triggered "Intermission_Time_Limit"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): World triggered \"(.*)\"$/)
            {
            print DONE_OUT "062A,$LINES[$lineno];";
            }
       #L 05/11/2007 - 06:46:43: World triggered "Round_Draw" (CT "0") (T "0")
       #L 04/21/2007 - 07:43:18: World triggered "Game_Commencing" (CT "0") (T "0")

        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): World triggered \"(.*)\" \(CT \"(.*)\"\) \(T \"(.*)\"\)/)
            {
            print DONE_OUT "062B,$LINES[$lineno];";
            }

        #L 11/04/2007 - 01:48:19: "FoCA|LocoYokel<158><STEAM_0:0:4864772><CT>" say "test"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" say \"(.*)\"/)
            {
            print DONE_OUT "063A,$LINES[$lineno];";
            }
        #L 11/04/2007 - 01:52:25: "[CoFR]FoxyFire<156><STEAM_0:0:1362382><CT>" say_team "go back door"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" say_team \"(.*)\"/)
            {
            print DONE_OUT "063B,$LINES[$lineno];";
            }
        #L 05/11/2007 - 07:11:12: Team "CT" scored "6" with "0" players
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Team \"(.*)\" scored \"(.*)\" with \"(.*)\" players/)
            {
            print DONE_OUT "065A,$LINES[$lineno];";
            }
        #L 05/02/2005 - 21:47:37: "Allies" scored "55" with "2" players
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" scored \"(.*)\" with \"(.*)\" players/)
            {
            print DONE_OUT "065A,$LINES[$lineno];";
            }

############### AMXMODX ####################
        #L 10/28/2007 - 21:23:17: [admincmd.amxx] Cmd: "[FoCA|CoFR]Barnes<189><STEAM_0:1:343958><>" changelevel "de_dust2"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" changelevel \"(.*)\"/)
            {
            print DONE_OUT "A03A,$LINES[$lineno];";
            }            
        #L 06/03/2007 - 23:48:29: [admincmd.amxx] Cmd: "Simple Daddy<305><STEAM_0:1:215772><>" set cvar (name "sv_gravity") (value "200")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" set cvar \(name \"(.*)\"\) \(value \"(.*)\"\)/)
            {
            print DONE_OUT "A03A,$LINES[$lineno];";
            }            

        #L 10/28/2007 - 20:41:06: [admincmd.amxx] Cmd: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" ask for players list
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" ask for players list/)
            {
            print DONE_OUT "A07A,$LINES[$lineno];";
            }            
        
        #L 05/11/2007 - 06:46:18: [admin.amxx] Login: "(* ) ( *)<1><STEAM_0:1:273255><>" became an admin (account "STEAM_0:1:273255") (access "bcdefghijklmnopqrstu") (address "76.179.90.224")

        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admin.amxx\] Login: \"(.*)\" became an admin \(account \"(.*)\"\) \(access \"(.*)\"\) \(address \"(.*)\"\)/)
            {
            print DONE_OUT "A50A,$LINES[$lineno];";
            }
        #L 10/28/2007 - 21:28:34: [plmenu.amxx] Kick: "FoCA|rochvegas j + astigmatism<192><STEAM_0:0:63048><>" kick "Ciggarette  / Gago<202><STEAM_0:1:15378592><>"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Kick: \"(.*)\" kick \"(.*)\"/)
            {
            print DONE_OUT "A52B,$LINES[$lineno];";
            }                    
        #L 06/17/2007 - 22:23:51: [admincmd.amxx] Kick: "FoCA|DRB<114><STEAM_0:0:400966><>" kick "|8|r90|Prim3[martyr]<143><STEAM_0:1:2487360><>" (reason "")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Kick: \"(.*)\" kick \"(.*)\" \(reason \"(.*)\"\)/)
            {
            print DONE_OUT "A52C,$LINES[$lineno];";
            }                    
        #L 06/19/2007 - 21:58:00: [admincmd.amxx] Ban: "FoCA|DRB<417><STEAM_0:0:400966><>" ban and kick "cl_utch<433><STEAM_0:1:9428559><>" (minutes "0") (reason "")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Ban: \"(.*)\" ban and kick \"(.*)\" \(minutes \"(.*)\"\) \(reason \"(.*)\"\)/)
            {
            print DONE_OUT "A52C,$LINES[$lineno];";
            }                    
        #L 10/29/2007 - 01:12:55: [plmenu.amxx] Ban: "FoCA|LocoYokel[GH]<241><STEAM_0:0:4864772><>" ban and kick "Ctb  SSay<266><STEAM_0:1:13406436><>" (minutes "5")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Ban: \"(.*)\" ban and kick \"(.*)\" \(minutes \"(.*)\"\)/)
            {
            print DONE_OUT "A52C,$LINES[$lineno];";
            } 
        #L 05/06/2005 - 20:21:21: [admincmd.amxx] Cmd: "FoCA|Sturm[RR]<15><STEAM_0:1:548458><>" ban "STEAM_0" (minutes ":") (reason "1")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" ban \"(.*)\" \(minutes \"(.*)\"\) \(reason \"(.*)\"\)/)
            {
            print DONE_OUT "A52C,$LINES[$lineno];";
            } 
            
        #L 05/20/2007 - 17:32:19: [plmenu.amxx] Cmd: "FoCA|OGWG Persecutor<51><STEAM_0:0:266906><>" transfer "xDf<69><STEAM_0:1:14332828><>" (team "TERRORIST")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" transfer \"(.*)\" \(team \"(.*)\"\)/)
            {
            print DONE_OUT "A54A,$LINES[$lineno];";
            }              
        #L 10/28/2007 - 22:10:11: [admincmd.amxx] Cmd: "FoCA|rochvegas j + astigmatism<192><STEAM_0:0:63048><>" change nick to "roch's slave" "Player<213><STEAM_0:1:15118437><>"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" change nick to \"(.*)\" \"(.*)\"/)
            {
            print DONE_OUT "A56A,$LINES[$lineno];";
            }                    
        #L 10/28/2007 - 21:12:41: [plmenu.amxx] Cmd: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" slay "[.icC.]Duke Nukem<183><STEAM_0:1:13910450><>"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" slay \"(.*)\"/)
            {
            print DONE_OUT "A57A,$LINES[$lineno];";
            }                    
        #L 06/20/2007 - 21:28:12: [admincmd.amxx] Cmd: "FoCA|LocoYokel[GH]<121><STEAM_0:0:4864772><>" slay "LCC Tank<125><STEAM_0:1:13068210><>"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" slay \"(.*)\"/)
            {
            print DONE_OUT "A57A,$LINES[$lineno];";
            }                    
        #L 10/28/2007 - 21:36:12: [admincmd.amxx] Cmd: "[FoCA|CoFR]Barnes<189><STEAM_0:1:343958><>" slap with 0 damage "FoCA|Senser<203><STEAM_0:0:261108><>"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" slap with (.*) damage \"(.*)\"/)
            {
            print DONE_OUT "A57B,$LINES[$lineno];";
            }                     
        #L 10/28/2007 - 20:42:41: [plmenu.amxx] Cmd: "FoCA|Rizzo<180><STEAM_0:0:8245642><>" slap with 0 damage "FoCA|Fullthrottle<160><STEAM_0:1:386955><>"            
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[plmenu.amxx\] Cmd: \"(.*)\" slap with (.*) damage \"(.*)\"/)
            {
            print DONE_OUT "A57C,$LINES[$lineno];";
            }                             
        #L 08/26/2007 - 18:12:02: [admincmd.amxx] Cmd: "FoCA|Chronik[BB]<151><STEAM_0:1:2643832><>" server console (cmdline "sv_alltalk 3")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[admincmd.amxx\] Cmd: \"(.*)\" server console \(cmdline \"(.*)\"\)/)
            {
            print DONE_OUT "A57D,$LINES[$lineno];";
            }             
        
        #L 10/28/2007 - 20:39:49: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" chat " who changed it?"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" chat \"(.*)\"/)
            {
            print DONE_OUT "A63A,$LINES[$lineno];";
            }            
        #L 10/28/2007 - 20:43:30: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<141><STEAM_0:0:4864772><>" tsay "hey RB"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" tsay \"(.*)\"/)
            {
            print DONE_OUT "A63B,$LINES[$lineno];";
            }    
        #L 05/14/2007 - 23:36:46: [adminchat.amxx] Chat: "FoCA|LocoYokel[GH]<21><STEAM_0:0:4864772><>" csay "Friendly fire is on, verify your targets and do not shoot teammates.  Offenders WILL be kicked."
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" csay \"(.*)\"/)
            {
            print DONE_OUT "A63C,$LINES[$lineno];";
            }              
        #L 05/16/2007 - 22:13:37: [adminchat.amxx] Chat: "FoCA|mother_goose<342><STEAM_0:1:265230><>" psay "FoCA|MudBone[GH]<337><STEAM_0:1:717421><>" "hey"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" psay \"(.*)\" \"(.*)\"/)
            {
            print DONE_OUT "A63D,$LINES[$lineno];";
            }              
        #L 05/04/2005 - 21:28:28: [adminchat.amxx] Chat: "[CoFR]STEELEAGLE|FoCA<1214><STEAM_0:0:546319><>" say "I thought he was a lost lamb"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminchat.amxx\] Chat: \"(.*)\" say \"(.*)\"/)
            {
            print DONE_OUT "A63D,$LINES[$lineno];";
            }              
        #L 05/16/2007 - 22:24:30: [adminvote.amxx] Vote: "FoCA|mother_goose<342><STEAM_0:1:265230><>" vote custom (question "should loco learn how to do an actual vote?") (option#1 "yes") (option#2 "no")

        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: \"(.*)\" vote custom \(question \"(.*)\"\) \(option#1 \"(.*)\"\) \(option#2 \"(.*)\"\)/)
            {
            print DONE_OUT "A80A,$LINES[$lineno];";
            }              
        #L 06/04/2007 - 18:33:37: [adminvote.amxx] Vote: "FoCA|DRB<366><STEAM_0:0:400966><>" vote map (map "mindmaze")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: \"(.*)\" vote map \(map \"(.*)\"\)/)
            {
            print DONE_OUT "A80A,$LINES[$lineno];";
            }              
        #L 05/16/2007 - 22:24:42: [adminvote.amxx] Vote: Voting successful (got "10") (needed "1") (result "should loco learn how to do an actual vote? - yes")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: Voting successful \(got \"(.*)\"\) \(needed \"(.*)\"\) \(result \"(.*)\"\)/)
            {
            print DONE_OUT "A80B,$LINES[$lineno];";
            }             
        #L 05/20/2005 - 21:54:29: [adminvote.amxx] Vote: Voting failed (got "3") (needed "6")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: Voting successful \(got \"(.*)\"\) \(needed \"(.*)\"\)$/)
            {
            print DONE_OUT "A80B,$LINES[$lineno];";
            }             
        #L 07/18/2007 - 17:04:18: [mapsmenu.amxx] Cmd: "FoCA|Scorp<2><STEAM_0:0:7817668><>" changelevel "as_crazytank"
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Cmd: \"(.*)\" changelevel \"(.*)\"/)
            {
            print DONE_OUT "A81B,$LINES[$lineno];";
            }       
        #L 05/12/2007 - 22:44:10: [mapchooser.amxx] Vote: Voting for the nextmap started
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Voting for the nextmap (.*)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }
        #L 06/04/2007 - 18:33:50: [adminvote.amxx] Vote: Result accepted            
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Result accepted/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }
        #L 06/09/2007 - 01:27:43: [mapsmenu.amxx] Vote: Voting successful. Map will be changed to awp_city
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapchooser.amxx\] Vote: Voting successful. Map will be changed to (.*)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }           
        #L 05/05/2005 - 23:34:32: [mapsmenu.amxx] Vote: "FoCA|LocoYokel<1402><STEAM_0:0:4864772><>" vote maps (map#1 "dod_charlie") (map#2 "") (map#3 "") (map#4 "")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: \"(.*)\" vote maps \(map#1 \"(.*)\"\) \(map#2 \"(.*)\"\) \(map#3 \"(.*)\"\) \(map#4 \"(.*)\"\)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }           
        
        #L 10/28/2007 - 20:07:20: [mapsmenu.amxx] Vote: Result accepted
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Result accepted/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }
               
        #L 05/19/2005 - 23:06:42: [mapsmenu.amxx] Vote: Result refused
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Result refused/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }
        #L 05/20/2005 - 21:54:29: [adminvote.amxx] Vote: Voting failed (got "3") (needed "6")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminvote.amxx\] Vote: Voting failed \(got \"(.*)\"\) \(needed \"(.*)\"\)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }

        #L 05/07/2005 - 21:49:37: [mapsmenu.amxx] Vote: Voting failed
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Voting failed/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }

        #L 10/28/2007 - 20:07:18: [mapsmenu.amxx] Vote: Voting successful. Map will be changed to as_tundra
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[mapsmenu.amxx\] Vote: Voting successful. Map will be changed to (.*)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }    
        #L 05/11/2005 - 21:44:40: [adminreservation.amxx] [AdminReservation] =[21st]=Maj.Vash was kicked to free a slot for [CoFR]Big Shirtless Ron!
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[adminreservation.amxx\] \[AdminReservation\] (.*) was kicked to free a slot for (.*)/)
            {
            print DONE_OUT "A81C,$LINES[$lineno];";
            }    

################### STATS #################################

        #L 09/07/2007 - 04:25:12: "Koopa Koop<44><STEAM_0:0:63055><CT>" attacked "MM | lil [IRA]<49><STEAM_0:1:406035><CT>" with "grenade" (damage "77") (damage_armor "0") (health "23") (armor "0")
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \"(.*)\" attacked \"(.*)\" with \"(.*)\" \(damage \"(.*)\"\) \(damage_armor \"(.*)\"\) \(health \"(.*)\"\) \(armor \"(.*)\"\)/)
            {
            print DONE_OUT "B01A,$LINES[$lineno];";
            }                    
        #L 05/02/2005 - 23:04:49: Final Scores: Allies: 94   Axis: 476
        elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Final Scores: (.*): (.*) (.*): (.*)/)
            {
            print DONE_OUT "B01B,$LINES[$lineno];";
            }
################ MISC ADDONS #################

#L 05/14/2005 - 23:27:54: [ADMIN] IRONHAND has forgiven FoCA|Whatfer's TK.
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) has forgiven (.*)\'s TK.$/)
            {
            print DONE_OUT "C01A,$LINES[$lineno];";
            }
#L 05/14/2005 - 23:28:24: [ADMIN] [CoFR]Keeve TK warning 1 of 3
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) TK warning (.*) of (.*)$/)
            {
            print DONE_OUT "C01B,$LINES[$lineno];";
            }
#L 05/02/2005 - 22:08:50: [ADMIN] FoCA|moondance Slayed for teammate attack after respawn
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Slayed for teammate attack after respawn$/)
            {
            print DONE_OUT "C01C,$LINES[$lineno];";
            }
#L 05/05/2005 - 23:40:18: [ADMIN] Nix Slayed for violating 3 TK warning
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Slayed for violating (.*) TK warning$/)
            {
            print DONE_OUT "C01C,$LINES[$lineno];";
            }
#L 05/06/2005 - 21:13:04: [ADMIN] deiter Exceeded 3 TK limit and is BANNED for 1 minutes
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Exceeded (.*) TK limit and is BANNED for (.*) minutes$/)
            {
            print DONE_OUT "C01C,$LINES[$lineno];";
            }
#L 05/12/2005 - 23:43:10: [ADMIN] FoCA|Ogre Slayed for melee attack
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[ADMIN\] (.*) Slayed for melee attack$/)
            {
            print DONE_OUT "C01C,$LINES[$lineno];";
            }

#L 10/27/2007 - 08:07:31: Loaded 128 Maps into the maps that will be picked for the vote
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Loaded (.*) Maps into the maps that will be picked for the vote$/)
            {
            print DONE_OUT "C02A,$LINES[$lineno];";
            }
#L 09/13/2007 - 18:10:47: Nominations for the map vote: 0 out of 5 possible nominations
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Nominations for the map vote: (.*) out of (.*) possible nominations$/)
            {
            print DONE_OUT "C02A,$LINES[$lineno];";
            }
#L 09/13/2007 - 18:10:47: Randomly Filling slots for the vote with 5 out of 128
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Randomly Filling slots for the vote with (.*) out of (.*)$/)
            {
            print DONE_OUT "C02A,$LINES[$lineno];";
            }
#L 09/13/2007 - 18:10:47: Filled 5 vote slots with random maps, 5 are custom
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Filled (.*) vote slots with random maps, (.*) are custom$/)
            {
            print DONE_OUT "C02A,$LINES[$lineno];";
            }
#L 10/27/2007 - 07:19:39: Banned 1 Maps in your mapstoban.ini file
       elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Banned (.*) Maps in your mapstoban.ini file$/)
            {
            print DONE_OUT "C02B,$LINES[$lineno];";
            }
#L 10/27/2007 - 07:19:39: 1 Maps were not loaded because they were the last maps played, or defined twice, or banned
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): (.*) Maps were not loaded because they were the last maps played, or defined twice, or banned$/)
            {
            print DONE_OUT "C02C,$LINES[$lineno];";
            }
#L 10/27/2007 - 07:19:39: Found 12 Maps in your mapcycle.txt/allmaps.txt file, 7 are available for filling slots
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Found (.*) Maps in your mapcycle.txt\/allmaps.txt file, (.*) are available for filling slots$/)
            {
            print DONE_OUT "C02D,$LINES[$lineno];";
            }
#L 10/26/2007 - 06:09:27: Vote: Voting for the nextmap started
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Vote: Voting for the nextmap started$/)
            {
            print DONE_OUT "C02E,$LINES[$lineno];";
            }

#L 10/26/2007 - 06:09:47: Vote: Voting for the nextmap finished. The nextmap will be de_dust
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Vote: Voting for the nextmap finished. The nextmap will be (.*)$/)
            {
            print DONE_OUT "C02F,$LINES[$lineno];";
            }
#L 09/15/2007 - 05:13:04: -------- Mapchange to awp_war --------
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): -------- Mapchange to (.*) --------$/)
            {
            print DONE_OUT "C02G,$LINES[$lineno];";
            }
            
#L 05/01/2005 - 16:16:58: -------- Mapchange --------
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): -------- Mapchange --------$/)
            {
            print DONE_OUT "C02G,$LINES[$lineno];";
            }
            
#L 06/19/2007 - 21:26:40: Server say "DRB I need your steam id to fix the ban"
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): Server say \"(.*)\"$/)
            {
            print DONE_OUT "C03G,$LINES[$lineno];";
            }
#L 09/15/2007 - 04:48:35: FoCA|quibeep has left; de_dust is no longer nominated
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): (.*) has left; (.*) is no longer nominated$/)
            {
            print DONE_OUT "C03H,$LINES[$lineno];";
            }
            
#L 05/31/2005 - 17:19:23: [DODX] dev: called: GiveFnptrsToDll
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): \[DODX\] (.*)$/)
            {
            print DONE_OUT "C03H,$LINES[$lineno];";
            }
#L 05/14/2005 - 13:13:22: FATAL ERROR (shutting down): models/mapmodels/hedgehog.mdl has been modified since starting the engine.  Consider running system diagnostics to check for faulty hardware.
elsif ($LOGLINE =~ m/^L (\d\d)\/(\d\d)\/(\d\d\d\d) - (\d\d:\d\d:\d\d): FATAL ERROR \(shutting down\): (.*)$/)
            {
            print DONE_OUT "C04H,$LINES[$lineno];";
            }
################
################

        else
            {
            print TODO_OUT "$LINES[$lineno];";
            #print "$LINES[$lineno];";                        
            }
        }