Sam::comands::ad handle errors

Sam/commands/add.pm

@@ -16,7 +16,10 @@ sub exec {
     my $timestamp = timelocal(0, 59, 23, $day, $month - 1, $year);
 
     my $chan = Sam::Chan->new(name => $chanName);
-    $chan->load();
+
+    unless ($chan->load(speculative => 1)) {
+        die "ce chan n'est pas encore configuré";
+    }
 
     my $event = Sam::Event->new(
         title       => $title,

Sam/commands/parser.pm

@@ -66,9 +66,15 @@ sub exec {
 
         $place =~ s/ $//;
 
-        my $id = Sam::commands::add::exec($chan->[0], $title, $day, $month, $year, $place, $desc);
-        
-        if ($id) {
+        my $id;
+        eval {
+            $id = Sam::commands::add::exec($chan->[0], $title, $day, $month, $year, $place, $desc);
+        };
+
+        if ($@) {
+            $irc->yield(privmsg => $chan => "Erreur : $@");
+        }
+        elsif ($id) {
             $lastID->{$chan->[0]} = $id;
             $irc->yield(privmsg => $chan => "C'est enregistré. N'oubliez pas, conduire ou choisir, il faut boire !");
         }