Add interface for queue commands.

1 files changed, 29 insertions, 0 deletions

diff --git a/mat b/mat
index 642b110..2e130a1 100755
--- a/mat
+++ b/mat
@@ -467,6 +467,10 @@ sub cmd_help() {
   print "relocate <portion_id> <new_storage>\n";
   print "inventory [storage]\n";
   print "shoppinglist <days_to_shop_for>\n";
+  print "queueshow (Yet to be implemented)\n";
+  print "queueadd (Yet to be implemented)\n";
+  print "queuerm (Yet to be implemented)\n";
+  print "queuemv (Yet to be implemented)\n";
 }
 
 sub interactive_edit_recipe_ingredients {
@@ -631,6 +635,23 @@ sub cmd_searchrecipes {
   return 1;
 }
 
+sub cmd_queueadd {
+  print "Yet to be implemented!\n";
+}
+
+sub cmd_queueshow {
+  print "Yet to be implemented!\n";
+}
+
+sub cmd_queuerm {
+  print "Yet to be implemented!\n";
+}
+
+sub cmd_queuemv {
+  print "Yet to be implemented!\n";
+}
+
+
 sub cmd_shoppinglist {
   # Argument is number of days to shop for
 
@@ -754,6 +775,14 @@ if ($ARGV[0]) {
     print "Command failed!\n" unless (cmd_storeportion($ARGV[1], $ARGV[2], $ARGV[3]) >= 0);
   } elsif ( $ARGV[0] eq "relocate") {
     print "Command failed!\n" unless (cmd_relocate($ARGV[1], $ARGV[2]) >= 0);
+  } elsif ( $ARGV[0] eq "queueadd") {
+    print "Command failed!\n" unless (cmd_queueadd($ARGV[1], $ARGV[2]) >= 0);
+  } elsif ( $ARGV[0] eq "queuerm") {
+    print "Command failed!\n" unless (cmd_queuerm($ARGV[1], $ARGV[2]) >= 0);
+  } elsif ( $ARGV[0] eq "queuemv") {
+    print "Command failed!\n" unless (cmd_queuemv($ARGV[1], $ARGV[2]) >= 0);
+  } elsif ( $ARGV[0] eq "queueshow") {
+    print "Command failed!\n" unless (cmd_queueshow());
   } elsif ( $ARGV[0] eq "shoppinglist") {
     print "Command failed!\n" unless (cmd_shoppinglist($ARGV[1]) >= 0);
   } else {