correct date insertion

Sam/commands/add.pm

@@ -13,17 +13,17 @@ our $log;
 
 sub exec {
     my ($chanName, $title, $day, $month, $year, $place, $desc) = @_;
-    my $timestamp = timelocal(0, 59, 23, $day, $month - 1, $year);
 
-    my $chan = Sam::Chan->new(name => $chanName);
+    $year += 2000 if ($year < 2000);
 
+    my $chan = Sam::Chan->new(name => $chanName);
     unless ($chan->load(speculative => 1)) {
         die "ce chan n'est pas encore configuré";
     }
 
     my $event = Sam::Event->new(
         title       => $title,
-        date        => $timestamp,
+        date        => "$year-$month-$day 23:59:00",
         place       => $place,
         description => $desc,
         calendar    => $chan->calendar

Sam/commands/parser.pm

@@ -60,6 +60,8 @@ sub exec {
             =xi) {
         my (undef, undef, undef, undef, $current_mon, $current_year, undef, undef, undef) =
             localtime(time);
+        $current_mon++; # localtime returns month between 0 and 11
+        $current_year += 1900; # same shit
 
         my ($title, $place, $desc) = ($+{'title'}, $+{'place'}, $+{'desc'});
         my ($day, $month, $year) = ($+{'day'}, $+{'month'} || $current_mon, $+{'year'} || $current_year);