#!/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'; $footfile = '/italy/head/foot.txt'; # 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 footer information 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){ $footer = $footer.$footline; } # Get the Dbase information #------------------------------------------------- M A I N print "Content-type: text/html\n\n"; $numero = $FORM{'numero'}; $action = $FORM{'action'}; $password = $FORM{'password'}; if ($action eq 'rubrica') { print "

SCHEDA VCF PER OUTLOOK 2000 o RUBRICA DI CALZATURA

Inserisci la tua PASSWORD di CALZATURA:

"; exit; } # 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, IMMAGINE, PAGA, CATEGORIA1, CATEGORIA2, CATEGORIA3, NOMECONTATTO, COGNOMECONTATTO, POSIZIONECONTATTO, MAILCONTATTO, NOMEACQUISTI, COGNOMEACQUISTI, CELLULAREACQUISTI, NOMEVENDITE, COGNOMEVENDITE, CELLULAREVENDITE FROM Base WHERE ID='$numero'"); my $return = $stat->execute; ($id, $rag, $indirizzo, $cap, $citta, $provincia, $nazione, $mail, $url, $telefono, $fax, $descrizione, $immagine, $paga, $cat1, $cat2, $cat3, $nomecontatto, $cognomecontatto, $posizione, $emailpersonale, $nomeacquisti, $cognomeacquisti, $cellulareacquisti, $nomevendite, $cognomevendite, $cellularevendite) = $stat->fetchrow_array; ($nazioneestesa) = $dbh->selectrow_array("SELECT NAZIONE FROM Nazioni WHERE ID='$nazione'"); $dbh->disconnect; $linea3 = $cognomecontatto."::".$nomecontatto."::".$telefono."::".$fax."::".$mail."::".$posizione."::".$rag."::".$indirizzo."::".$citta."::".$cap."::"." "."::".$provincia."::".$nazioneestesa."::"." "."::".$url."::"." "."::"." "."::"." "."::"." "."::"; if ($action eq 'aggiungi') { $files2 = "/agende/".$password."rub.txt"; unless (open (DATA,"$files2")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; seek DATA, 0, 0; } @input = ; if ($uselock eq '1') { flock DATA, 8; } close (DATA); $entries = @input; $currentline = $entries; $contatore = 0; until ($currentline < 0){ @data = split (/::/,$input[$currentline]); if ($data[19] > $contatore){ $contatore = $data[19]; } $currentline = $currentline - 1; } $contatore = $contatore + 1; $linea3 = $linea3.$contatore."::"."Cliente"."::"; $files2 = "/agende/".$password."rub.txt"; unless (open (DATA,">>$files2")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; } print DATA "$linea3\n"; if ($uselock eq '1') { flock DATA, 8; } close (DATA); unless (open (DATA,"$files2")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; seek DATA, 0, 0; } @input = ; if ($uselock eq '1') { flock DATA, 8; } close (DATA); $entries = @input; $currentline = $entries; $files = "/agende/".$password."rub.new"; unless (open (DATA,">$files")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; } until (($currentline < 0 )){ @data = split (/::/,$input[$currentline]); $currentline2 = $currentline - 1; until (($currentline2 < 0)){ @data2 = split (/::/,$input[$currentline2]); if (($data[0] lt $data2[0])){ $data[0] = $data2[0]; $appoggio = $input[$currentline]; $input[$currentline] = $input[$currentline2]; $input[$currentline2] = $appoggio; } $currentline2 = $currentline2 - 1; } if ($input[$currentline] ne ''){ print DATA "$input[$currentline]"; } $currentline=$currentline - 1; } if ($uselock eq '1') { flock DATA, 8; } close (DATA); $files = "/agende/".$password."rub.new"; $files2 = "/agende/".$password."rub.txt"; unlink $files2; rename $files , $files2; print "

SCHEDA VCF PER OUTLOOK 2000 o RUBRICA DI CALZATURA

INSERIMENTO ESEGUITO

"; exit; } $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, IMMAGINE, PAGA, CATEGORIA1, CATEGORIA2, CATEGORIA3, NOMECONTATTO, COGNOMECONTATTO, POSIZIONECONTATTO, MAILCONTATTO, NOMEACQUISTI, COGNOMEACQUISTI, CELLULAREACQUISTI, NOMEVENDITE, COGNOMEVENDITE, CELLULAREVENDITE FROM Base WHERE ID='$numero'"); my $return = $stat->execute; ($id, $rag, $indirizzo, $cap, $citta, $provincia, $nazione, $mail, $url, $telefono, $fax, $descrizione, $immagine, $paga, $cat1, $cat2, $cat3, $nomecontatto, $cognomecontatto, $posizione, $emailpersonale, $nomeacquisti, $cognomeacquisti, $cellulareacquisti, $nomevendite, $cognomevendite, $cellularevendite) = $stat->fetchrow_array; ($nazioneestesa) = $dbh->selectrow_array("SELECT NAZIONE FROM Nazioni WHERE ID='$nazione'"); $dbh->disconnect; $files = "/vcard/".$numero.".vcf"; $files2 = "http://www.calzatura.com/vcard/".$numero.".vcf"; unless (open (DATA,">$files")) {die (&error);} if ($uselock eq '1') { flock DATA, 2; } print DATA "BEGIN:VCARD\n"; print DATA "VERSION:2.1\n"; print DATA "N:$nomecontatto;$cognomecontatto\n"; print DATA "FN:$cognomecontatto $nomecontatto\n"; print DATA "ORG:$rag\n"; print DATA "TITLE:$posizione\n"; print DATA "TEL;WORK;VOICE:$telefono\n"; print DATA "TEL;HOME;VOICE:\n"; print DATA "TEL;CELL;VOICE:\n"; print DATA "TEL;WORK;FAX:$fax\n"; print DATA "ADR;WORK:;;;$indirizzo $cap $citta $provincia;;;$nazioneestesa\n"; print DATA "LABEL;WORK;ENCODING=QUOTED-PRINTABLE:$indirizzo $cap $citta $provincia=0D=0A$nazioneestesa\n"; print DATA "URL:\n"; print DATA "URL:$url\n"; print DATA "EMAIL;PREF;INTERNET:$mail\n"; print DATA "REV:20010323T171302Z\n"; print DATA "END:VCARD\n"; if ($uselock eq '1') { flock DATA, 8; } close (DATA); print "

SCHEDA VCF PER OUTLOOK 2000 o RUBRICA DI CALZATURA

Per scaricare direttamente i dati di questo Cliente sulla tua rubrica personale di *OUTLOOK* clicca qui sotto:	Per scaricare direttamente i dati di questo Cliente sulla tua rubrica personale di CALZATURA clicca qui sotto:

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