#!/usr/bin/perl ######################################################## # # # Gestdb v1.0 by Michela Fontana # # Website : http://www.calzatura.com # # Created : 15/10/2001 # # # ######################################################## ############ ADJUST THESE VARIABLES ################ use CGI; use DBI; # Get the form variables if ($ENV{'REQUEST_METHOD'} eq 'GET') { $buffer = $ENV{'QUERY_STRING'}; } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } # Break em up into a format the script can read @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } $utente = $FORM{'utente'}; $password = $FORM{'password'}; $identificativo = $FORM{'identificativo'}; $rivista = $FORM{'rivista'}; $categoria = $FORM{'categoria'}; $testo = $FORM{'testo'}; $mese = $FORM{'mese'}; $anno = $FORM{'anno'}; $azienda2 = $FORM{'azienda'}; if ($FORM{'B3'} ne '') { $condizione = ' WHERE '; if ($rivista ne '') { $condizione = $condizione." RIVISTA LIKE '$rivista' "; } if ($categoria ne '') { if ($categoria ne '') { $condizione = $condizione." and "; } $condizione = $condizione." CATEGORIA LIKE '$categoria' "; } if ($azienda2 ne '') { $azienda = $FORM{'azienda'}.'%'; # Open DB connection $dbh = DBI->connect("DBI:mysql:calzatura_com_calzatura:mysql.register.it", GS1219_CALZATURA, michela); if (!dbh) { print "Errore!"; } my $stat2 = $dbh->prepare("SELECT ID, RAGIONESOCIALE, IMMAGINE FROM Base WHERE RAGIONESOCIALE LIKE '$azienda' ORDER BY RAGIONESOCIALE"); my $return = $stat2->execute; $indice1 = 0; while (($id2, $rag2, $immagine) = $stat2->fetchrow_array) { if ($indice1 > 0) { $cond2 = $cond2." or "; } $indice1 = $indice1 + 1; $cond2 = $cond2." AZIENDA='$id2' "; } $dbh->disconnect; if ($cond2 ne '') { if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';} $condizione = $condizione." (".$cond2.")"; } } if ($mese ne '') { if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';} $umese = "%-$mese-%"; $condizione = $condizione." DATARIVISTA LIKE '$umese' "; } if ($anno ne '') { if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';} $uanno = "$anno-%-%"; $condizione = $condizione." DATARIVISTA LIKE '$uanno' "; } if ($testo ne '') { $testo2 = '%'.$testo.'%'; if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';} $condizione = $condizione." TITOLOITA LIKE '$testo2' or REDITA LIKE '$testo2'"; } } if ($condizione eq ' WHERE ') { $condizione = '';} print "Content-type: text/html\n\n"; if ($mese eq '01') { $visualmese='gennaio'; } if ($mese eq '02') { $visualmese='febbraio'; } if ($mese eq '03') { $visualmese='marzo'; } if ($mese eq '04') { $visualmese='aprile'; } if ($mese eq '05') { $visualmese='maggio'; } if ($mese eq '06') { $visualmese='giugno'; } if ($mese eq '07') { $visualmese='luglio'; } if ($mese eq '08') { $visualmese='agosto'; } if ($mese eq '09') { $visualmese='settembre'; } if ($mese eq '10') { $visualmese='ottobre'; } if ($mese eq '11') { $visualmese='novembre'; } if ($mese eq '12') { $visualmese='dicembre'; } print "

LE AZIENDE INFORMANO
Cerca per: Rivista
 Categoria
 Azienda
 Testo
 Mese
 Anno
"; ################################################################################## # Open DB connection $dbh = DBI->connect("DBI:mysql:calzatura_com_calzatura:mysql.register.it", GS1219_CALZATURA, michela); if (!dbh) { print "Errore!"; } $count = $dbh->do("SELECT * FROM Redazionali $condizione"); if ($count < 1) { print "
 
   

Nessun Oggetto Trovato per la ricerca Eseguita

Calzatura E-Mail: info\@calzatura.com
All Rights Reserved.

