[- use DBI; -] [- $req = shift; -] [# Lets look for UNIX Metacharacters in the query string from the browser #] [$ if $ENV{'QUERY_STRING'} =~ /([;\*\/'\$!#\(\)\[\]\{\}:'"])/ $] [- Execute ('error.html') -] [- exit -] [$ endif $] [- ($dsn) = "DBI:mysql:FireWatch"; -] [- $dsn .= ";mysql_read_default_file=./sql.epl"; -] [- $dbh = DBI->connect($dsn); -] [- $sth = $dbh -> prepare ("select distinct HostName from Hosts order by HostName"); -] [- $sth -> execute; -] [- $LanChoice = $fdat{LanChoice} -] [- $HostChoice = $fdat{HostChoice} -] [- $Event = $fdat{Event} -] [$ if $Lanchoice eq "" && $HostChoice eq "" $] [$ else $]
UDP Stats TCP Stats TCP&UDP Stats Real Time Stats Active Domains Top 10 Ports IP to Host Port Summary Reports
[$ endif $]