Add movemeal command.

1 files changed, 19 insertions, 0 deletions

diff --git a/mat b/mat
index 0aef88a..bed1f66 100755
--- a/mat
+++ b/mat
@@ -123,6 +123,22 @@ sub cmd_setmeal {
   return 0;
 }
 
+sub cmd_movemeal {
+  my ( $source, $destination ) = @_;
+  my $mealtype = "lunch";
+
+  return unless $source =~ "^[0-9]{4}-[0-9]{2}-[0-9]{2}\$";
+  return unless $destination =~ "^[0-9]{4}-[0-9]{2}-[0-9]{2}\$";
+
+  my $sql = "SELECT FROM plan WHERE date='$source';";
+# FIXME Run and validate existance of source  $db->do($sql);
+# FIXME Handle if destination already exists
+  $sql = "UPDATE plan SET date='$destination' WHERE date='$source';";
+  $db->do($sql);
+
+  return 0;
+}
+
 sub cmd_setstate {
   my ( $date, $state ) = @_;
   my $mealtype = "lunch";
@@ -366,6 +382,9 @@ if ($ARGV[0]) {
   if ( $ARGV[0] eq "editrecipe") {
     print "Command failed!\n" unless (cmd_editrecipe($ARGV[1]) >= 0);
   }
+  if ( $ARGV[0] eq "movemeal") {
+    print "Command failed!\n" unless (cmd_movemeal($ARGV[1], $ARGV[2]) >= 0);
+  }
   if ( $ARGV[0] eq "setmeal") {
     print "Command failed!\n" unless (cmd_setmeal($ARGV[1], $ARGV[2]) >= 0);
   }