if (($message[6] eq "ASA-6-302015") || ($message[6] eq "ASA-6-302013")) { $Config_found = 1; $Accepted++; $Action="Allow"; # $Scountry = &Obtain_GeoIP ($message[14]); my $sqlinsert = $dbh->prepare("insert into `$Table_Name` ( Month, Day, Time, Host, ASA_ID, Protocol, Source_Segment, Source_IP, Source_Port, Source_NAT_IP, Source_NAT_PORT, Source_DNS, Source_GeoIP, Source_Domain, Destination_Segment, Destination_IP, Destination_Port, Destination_NAT_IP, Destination_NAT_Port, Destination_DNS, Destination_GeoIP, Destination_Domain, Action, Severity, Notes, Full_message ) values ( '$message[0]', '$message[1]', '$time', '$message[5]', '$message[6]', '$message[9]', '$message[13]', '$message[14]','$message[15]','$message[16]','$message[17]', '$Sdns', '$Scountry', '$Sdomain', '$message[19]', '$message[20]', '$message[21]', '$message[22]', '$message[23]', '$Ddns', '$Dcountry', '$Ddomain', '$Action', '$severity', '$notes', '$original_line' )"); $sqlinsert->execute(); next; }