#!/usr/bin/perl ######################################################## # # # Gestdb v1.0 by Michela Fontana # # Website : http://www.calzatura.com # # Created : 01/01/2003 # # # ######################################################## ############ 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; } # 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 $mysql1 = 'calzatura_com_calzatura'; $mysql2 = 'mysql.register.it'; $mysql3 = 'GS1219_CALZATURA'; $mysql4 = 'michela'; $categoria = $FORM{'categoria'}; $tipo = $FORM{'tipo'}; $nazione = $FORM{'nazione'}; $anno = $FORM{'anno'}; $parole = $FORM{'parole'}; $ordine = $FORM{'ordine'}; $B3 = $FORM{'B3'}; $miamail = $FORM{'miamail'}; $password = $FORM{'password'}; if ($ordine eq '') { $ordine = 'ID'; } if ($FORM{'B3'} ne '') { $condizione = 'WHERE'; if ($categoria ne '') { $condizione = $condizione." CATEGORIA='$categoria' "; } if ($tipo ne '') { if ($condizione ne 'WHERE') { $condizione = $condizione." and "; } $condizione = $condizione." TIPO LIKE '$tipo' "; } if ($cond2 ne '') { if ($condizione ne 'WHERE') { $condizione = $condizione.' and';} $condizione = $condizione." (".$cond2.")"; } } if ($nazione ne '') { if ($condizione ne 'WHERE') { $condizione = $condizione." and "; } $condizione = $condizione." NAZIONE LIKE '$nazione' "; } if ($anno ne '') { if ($condizione ne 'WHERE') { $condizione = $condizione.' and';} $uanno = "%$anno"; $condizione = $condizione." DATAINSERIMENTO LIKE '$uanno' "; } if ($parole ne '') { $uparole = "%$parole%"; if ($condizione ne 'WHERE') { $condizione = $condizione.' and';} $condizione = $condizione." OGGETTO LIKE '$uparole' or OGGETTOENG LIKE '$uparole' or OGGETTOSPA LIKE '$uparole' or OGGETTOPORT LIKE '$uparole' or DESCRIZIONE LIKE '$uparole' or DESCRIZIONEENG LIKE '$uparole' or DESCRIZIONESPA LIKE '$uparole' or DESCRIZIONEPORT LIKE '$uparole'"; } if ($condizione eq 'WHERE') { $condizione = '';} print "Content-type: text/html\n\n"; print "$heading"; print "

MARKET PLACE

Tipo	Categoria	Nazione	Anno	Testo

"; ################################################################################## # Open DB connection $dbh = DBI->connect("DBI:mysql:$mysql1:$mysql2", $mysql3, $mysql4); if (!dbh) { print "Errore!"; } $count = $dbh->do("SELECT * FROM Market $condizione"); if ($count < 1) { print "

Nessun Oggetto Trovato per la ricerca Eseguita

"; print "$footing"; exit; } ################################################################################## $pagina = $FORM{'pagina'}; $iniziopagina = $FORM{'iniziopagina'}; if ($pagina eq '') { $pagina = 1; } if ($iniziopagina eq '') { $iniziopagina = 1; } if ($pagina < $iniziopagina) { $pagina = $iniziopagina; } $inizio = ($pagina * 20) - 20; $fine = 20; my $stat = $dbh->prepare("SELECT ID, TIPO, CATEGORIA, OGGETTO, DESCRIZIONE, PREZZO, VALUTA, FOTO, UTENTE, PASSWORD, DATAINSERIMENTO, DATAVALIDITA, PAGAMENTO, GIORNI, RESA, OGGETTOENG, OGGETTOSPA, OGGETTOPORT, DESCRIZIONEENG, DESCRIZIONESPA, DESCRIZIONEPORT, UM, NAZIONE FROM Market $condizione ORDER BY $ordine desc LIMIT $inizio,$fine"); my $return = $stat->execute; if ($count > 0) { $npag = int($count/20); if ($npag < ($count/20)) { $npag = $npag + 1; } } print "

