String_List($type,$any,$fct,@args)
Returns List of elements separated by ", " from one function and args
Help()
Prints Help
Progress($msg,$num,$nb_match)
Sets progress status
Get_Messages_To_Parse($services,$loglevel,$taxonomy,$table,$fields)
Returns list of Messages to parse
Get_TimePeriod_Files($devices,$services,$begin,$end)
Returns list of Files for Devices $devices, Services $services and Period $begin-$end
Print_Logs($devices,$services,$loglevel,$taxo,$begin,$end,$re_incl,$re_excl)
Prints Logs
my$correlation_key='id';my@correlation_values=('idpes','idcnx','cpcnx');my%correl=();#Initcorrelationtableforeachmy$d(@logs){foreachmy$cv(@correlation_values){if(NOT_NULL($d->{$cv})&&($d->{$cv}ne"N/A")&&($d->{$cv}ne"0")){$correl{$d->{$correlation_key}}{$cv}=$d->{$cv};}}}#UsecorrelationtabletofillNULLvaluesforeachmy$d(@logs){foreachmy$cv(@correlation_values){if(NULL($d->{$cv})||($d->{$cv}eq'N/A')||($d->{$cv}eq'0')){$d->{$cv}=$correl{$d->{$correlation_key}}{$cv};}}}End()
Ends Extraction