#!/usr/bin/perl ######################################################## # # # Gestdb v1.0 by Michela Fontana # # Website : http://www.calzatura.com # # Created : 01/01/2004 # # # ######################################################## ############ ADJUST THESE VARIABLES ################ use CGI; use DBI; # Get the Dbase information $mysql1 = 'calzatura_com_calzatura'; $mysql2 = 'mysql.register.it'; $mysql3 = 'GS1219_CALZATURA'; $mysql4 = 'michela'; # 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; } #------------------------------------------------- M A I N print "Content-type: text/html\n\n"; $numero = $FORM{'numero'}; $numero1 = $FORM{'numero1'}; $username = 'calzatodo'; $password = 'password'; # Open DB connection $dbh = DBI->connect("DBI:mysql:$mysql1:$mysql2", $mysql3, $mysql4); if (!dbh) { print "Errore!"; } my $stat = $dbh->prepare("SELECT ID, RAGIONESOCIALE, INDIRIZZO, CAP, CITTA, PROVINCIA, NAZIONE, MAIL, URL, TELEFONO, FAX, DESCRIZIONEITA, MARCHI, IMMAGINE, PAGA, CATEGORIA1, CATEGORIA2, CATEGORIA3, NOMECONTATTO, COGNOMECONTATTO, MAILCONTATTO, NOMEACQUISTI, COGNOMEACQUISTI, CELLULAREACQUISTI, NOMEVENDITE, COGNOMEVENDITE, CELLULAREVENDITE FROM Base WHERE ID='$numero1'"); my $return = $stat->execute; ($id, $rag, $indirizzo, $cap, $citta, $provincia, $nazione, $mail, $url, $telefono, $fax, $descrizione, $marchi, $immagine, $paga, $cat1, $cat2, $cat3, $nomecontatto, $cognomecontatto, $emailpersonale, $nomeacquisti, $cognomeacquisti, $cellulareacquisti, $nomevendite, $cognomevendite, $cellularevendite) = $stat->fetchrow_array; ($nomenazione,$areacode, $urlnazione) = $dbh->selectrow_array("SELECT NAZIONE, AREACODE, IMMAGINE FROM Nazioni WHERE ID='$nazione'"); ($cittanome, $cittanaz, $cittaimg, $cittaaero, $cittatreno) = $dbh->selectrow_array("SELECT CITTA, NAZIONE, IMG, LINKAERO, LINKTRENO FROM Mappy WHERE CITTA='$citta'"); $esiste = ''; ($esiste) = $dbh->selectrow_array("SELECT NOME FROM Myway WHERE PASSWORD like '$password'"); $dbh->disconnect; print "$heading"; print "

"; if ($urlnazione =~ 'http') { print "

"; } if ($esiste ne '') { $collegamyway = "http://www.calzatura.com/".$esiste.".it"; } if (($url eq '') && ($esiste ne '')) { $url = $collegamyway; } if ($url !~ 'http://') { $url = ''; } if ($url ne '') { print "$rag "; } else { print "$rag "; } print "

"; if ($url ne '') { print "$rag "; } else { print "$rag "; } print "

"; if ($indirizzo ne '') { print "$indirizzo
"; } if ($cap ne '') { print "$cap "; } if ($citta ne '') { print " $citta
"; } if ($provincia ne '') { print "$provincia
"; } if ($nomenazione ne '') { print "$nomenazione
"; } if ($telefono ne '') { print "Tel: "; if ($areacode ne '') { print " +$areacode "; } print " $telefono
"; } if ($fax ne '') { print " Fax: "; if ($areacode ne '') { print " +$areacode "; } print " $fax"; } print "

"; if (($cittaaero ne '') || ($cittatreno ne '')) { print"

Come raggiungerci:

"; if ($cittaaero ne '') { print " "; } if ($cittatreno ne '') { print " "; } print "

	via aerea
	via treno

"; } print "

"; print "$footing"; exit; #------------------------------------------------- E N D M A I N 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; }