#!/usr/bin/perl ######################################################## # # # Gestdb v1.0 by Michela Fontana # # Website : http://www.traderunner.it # # Created : 01/01/2004 # # # ######################################################## 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; } ############################################################################# # Get the heading information $headfile = '/italy/head/head_motore.txt'; unless (open (DATA,"$headfile")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; seek DATA, 0, 0; } @headinfo = ; if ($uselock eq '1') { flock DATA, 8; } close (DATA); foreach $headline (@headinfo){ $heading = $heading.$headline; } # Get the footer information $footfile = '/italy/head/foot.txt'; unless (open (DATA,"$footfile")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; seek DATA, 0, 0; } @footinfo = ; if ($uselock eq '1') { flock DATA, 8; } close (DATA); foreach $footline (@footinfo){ $footing = $footing.$footline; } $mysql1 = 'calzatura_com_calzatura'; $mysql2 = 'mysql.register.it'; $mysql3 = 'GS1219_CALZATURA'; $mysql4 = 'michela'; #------------------------------------------------------------------------------------- #--- DATABASE MYSQL #------------------------------------------------------------------------------------- print "Content-type: text/html\n\n"; $username = 'calzatodo'; $password = 'password'; $categoria = $FORM{'categoria'}; $pagina = $FORM{'pagina'}; $iniziopagina = $FORM{'iniziopagina'}; $ordina = $FORM{'ordina'}; # Get the heading information $headfile = ''; if (($categoria >= 100) && ($categoria <= 200)) { $headfile = '/italy/head/head_negozi.txt'; } if (($categoria >= 200) && ($categoria <= 300)) { $headfile = '/italy/head/head_calzaturifici.txt'; } if (($categoria >= 300) && ($categoria <= 400)) { $headfile = '/italy/head/head_pelletterie.txt'; } if (($categoria >= 400) && ($categoria <= 500)) { $headfile = '/italy/head/head_componenti.txt'; } if (($categoria >= 500) && ($categoria <= 600)) { $headfile = '/italy/head/head_macchinari.txt'; } if (($categoria >= 600) && ($categoria <= 700)) { $headfile = '/italy/head/head_servizi.txt'; } if (($categoria >= 800) && ($categoria <= 900)) { $headfile = '/italy/head/head_utilita.txt'; } if ($headfile ne '') { unless (open (DATA,"$headfile")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; seek DATA, 0, 0; } @headinfo = ; if ($uselock eq '1') { flock DATA, 8; } close (DATA); foreach $headline (@headinfo){ $heading = $heading.$headline; } print "$heading"; } ###################################################################################### if ($pagina eq '') { $pagina = 1; } if ($iniziopagina eq '') { $iniziopagina = 1; } if ($pagina < $iniziopagina) { $pagina = $iniziopagina; } $inizio = ($pagina * 20) - 20; $fine = 20; # Open DB connection $dbh = DBI->connect("DBI:mysql:$mysql1:$mysql2", $mysql3, $mysql4); if (!dbh) { print "Errore!"; } $count = $dbh->do("SELECT * FROM Base WHERE CATEGORIA1='$categoria' or CATEGORIA2='$categoria' or CATEGORIA3='$categoria'"); if ($count < 1) { print "

 

RICERCA IMMEDIATA

 
 



ATTENZIONE:

La ricerca effettuata ha trovato:  0 Nominativi

Prova ad effettuare una nuova ricerca

 

  
 
"; print "$footing"; exit; } if (($ordina eq 'top') || ($ordina eq '')) { $scriviord = 'Top'; $ord = 'PAGA'; $metodo = 'DESC'; } if ($ordina eq 'clientecrescente') { $scriviord = 'Cliente A a Z'; $ord = 'RAGIONESOCIALE'; $metodo = 'ASC'; } if ($ordina eq 'clientedecrescente') { $scriviord = 'Cliente Z a A'; $ord = 'RAGIONESOCIALE'; $metodo = 'DESC'; } if ($ordina eq 'nazionecrescente') { $scriviord = 'Nazione A a Z'; $ord = 'NAZIONE'; $metodo = 'ASC'; } if ($ordina eq 'nazionedecrescente') { $scriviord = 'Nazione Z a A'; $ord = 'NAZIONE'; $metodo = 'DESC'; } my $stat = $dbh->prepare("SELECT ID, RAGIONESOCIALE, INDIRIZZO, CAP, CITTA, PROVINCIA, NAZIONE, MAIL, URL, TELEFONO, FAX, DESCRIZIONEITA, DESCRIZIONEENG, DESCRIZIONESPA, DESCRIZIONEPORT, MARCHI, CATEGORIA1, CATEGORIA2, CATEGORIA3, NOMECONTATTO, COGNOMECONTATTO, POSIZIONECONTATTO, DATANASCITACONTATTO, CELLULARECONTATTO, MAILCONTATTO, NOMEACQUISTI, COGNOMEACQUISTI, CELLULAREACQUISTI, MAILACQUISTI, NOMEVENDITE, COGNOMEVENDITE, CELLULAREVENDITE, MAILVENDITE, USER, PASSWORD, PAROLECHIAVE, PAGA, IMMAGINE, LINGUA, LINGUADESC, DESCRIZIONE, FIERE FROM Base WHERE CATEGORIA1='$categoria' or CATEGORIA2='$categoria' or CATEGORIA3='$categoria' ORDER BY $ord $metodo LIMIT $inizio,$fine"); my $return = $stat->execute; if ($count > 0) { $npag = int($count/20); if ($npag < ($count/20)) { $npag = $npag + 1; } } print "
Cerca Comprende Inizia

 
PAG. $pagina di $npag

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"

