SERIS Enginyers S.L.

use CGI; use DBI; $query= new CGI; $script=$query->script_name; $ip=$query->remote_addr; ######################################################## push (@DADES, 'seris2006','tull8tre','dbi:mysql:serisenginyers'); $DB=pop(@DADES); $passwd=pop(@DADES); $usr=pop(@DADES); ######################################################## $login=($query->param("frmlogin")); $password=($query->param("frmpassword")); ######################################################## sub DENEGAT { print < SERIS Enginyers S.L.

ENDHTML ; exit; } ######################################################## sub ERROR { print < SERIS Enginyers S.L.

ENDHTML ; exit; } ######################################################## sub dades { print < SERIS Enginyers S.L.

ENDHTML ; exit; } sub comprova { $login=($query->param("frmlogin")); $password=($query->param("frmpassword")); $dbh=DBI->connect( $DB , $usr , $passwd , {PrintError=>0}) || &DENEGAT; $sth=$dbh->prepare(qq{SELECT ID_client,login,password,curdate() FROM client where (login='$login' && password='$password')}) || &ERROR; $rc=$sth->execute; @pass=$sth->fetchrow_array; if ($pass[0] eq "") { &DENEGAT; } $curdata=$pass[3]; $idclient=$pass[0]; $sth=finish; @data=split(/\-/,$curdata); $mes=$data[1]; $any=$data[0]; $id=time(); $id=$id. $login; $sth=$dbh->do( qq{INSERT into session (id,login,pwd,data,ip) values ('$id','$login','$password','$curdata','$ip')}) || &ERROR; $sth=finish; ### borrem les sessions caducades $sth=$dbh->do( qq{update session set pwd="" where (data<'$curdata' and pwd!="")}) || &ERROR; $sth=finish; ### Acces correcte, generem la pàgina de benvinguda $sth=$dbh->prepare(qq{SELECT nom,empresa FROM client where (ID_client='$idclient')}) || &ERROR; $rc=$sth->execute; @pass=$sth->fetchrow_array; $nomclient=$pass[0]; $nomempresa=$pass[1]; $sth=finish; print < SERIS Enginyers S.L.

Selecciona el projecte que vols visualitzar

ENDHTML ; $sth=$dbh->prepare(qq{SELECT ID_legislacio,titol,arxiu FROM legislacio where (client='$idclient') order by ID_legislacio}) || &ERROR; $rc=$sth->execute; while (@pass=$sth->fetchrow_array) { print < ENDHTML ; } $sth=finish; print <

Tota la informació està en format PDF

Legislació Aplicable

$pass[1]

SERIS INFORMA:

ENDHTML ; $sth=$dbh->prepare(qq{SELECT data,noticia FROM noticiesgeneral where (client='$idclient') order by data desc}) || &ERROR; $rc=$sth->execute; while (@pass=$sth->fetchrow_array) { @data=split(/\-/,$pass[0]); $dia=$data[2]; $mes=$data[1]; $any=$data[0]; $noticia=$pass[1]; $noticia=~ s/\n/
/g; print <$dia/$mes/$any
$noticia

ENDHTML ; } $sth=finish; print <

ENDHTML ; $dbh->disconnect(); exit; } #################### ###############3REGISTRO########################### $ruta=""; $ruta2=""; ($s,$m,$h, @resto) = localtime(time); $horaactual=$h.":".$m.":".$s; $suip=$ENV{'REMOTE_ADDR'}; foreach $key (sort keys(%ENV)) { $ruta .= $key." = ".$ENV{$key}."\r\n"; } for $var (sort $query->param){ $ruta2 .= $query->b($var)." = ".$query->param($var)."\r\n"; } $dbh=DBI->connect( $DB , $usr , $passwd , {PrintError=>0}) || &DENEGAT; $sth=$dbh->prepare(qq{SELECT curdate() FROM client where (1)}) || &ERROR; $rc=$sth->execute; @pasr=$sth->fetchrow_array; $curdatd=$pasr[0]; $sth=finish; $sth=$dbh->do( qq{INSERT into registro (pagina,data,hora,ip,opciones,variables) values ("valida.pl",'$curdatd','$horaactual','$suip','$ruta','$ruta2')}) || &ERROR; $sth=finish; $dbh->disconnect(); ################################## if ($login ne "" && $password ne "") { &comprova; }else{ &dades; }