#!/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; } # Get the Dbase information #------------------------------------------------- M A I N print "Content-type: text/html\n\n"; $numero = $FORM{'numero'}; $username = 'calzatodo'; $password = 'password'; $opz = $FORM{'opz'}; # 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, 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 ID='$numero'"); my $return = $stat->execute; ($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; ($nomenazione,$nazioneimmagine) = $dbh->selectrow_array("SELECT NAZIONE,IMMAGINE FROM Nazioni WHERE ID='$nazione'"); $dbh->disconnect; if ($immagine =~ 'http') { $image = $immagine; } print " CALZATURA.COM - Invia Mail a $rag

INVIA MAIL A:

"; if ($opz eq 'az') { print " $rag"; } if ($opz eq 'cont') { print " "; if (($nomecontatto ne '') || ($cognomecontatto ne '')) { print " $nomecontatto $cognomecontatto
"; } if ($posizionecontatto ne '') { print " $posizionecontatto
";} print " $rag"; } if ($opz eq 'vend') { print " "; if (($nomevendite ne '') || ($cognomevendite ne '')) { print " $nomevendite $cognomevendite
";} print " (Contatto Vendite)
$rag"; } if ($opz eq 'acq') { print " "; if (($nomeacquisti ne '') || ($cognomeacquisti ne '')) { print " $nomeacquisti $cognomeacquisti
";} print " (Contatto Acquisti)
$rag"; } print "

"; if ($image ne '') { print " "; } print"

PER CONTATTARE UN'AZIENDA DEVI COMPILARE I SEGUENTI CAMPI OBLIGATORI
se sei abbonato a Calzatura.com dall'area riservata potrai inviare e-mail ad intere categorie merceologiche con pochi click

Ragione Sociale Indirizzo
Citta' Cap / Provincia /
Nome Contatto Nazione
Cognome Con. Posizione
Telefono Fax
Url E-mail:
Breve
descrizione
dell'azienda
Oggetto:
Messaggio:

"; 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; }