#!/usr/bin/perl

($secondes, $minutes, $heures, $jour_mois, $mois,
    $an, $jour_semaine, $jour_calendaire, $heure_ete) = localtime(time);
$an+=1900;
$mois+=1;

print "Content-type: text/html\n\n";
#print "Content-type: text/plain\n\n";

print "<html><head><title>Ajout d'une depense</title></head>\n";

print "<body>\n";

print "Nous sommes le $jour_mois / $mois / $an <br>\n";

print "<FORM ACTION=ajout.cgi METHOD=POST>";

print "<table>";
print "<tr><td>Jour</td>";
print "<td>Mois</td>";
print "<td>Annee</td>";
print "<td>Montant</td>";
print "<td>Quand / Ou ?</td>";
print "</tr><tr>";

print "<td><select name=\"jour\">\n";
for ($i=1;$i<32;$i++)
{
	print "<option value=\"$i\" ";
	if ($i==$jour_mois) { print "selected"; };
	print ">$i</option>\n";
}
print "</select></td>\n";

print "<td><select name=\"mois\">\n";
for ($i=1;$i<13;$i++)
{
        print "<option value=\"$i\" ";
        if ($i==$mois) { print "selected"; };
        print ">$i</option>\n";
}
print "</select></td>\n";

print "<td><select name=\"annee\">\n";
for ($i=2007;$i<2009;$i++)
{
        print "<option value=\"$i\" ";
        if ($i==$an) { print "selected"; };
        print ">$i</option>\n";
}
print "</select></td>\n";

print "<td><input type=\"text\" name=\"montant\"></td>";

print "<td><input type=\"text\" name=\"quoi\"></td>";
print "</tr></table><br>";

print "<input type=\"submit\">";

print "</form>\n";

print "</body></html>\n";

