[- 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} -]
  | FireWatch |
  |   |   |   |   |   | Select Host and Lan Options |
UDP Stats | TCP Stats | TCP&UDP Stats | Real Time Stats | Active Domains | Top 10 Ports | IP to Host | Port Summary | Reports |