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

$user='fax';   
$passwd='faxvittorio';
$tabella='AreaBanca';
$colleghi={
        'vittorio'=>['pippopippo','Vittorio','Zuccala\''],
        'flavio'=>['plutopluto','Flavio','Fusaro']
};
@contatti=(   'Nessuno','Filiale','Call Center','Sito Web',
'Mailing','Quotidiani','Affissioni',
'Volantino Promoter','Volantino Parabrezza',
'Volantino Buca Lettere','Referenza Altro Cliente',
'Relazioni Personali');
@numeri=(   '0','1','2','3','4','5','6','7','8','9','10','11','12','13',
'14','15','16','17','18','19','20','21','22','23','24','25','26',
'27','28','29','30','31');

$q = new CGI;


print    $q->header,
$q->start_html('Inserimento Dati'),
$q->h1('Report Giornaliero di Gestione Commerciale');

if($q->param() and !$q->param('collega')){
        my $collega=param('userid');
        my $cliente=param('cliente');
        my $visitefiliale=param('visitefiliale');
        my $visitefuorifiliale=param('visitefuorifiliale');
        my $telin=param('telin');
        my $telout=param('telout');
        my $contatto=param('canale');
        my $altrocontatto=param('altrocanale');
        my $reclami=param('reclami');
        my $apertoprima=param('apertoprima');
        my $apertoaltra=param('apertoaltra');
        my $operazioni=param('operazioni');
        my $informazioni=param('informazioni');
        
        if($cliente eq 'Non ancora Cliente'){
                $cliente = 'NO';
        }
        elsif($cliente eq 'Gia\' Cliente'){
                $cliente = 'SI';
        }
        else{
                $cliente = 'MA';
        }
        
        
        if($q->param('passwd') eq $colleghi->{$collega}[0]){
                my $ts;
                my @ts=localtime(time);
                $ts[5]+=1900;
                $ts[4]+=1;
                $ts[4]="0".$ts[4] if $ts[4]<10;
                $ts[3]="0".$ts[3] if $ts[3]<10;
                $ts[2]="0".$ts[2] if $ts[2]<10;
                $ts[1]="0".$ts[1] if $ts[1]<10;
                $ts[0]="0".$ts[0] if $ts[0]<10;
                
                $ts=$ts[5].'-'.$ts[4].'-'.$ts[3].' '.$ts[2].':'.$ts[1].':'.$ts[0];
                
                print   "<br><br>
                <a href=\"http://sitoweb/cgi-bin/ReportGiornalieroGestioneCommerciale.pl?collega=$collega&pass=$colleghi->{$collega}->[0]\">
                Clicca per inserire altro report...</a><br>",
                "<br>$colleghi->{$collega}->[1] $colleghi->{$collega}->[2], hai inserito un record<br>",
                em($cliente, "$ts[3]-$ts[4]-$ts[5], $ts"),
                hr;
                
                
                
                $dbh = DBI->connect('dbi:ODBC:fax',$user, $passwd, 
                { RaiseError => 1, AutoCommit => 1 }) or die "Non riesco a connettermi!!\n";
                $in=$dbh->prepare("INSERT INTO $tabella(Collega, Cliente, TS,
                VisiteFiliale,VisiteFuoriFiliale,
                TelRicevute,TelEffettuate,
                CanaleContatto,ClienteContatto,
                AperturaPrimaVisita,AperturaContoAltraVisita,
                Reclami,Operazioni,Informazioni) 
                VALUES ( ?,?,?,?,?,?,?,?,?,?,?,?,?,? )");
                
                
                $in->execute(   $collega, $cliente, $ts,
                $visitefiliale,$visitefuorifiliale,
                $telin,$telout,
                $contatto,$altrocontatto,
                $apertoprima,$apertoaltra,
                $reclami,$operazioni,$informazioni
                );
                $dbh->disconnect();
                
                
        }
        else{
                print   "<br><br>
                Mi dispiace $collega ma non vi e' corrispondenza fra utente e password<br>
                Si prega riprovare<br>
                <a href=\"http://sitoweb/cgi-bin/ReportGiornalieroGestioneCommerciale.pl\">
                Clicca per inserire altro report ed azzerare il precedente...</a><br>
                ",
                hr;
                
        }
}



print   $q->start_form,
$q->p(b("Userid: "), textfield('userid', param('collega')),b("  Password: "), textfield('passwd',param('pass'))),
$q->p(b("Cliente: "), checkbox_group(-name=>'cliente',
-values=>['Gia\' Cliente','Non ancora Cliente'])),
$q->table({-border=>undef},
caption('Inserisci i dati del Report'),
Tr({-align=>CENTER,-valign=>TOP},
[
th(['Titolo','In Filiale','Titolo','Fuori Filiale']),
td([b("Visite: <br>"),popup_menu(-name=>'visitefiliale',
-values=>\@numeri) ,
b("Visite: "),popup_menu(-name=>'visitefuorifiliale',
-values=>\@numeri) 
]),
td([b("TelRicevute:"),popup_menu(-name=>'telin',
-values=>\@numeri) ,
b("TelEffettuate: "),popup_menu(-name=>'telout',
-values=>\@numeri) 
]),


]
)
),

$q->p(b("Canale Principale dei contatti:"),popup_menu(-name=>'canale',
-values=>\@contatti,
-default =>'') ,
h2("Per i gia' clienti"),
b("Reclami:"),textfield('reclami'),   
b("Operazioni: "),popup_menu(-name=>'operazioni',
-values=>\@numeri,
-default =>''),
b("Informazioni: "),popup_menu(-name=>'informazioni',
-values=>\@numeri,
-default =>''),

h2("Per i non clienti"),
b("Cliente Altro Canale: "),popup_menu(-name=>'altrocanale',
-values=>\@contatti,
-default =>''),
b("Apertura Conto alla prima visita: "),popup_menu(-name=>'apertoprima',
-values=>['NO','SI'],
<br>,
-default =>''),
b("Apertura Conto altra visita: "),popup_menu(-name=>'apertoaltra',
-values=>\@numeri,
-default =>''),

),
$q->p(""),


$q->submit("Invia Report"),
$q->end_form,
$q->hr,
$q->end_html;