Remove obsolete cmd_setstate

1 files changed, 0 insertions, 35 deletions

diff --git a/mat b/mat
index 993151b..e69f74b 100755
--- a/mat
+++ b/mat
@@ -202,38 +202,6 @@ sub cmd_inventory {
   printf "----\n%3d\n", $total;
 }
 
-sub cmd_setstate {
-  my ( $date, $state ) = @_;
-  my $mealtype = "lunch";
-
-  if ($date =~ /^Mon|Tue|Wed|Thu|Fri|Sat|Sun/) {
-    my $wday;
-    $wday = 1 if ($date =~ /^Mon/);
-    $wday = 2 if ($date =~ /^Tue/);
-    $wday = 3 if ($date =~ /^Wed/);
-    $wday = 4 if ($date =~ /^Thu/);
-    $wday = 5 if ($date =~ /^Fri/);
-    $wday = 6 if ($date =~ /^Sat/);
-    $wday = 7 if ($date =~ /^Sun/);
-
-    my $dt = DateTime->now();
-    while ($dt->wday() != $wday) {
-      $dt->add(days => 1);
-    }
-
-    $date = $dt->ymd();
-  }
-  return unless $date =~ "^[0-9]{4}-[0-9]{2}-[0-9]{2}\$";
-
-  return -1 unless $state =~ "^frozen|ready|sourced|idea\$";
-  if (1) { #FIXME Verify that entry exists ?
-    my $sql = "UPDATE plan SET state=".$db->quote($state)." WHERE date='$date';";
-    $db->do($sql);
-  }
-
-  return 0;
-}
-
 sub cmd_randmeal {
   my ( $date ) = @_;
   my $recipe_id = get_random_recipe();
@@ -501,7 +469,6 @@ sub cmd_help() {
   print "showrecipe <recipe_id>\n";
   print "movemeal <source_date> <destination_date>\n";
   print "setmeal <date> <mealtype> <meal_id>\n";
-  print "setstate <date> <idea|sourced|frozen|ready>\n";
   print "randmeal <date>\n";
   print "showplan [days] [date]\n";
   print "postpone <date> <gap>\n";
@@ -840,8 +807,6 @@ if ($ARGV[0]) {
     print "Command failed!\n" unless (cmd_movemeal($ARGV[1], $ARGV[2]) >= 0);
   } elsif ( $ARGV[0] eq "setmeal") {
     print "Command failed!\n" unless (cmd_setmeal($ARGV[1], $ARGV[2], $ARGV[3]) >= 0);
-  } elsif ( $ARGV[0] eq "setstate") {
-    print "Command failed!\n" unless (cmd_setstate($ARGV[1], $ARGV[2]) >= 0);
   } elsif ( $ARGV[0] eq "randmeal") {
     print "Command failed!\n" unless (cmd_randmeal($ARGV[1]) >= 0);
   } elsif ( $ARGV[0] eq "showplan") {