#!C:\Perl\bin\perl.exe
use CGI qw/:standard/;
use DBI;
use DBD::ODBC;

$user='fax';	
$passwd='fax';
$tabella='fax';

$q = new CGI;

print 	$q->header,
	$q->start_html('Fax'),
	$q->h1('Inserimento Fax'),
	$q->start_form,
        $q->p("Numero Pratica: ", textfield('numprt')),
	$q->p("Data Arrivo: ", textfield('datain'), "Ora Arrivo: ", textfield('orain')),
	$q->p("Data Inizio: ", textfield('dataon'), "Ora Inizio: ", textfield('oraon')),
	$q->p("Data Fine: ", textfield('dataoff'), "Ora Fine: ", textfield('oraoff')),
	
        $q->p("Esito attivita' Lavorazione?", popup_menu(-name=>'esito',
			                   -values=>['ok','respinta'])),p,
	$q->p("Note: ", textfield('note')),
	
        $q->submit("Invia Fax"),
        $q->end_form,
	$q->hr,
	$q->end_html;

if (param()) {
	
	$dbh = DBI->connect('dbi:ODBC:fax',$user, $passwd) or die "Non riesco a connettermi!!\n";
	
	$in=$dbh->prepare("INSERT INTO $tabella VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)");
	$in->execute('333333', '2004-5-1', '2.22', '2004-6-2', '2.22', '2005-5-5', '3.33', 'ok', 'note') || die $DBI::errstr;
	$dbh->commit();
	$dbh->disconnect();

	print 
		"<br><br>
		<a href=\"http://dipendenti.finconsumo.it:8082/cgi-bin/enrico.pl\">
		Clicca per inserire altra pratica...</a><br>",
       		"<br>Hai inserito<br>",
		"NumPrt ",em(param('numprt')),
		hr;


}