PAGINA$pagina di $npag

"; if ($iniziopagina > 1) { $iniziopaginanew = $iniziopagina - 10; print "[back] "; } $init = $iniziopagina; until (($init > $npag) || ($init > ($iniziopagina + 10)) || ($npag == 1)) { print "$init "; $init = $init + 1; } if ($init < $npag) { $iniziopaginanew = $iniziopagina + 10; print "[next] "; } print "

"; print "

"; 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); while (($id, $tipo, $categoria, $oggetto, $descrizione, $prezzo, $valuta, $foto, $mkutente, $mkpassword, $datainserimento, $validita, $pagamento, $giorni, $resa, $oggettoeng, $oggettospa, $oggettoport, $descrizioneeng, $descrizionespa, $descrizioneport, $um, $mknazione) = $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; } } ($azienda,$citta,$provincia,$naz,$mail,$nomecontatto,$cognomecontatto) = $dbh->selectrow_array("SELECT RAGIONESOCIALE, CITTA, PROVINCIA, NAZIONE, MAIL, NOMECONTATTO, COGNOMECONTATTO FROM Base WHERE MAIL='$mkutente'"); ($nazioneestesa, $imgnazione) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$naz'"); $fotourl='http://www.calzatura.com/fotomarket/'.$foto; if ($tipo eq 'Accessori') { $colore1 = "#FF8080"; $colore2 = "#FFCAE4"; $angle = "http://www.calzatura.com/images/angle/salmone2.gif"; $icona = "http://www.calzatura.com/images/icone/accessori.gif"; $iconadesc = "Accessori"; } if ($tipo eq 'Agenti') { $colore1 = "#53FFA9"; $colore2 = "#D9FFEC"; $angle = "http://www.calzatura.com/images/angle/verde2.gif"; $icona = "http://www.calzatura.com/images/icone/agenti.gif"; $iconadesc = "Agenti"; } if ($tipo eq 'Calzature Bambino') { $colore1 = "#FFFF80"; $colore2 = "#FFFFD9"; $angle = "http://www.calzatura.com/images/angle/giallo2.gif"; $icona = "http://www.calzatura.com/images/icone/calzatura_bambino.gif"; $iconadesc = "Calzature Bambino"; } if ($tipo eq 'Calzature Donna') { $colore1 = "#FF8080"; $colore2 = "#FFCAE4"; $angle = "http://www.calzatura.com/images/angle/salmone2.gif"; $icona = "http://www.calzatura.com/images/icone/calzatura_donna.gif"; $iconadesc = "Calzature Donna"; } if ($tipo eq 'Calzature Uomo') { $colore1 = "#0080FF"; $colore2 = "#CAE6FF"; $angle = "http://www.calzatura.com/images/angle/celeste2.gif"; $icona = "http://www.calzatura.com/images/icone/calzatura_uomo.gif"; $iconadesc = "Calzature Uomo"; } if ($tipo eq 'Componenti') { $colore1 = "#82C4FE"; $colore2 = "#CAE6FF"; $angle = "http://www.calzatura.com/images/angle/celestino2.gif"; $icona = "http://www.calzatura.com/images/icone/componenti.gif"; $iconadesc = "Componenti"; } if ($tipo eq 'Immobili') { $colore1 = "#008080"; $colore2 = "#CAE6FF"; $angle = "http://www.calzatura.com/images/angle/verdone2.gif"; $icona = "http://www.calzatura.com/images/icone/immobili.gif"; $iconadesc = "Immobili"; } if ($tipo eq 'Lavoro') { $colore1 = "#808080"; $colore2 = "#D6D6D6"; $angle = "http://www.calzatura.com/images/angle/grigio2.gif"; $icona = "http://www.calzatura.com/images/icone/lavoro.gif"; $iconadesc = "Lavoro"; } if ($tipo eq 'Lavoro conto Terzi') { $colore1 = "#FF9E3E"; $colore2 = "#FFE2C6"; $angle = "http://www.calzatura.com/images/angle/arancio2.gif"; $icona = "http://www.calzatura.com/images/icone/lavoro_c_terzi.gif"; $iconadesc = "Lavoro conto Terzi"; } if ($tipo eq 'Macchinari') { $colore1 = "#FF9E3E"; $colore2 = "#FFE2C6"; $angle = "http://www.calzatura.com/images/angle/arancio2.gif"; $icona = "http://www.calzatura.com/images/icone/macchinari.gif"; $iconadesc = "Macchinari"; } if ($tipo eq 'Pellami') { $colore1 = "#FF0080"; $colore2 = "#FFCAE4"; $angle = "http://www.calzatura.com/images/angle/fucsia2.gif"; $icona = "http://www.calzatura.com/images/icone/concerie.gif"; $iconadesc = "Pellami"; } if ($tipo eq 'Pelletteria') { $colore1 = "#0080FF"; $colore2 = "#CAE6FF"; $angle = "http://www.calzatura.com/images/angle/celeste2.gif"; $icona = "http://www.calzatura.com/images/icone/pelletterie.gif"; $iconadesc = "Pelletteria"; } if ($tipo eq 'Prodotti Chimici') { $colore1 = "#B366FF"; $colore2 = "#DFBFFF"; $angle = "http://www.calzatura.com/images/angle/viola2.gif"; $icona = "http://www.calzatura.com/images/icone/chimico.gif"; $iconadesc = "Prodotti Chimici"; } if ($tipo eq 'Sintetici') { $colore1 = "#B366FF"; $colore2 = "#DFBFFF"; $angle = "http://www.calzatura.com/images/angle/viola2.gif"; $icona = "http://www.calzatura.com/images/icone/sintetici.gif"; $iconadesc = "Sintetici"; } if ($tipo eq 'Suole') { $colore1 = "#9B9BFF"; $colore2 = "#D7D7FF"; $angle = "http://www.calzatura.com/images/angle/lilla2.gif"; $icona = "http://www.calzatura.com/images/icone/suole.gif"; $iconadesc = "Suole"; } if ($tipo eq 'Tessuti') { $colore1 = "#9B9BFF"; $colore2 = "#D7D7FF"; $angle = "http://www.calzatura.com/images/angle/lilla2.gif"; $icona = "http://www.calzatura.com/images/icone/tessuti.gif"; $iconadesc = "Tessuti"; } if ($tipo eq 'Varie') { $colore1 = "#FFFF80"; $colore2 = "#FFFFD9"; $angle = "http://www.calzatura.com/images/angle/giallo2.gif"; $icona = "http://www.calzatura.com/images/icone/varie.gif"; $iconadesc = "Varie"; } print"

$id

"; if ($oggetto ne '') { print "$oggetto"; } else { if ($oggettoeng ne '') { print "$oggettoeng"; } else { if ($oggettospa ne '') { print "$oggettospa"; } else { if ($oggettoport ne '') { print "$oggettoport"; } } } } print "

$datainserimento

$categoria

$azienda
"; $d1 = substr($descrizione,0,200); $d1 = $d1." ..."; $d2 = substr($descrizioneeng,0,200); $d2 = $d2." ..."; $d3 = substr($descrizionespa,0,200); $d3 = $d3." ..."; $d4 = substr($descrizioneport,0,200); $d4 = $d4." ..."; if ($descrizione ne '') { print "$d1"; } else { if ($descrizioneeng ne '') { print "$d2"; } else { if ($descrizionespa ne '') { print "$d3"; } else { if ($descrizioneport ne '') { print "$d4"; } } } } print "

"; if ($prezzo ne '0.00') { print "Prezzo: $valuta $prezzo "; } if ($um ne '') { print "U.M.: $um "; } print"

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

$iconadesc

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

"; } print"

"; } print "

PAGINA$pagina di $npag

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