#!/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; } $id = $FORM{'id'}; print "Content-type: text/html\n\n"; ################################################################################## # Open DB connection $dbh = DBI->connect("DBI:mysql:calzatura_com_calzatura:mysql.register.it", GS1219_CALZATURA, michela); if (!dbh) { print "Errore!"; } ($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) = $dbh->selectrow_array("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 FROM Redazionali WHERE ID='$id'"); $i = $currentline; $trovato = 'no'; $ident = ''; ($ragionesociale,$indirizzo,$cap,$citta,$provincia,$nazione,$mail,$imgragione) = $dbh->selectrow_array("SELECT RAGIONESOCIALE,INDIRIZZO,CAP,CITTA,PROVINCIA,NAZIONE,MAIL,IMMAGINE FROM Base WHERE ID='$azienda'"); ($nomenazione,$imgnazione) = $dbh->selectrow_array("SELECT NAZIONE,IMMAGINE FROM Nazioni WHERE ID='$nazione'"); $fotourlA='http://www.calzatura.com/cgi/redazionali/'.$fotoA; $fotourlB='http://www.calzatura.com/cgi/redazionali/'.$fotoB; $fotourlC='http://www.calzatura.com/cgi/redazionali/'.$fotoC; $fotourlD='http://www.calzatura.com/cgi/redazionali/'.$fotoD; print "

$ragionesociale

$ragionesociale
Azienda: $ragionesociale
$indirizzo
$cap $citta ($provincia)
$nomenazione

"; if ($rivista eq 'Ars Arpel') { print "Pubblicato su:
$rivista"; } if ($rivista eq 'Ars Sutoria') { print "Pubblicato su:
$rivista"; } if ($rivista eq 'Fotoshoe') { print "Pubblicato su:
$rivista"; } if ($rivista eq 'International Technology') { print "Pubblicato su:
$rivista"; } if ($rivista eq 'Leather International') { print "Pubblicato su:
"; } if ($rivista eq 'Serma') { print "Pubblicato su:
$rivista"; } if ($rivista eq 'Shoe Intelligence') { print "Pubblicato su:
$rivista'"; } print "

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

$titoloita
"; if ($fotoA ne '') { print "
         

$tit1ita
  $tit1ita
"; } print "




"; if ($fotoB ne '') { print "
         

$tit2ita
  $tit2ita
"; } print "
 $redita
"; if ($fotoC ne '') { print "
         

$tit3ita
  $tit3ita
"; } print "




"; if ($fotoD ne '') { print "
         

$tit4ita
  $tit4ita
"; } print "
"; 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; }