"; exit; } $pagina = $FORM{'pagina'}; $iniziopagina = $FORM{'iniziopagina'}; if ($pagina eq '') { $pagina = 1; } if ($iniziopagina eq '') { $iniziopagina = 1; } if ($pagina < $iniziopagina) { $pagina = $iniziopagina; } $inizio = ($pagina * 10) - 10; $fine = 10; my $stat = $dbh->prepare("SELECT ID, TITOLOITA, TITOLOENG, TITOLOSPA, REDITA, REDENG, REDSPA, FOTOA, FOTOB, FOTOC, FOTOD, TIT1ITA, TIT1ENG, TIT1SPA, TIT2ITA, TIT2ENG, TIT2SPA, TIT3ITA, TIT3ENG, TIT3SPA, TIT4ITA, TIT4ENG, TIT4SPA, AZIENDA, IMGAZIENDA, RIVISTA, IMGRIVISTA, NUMRIVISTA, DATARIVISTA, USER, PASSWORD, DATAINS, CATEGORIA FROM Redazionali $condizione ORDER BY DATARIVISTA desc LIMIT $inizio,10"); my $return = $stat->execute; if ($count > 0) { $npag = int($count/10); if ($npag < ($count/10)) { $npag = $npag + 1; } } print "
Pag. $pagina di $npag           Ricerca:   $rivista - $azienda2 - $testo - $visualmese - $anno Pag.  "; if ($iniziopagina > 1) { $iniziopaginanew = $iniziopagina - 10; print "[prec] "; } $init = $iniziopagina; until (($init > $npag) || ($init > ($iniziopagina + 10)) || ($npag == 1)) { print "$init "; $init = $init + 1; } if ($init < $npag) { $iniziopaginanew = $iniziopagina + 10; print "[succ] "; } print "
"; print "
Azienda Redazionale Rivista
"; unless (open (DATA,"/easysearch/password.txt")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; seek DATA, 0, 0; } @input = ; if ($uselock eq '1') { flock DATA, 8; } $currentline = @input; close (DATA); $colore = "#E7E7E7"; while (($id, $titoloita, $titoloeng, $titolospa, $redita, $redeng, $redspa, $fotoA, $fotoB, $fotoC, $fotoD, $tit1ita, $tit1eng, $tit1spa, $tit2ita, $tit2eng, $tit2spa, $tit3ita, $tit3eng, $tit3spa, $tit4ita, $tit4eng, $tit4spa, $azienda, $imgazienda, $rivista, $imgrivista, $numrivista, $datarivista, $utente, $password, $datains, $categoria) = $stat->fetchrow_array) { $i = $currentline; $trovato = 'no'; $ident = ''; until (($i < 0) || ($trovato eq 'si')) { @data = split(/::/,$input[$i]); $uutente = "\U$data[0]"; $upassword = "\U$data[1]"; $uutente2 = "\U$utente"; $upassword2 = "\U$password"; if (($uutente eq $uutente2) && ($upassword eq $upassword2)) { $trovato = 'si'; $ident = $data[2]; } else { --$i; } } $nazione = ''; if (($ident ne '0000') && ($ident ne '')) { ($citta,$provincia,$nazione,$u,$p) = $dbh->selectrow_array("SELECT CITTA, PROVINCIA, NAZIONE, USER, PASSWORD FROM Base WHERE ID='$ident'"); } if ($colore eq '#E7E7E7') { $colore = '#CCCCCC'; } else { $colore = '#E7E7E7'; } ($ragionesociale,$indirizzo,$cap,$citta,$provincia,$nazione,$mail,$telefono,$fax,$imgragione) = $dbh->selectrow_array("SELECT RAGIONESOCIALE,INDIRIZZO,CAP,CITTA,PROVINCIA,NAZIONE,MAIL,TELEFONO,FAX,IMMAGINE FROM Base WHERE ID='$azienda'"); ($nomenazione,$imgnazione) = $dbh->selectrow_array("SELECT NAZIONE,IMMAGINE FROM Nazioni WHERE ID='$nazione'"); $d1 = substr($redita,0,350); $d1 = $d1." ..."; print "
"; if ($imgragione ne '') { print " $ragionesociale - $indirizzo - $cap - $citta - $provincia - $nomenazione - Tel: $telefono - Fax: $fax"; } print " $titoloita

"; if ($rivista ne '') { print "" $rivista "   "; } if ($numrivista ne '') { print "N° $numrivista    "; } @vardata = split(/-/,$datarivista); if ($datarivista ne '0000-00-00') { print "($vardata[1]/$vardata[0])"; } print "

 "; ################################### if ($rivista eq 'Ars Arpel') { print "$rivista"; } if ($rivista eq 'Ars Sutoria') { print "$rivista"; } if ($rivista eq 'Calzatura') { print "$rivista"; } if ($rivista eq 'Fotoshoe') { print "$rivista"; } if ($rivista eq 'International Technology') { print "$rivista"; } if ($rivista eq 'Leather International') { print ""; } if ($rivista eq 'Serma') { print "$rivista"; } if ($rivista eq 'Shoe Intelligence') { print "$rivista"; } ######################################## print "
$d1
"; } print "

Calzatura E-Mail: info\@calzatura.com
All Rights Reserved.

"; $dbh->disconnect; exit; ################################################################################## sub error { $noshow = 1; print "

File Access Error

You have an error in your PATH configuration variables in the $ENV{'SCRIPT_NAME'} file.

Your server reports that your BASE path is : $ENV{'DOCUMENT_ROOT'}
Note that this is reported as your BASE path, not the FULL path to your files.

If you require help installing this script please consider purchasing the professional version of this script. Your purchase includes full tech support and installation.

Get it at : http://www.getperl.com/easysearch/

\n"; &footer; }