Лол)
но оно там делало странное
switch ($config{args}{action}) {
case "flowspec"{
Log::Any::Adapter->set('File', $config{global}{logPath} . '/' . $config{global}{flowLog});
generateFlowSpecConfiguration;
}
case "request" {
Log::Any::Adapter->set('File', $config{global}{logPath} . '/' . $config{global}{requestLog});
requestRKNDump;
}
case "dns" {
Log::Any::Adapter->set('File', $config{global}{logPath} . '/' . $config{global}{dnsLog});
generateDNSConfiguration;
}
case "dpi" {
Log::Any::Adapter->set('File', $config{global}{logPath} . '/' . $config{global}{dpiLog});
generateDPIConfiguration;
}
case "dpiupload" {
Log::Any::Adapter->set('File', $config{global}{logPath} . '/' . $config{global}{dpiLog});
uploadDPIConfiguration;
}
else { print "USAGE\n" }
}