#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Liste $nombre\n";
print "\n";
@nb = (0,31,59,90,120,151,181,212,243,273,304,334,365);
open(DEP,"depenses/courant.txt");
$ligne = ;
$ligne =~ /^(\d+)\/(\d+)\/(\d+)\./;
$debut = $1+$nb[$2];
@amount = ();
@when = ();
$total = 0;
$nombre = 0;
while($ligne=)
{
$ligne =~ /^(\d+)\/(\d+)\/(\d+):(.*):(.*)$/;
($jour, $mois, $annee, $montant, $quoi) = ($1,$2,$3,$4,$5);
$courant = $jour+$nb[$mois];
$ecart = $courant - $debut;
$nombre++;
$total += $montant;
printf "Le %i/%i/%i, %.02f EUR (%s)
\n",$jour,$mois,$annee,$montant,$quoi;
}
print "
Total: $total EUR
\n";
$possible=850-$total;
$mieux=650-$total;
print "
Peut encore etre dépensé ce mois ci: $possible EUR
\n";
print "
Mieux vaudrait ne pas dépenser plus de: $mieux EUR
\n";
($secondes, $minutes, $heures, $jour_mois, $mois,
$an, $jour_semaine, $jour_calendaire, $heure_ete) = localtime(time);
$possible_now = $possible-850/$jour_calendaire;
$mieux_now = $mieux-650/$jour_calendaire;
printf "
Peut être dépensé aujourd'hui: %i EUR
\n", $possible_now;
printf "
mieux vaudrait ne pas dépenser plus de: %i EUR
\n", $mieux_now;
print "";