#!/usr/bin/perl
# add.pl : ajoute des références au bon de commande de l'utilisateur.
# entrées: cod-$i, qty-$i et com-$i : le code, la quantité et si il faut ou non commander
# la référence.
# note: l'ordre des paramètres est important. Le code doit etre en premier.
# note: si com-$i ne vaut pas 'on', il n'existe pas.
use CGI;
use CGI::Carp qw(fatalsToBrowser); # redéfinit die()
use DBI;
require "./look.pm";
require "./data.pm";
$user = 'greywolf'; # utilisateur de la base de donnée
$pass = ''; # mot de passe de la base de donnée
$server = 'localhost'; # Et machine de la base.
#$data_source = 'dbi:Pg:dbname=mafma';
$data_source = 'dbi:mSQL:mafma';
$EURO = 6.55957;
$query = new CGI;
&init;
@pairs = split( /&/, $query->query_string );
foreach $pair(@pairs) {
my($name,$value) = split( /=/, $pair );
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
my($param,$code) = split( /-/, $name );
if ($param eq "cod") { push @codes, $value; push @commandes, 0; }
if ($param eq "qty") { push @quantites, $value; }
if ($param eq "com") { pop @commandes; push @commandes, 1; }
}
&html_begin;
print "\n";
print "\n";
print "\n";
&done;
sub init {
# Connection à la base
$dbh = DBI->connect( $data_source, $user, $pass ) || die $DBI::errstr;
print "Content-type: text/html\n\n";
print "\n";
print "Done\n";
print "\n";
}
sub done {
$dbh->disconnect;
print "\n";
print "";
exit;
}