#!/usr/bin/perl
require "cgi-lib.pl";
$ret = &ReadParse(\%cgi_data,\%cgi_name,\%cgi_type,\%localname);
if (!defined $ret) {
&CgiDie("Error in reading and parsing of CGI input");
} elsif (!$ret) {
&CgiDie("Missing parameters\n");
} elsif (!defined $cgi_data{'quoi'} && !defined $cgi_data{'montant'} && !defined $cgi_data{'annee'} && !defined $cgi_data{'jour'} && !defined $cgi_data{'mois'}) {
&CgiDie("Data missing\n");
}
$jour = $cgi_data{'jour'};
$mois = $cgi_data{'mois'};
$annee = $cgi_data{'annee'};
$montant = $cgi_data{'montant'};
$quoi = $cgi_data{'quoi'};
$montant =~ s/^[^\d]*(\d+)([,\.](\d+))?[^\d]*$/$1.$3/;
$quoi =~ s/^(.*):.*$/$1/;
print "Content-type: text/html\n\n";
print "Ajout effectue\n";
print "\n";
printf("Le %i/%i/%i, depense (%s): %.02f EUR
\n",$jour,$mois,$annee,$quoi,$montant);
open(DEP,">>depenses/courant.txt");
printf DEP "%i/%i/%i:%.02f:%s\n",$jour,$mois,$annee,$montant,$quoi;
close(DEP);
#print "
";
print "Voir la courbe
";
print "Voir la liste";
print "";