[- use DBI; -] [- use POSIX; -] [- use Socket; -] [- $req = shift; -] [# Lets look for UNIX Metacharacters in the query string from the browser #] [$ if $ENV{'QUERY_STRING'} =~ /([|;\*\/'\$!#\(\)\[\]\{\}:'"])/ $] [- Execute ('error.html') -] [- exit -] [$ endif $] [- $LanChoice = $fdat{LanChoice}; -] [- chomp $LanChoice; -] [- $HostChoice = $fdat{HostChoice} -] [- chomp $HostChoice; -] [- $Event = $fdat{Event} -] [- chomp $Event; -] [$ if $Event eq "Inbnd" $] [- $TableName = "InBnd" -] [$ elsif $Event eq "Outbnd" $] [- $TableName = "OutBnd" -] [$ endif $] [- $fDate = join('-', $fdat{fYear},$fdat{fMonth},$fdat{fDay}) -] [- $fTime = join (':', $fdat{fTime1},$fdat{fTime2},$fdat{fTime2}) -] [- $tDate = join('-', $fdat{tYear},$fdat{tMonth},$fdat{tDay}) -] [- $tTime = join (':', $fdat{tTime1},$fdat{tTime2},$fdat{tTime2}) -] [- ($dsn) = "DBI:mysql:FireWatch"; -] [- $dsn .= ";mysql_read_default_file=./sql.epl"; -] [- $dbh = DBI->connect($dsn); -]

[+ $fDate +] and [+ $fTime +]

Report Generator

From

Year 1984 Month 12 Day 4
16 34 45

To

Year 1984 Month 12 Day 4
16 34 45