"; while (($id, $rag, $indirizzo, $cap, $citta, $provincia, $nazione, $mail, $url, $telefono, $fax, $descrizioneita, $descrizioneeng,$descrizionespa,$descrizioneport, $marchi, $cat1, $cat2, $cat3, $nomecontatto, $cognomecontatto, $posizionecontatto, $datacontatto, $cellularecontatto, $mailcontatto, $nomeacquisti, $cognomeacquisti, $cellulareacquisti, $mailacquisti, $nomevendite, $cognomevendite, $cellularevendite, $mailvendite, $user, $password, $parolechiave, $paga, $immagine, $lingua, $linguadesc, $descrizione, $fiere) = $stat->fetchrow_array) { $esiste = ''; ($esiste) = $dbh->selectrow_array("SELECT NOME FROM Myway WHERE PASSWORD like '$password'"); $urlnazione = ''; if ($nazione ne '') { ($nomenazione,$urlnazione) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazione'"); } if ($citta ne '') { ($cittaimg) = $dbh->selectrow_array("SELECT IMG FROM Mappy WHERE CITTA='$citta'"); } print "
"; } print "
 
"; if ($urlnazione =~ 'http') { print "

$nomenazione 

"; } print "		 "; } else { print "$visuale "; } } else { if ($esiste ne '') { $collegamyway = "http://www.calzatura.com/".$esiste.".it"; print "$visuale "; } else { print "$visuale"; } } print "
 "; $visuale = $rag; if ($url =~ 'http') { if ($paga eq 'si') { print "$visuale "; print " VISUALIZZA "; if ($paga eq 'si') { print "VCARD "; } if ($marchi ne '') { if ($paga eq 'si') { print "MARCHI "; } } if ($mail =~ '\@') { if ($paga eq 'si') { print " MAIL "; } else { print " MAIL "; } } if ($url =~ 'http') { if ($paga eq 'si') { print "URL "; } } if ($esiste ne '') { $collegamyway = "http://www.calzatura.com/".$esiste.".it"; print "SITO su MYWAY "; } if ($cittaimg ne '') { print "MAPPA CITTA "; } if ($paga eq 'si') { print "MEMBRO DI CALZATURA.COM "; } print "

$click
"; if (($immagine =~ 'http') && ($url =~ 'http')) { if ($paga eq 'si') { print" $rag"; } else { print" $rag"; } } #################################### if (($immagine =~ 'http') && ($url !~ 'http')) { if ($paga eq 'si') { if ($esiste ne '') { $collegamyway = "http://www.calzatura.com/".$esiste.".it"; print "$rag"; } else { print" $rag"; } } else { print" $rag"; } } if ($immagine !~ 'http') { print"
"; $dita = substr($descrizioneita,0,200); $dita = $dita." ..."; $deng = substr($descrizioneeng,0,200); $deng = $deng." ..."; $dspa = substr($descrizionespa,0,200); $dspa = $dspa." ..."; $dport = substr($descrizioneport,0,200); $dport = $dport." ..."; $dling = substr($descrizione,0,200); $dling = $dling." ..."; if ($descrizioneita ne '') { print " $dita"; } else { if ($descrizioneeng ne '') { print " $deng"; } else { if ($descrizionespa ne '') { print " $dspa"; } else { if ($descrizioneport ne '') { print " $dport"; } else { if ($descrizione ne '') { print " $dling"; } } } } } print "
"; } print "
"; print "
PAG. $pagina di $npag

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"

Cerca Comprende Inizia

 
"; $dbh->disconnect; print "$footing"; exit; sub error { $noshow = 1; &heading; 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; }