#!/usr/bin/perl

# stocker.pl

require "cgi-lib.pl";

&ReadParse;

if ($in{nom} !~ /^[A-Za-z '-]+$/ ||
    $in{prenom} !~ /^[A-Za-z-]+$/ ||
    $in{produit} eq "Aucun")
{
    print "Content-type: text/html\r\n\r\n";
    print "<html><head><title>Erreur</title></head>";
    print "<body><p>Erreur dans les donn&eacute;es enregistr&eacute;es</p></body></html>";
    exit;
}

if (-e "commandes.txt")
{
    open FICHIER,"commandes.txt";
    @commandes = <FICHIER>;
    close FICHIER;
    ($dernier_numero) = split /\//,$commandes[$#commandes];
    $dernier_numero++;
    push @commandes,"$dernier_numero/$in{nom}/$in{prenom}/$in{email}/$in{produit}\n";
    open FICHIER,">commandes.txt";
    foreach (@commandes)
    {
	print FICHIER;
    }
    close FICHIER;
}
else
{
    open FICHIER,">commandes.txt";
    print FICHIER"1/$in{nom}/$in{prenom}/$in{email}/$in{produit}\n";
    close FICHIER;
}

print "Content-type: text/html\r\n\r\n";
print "<html><head><title>Commande enregistree</title></head>";
print "<body><p>Votre commande a bien &eacute;t&eacute; enregistr&eacute;e</p></body></html>";