added scaffold for edit function to rhrd-show

1 files changed, 58 insertions, 2 deletions

diff --git a/utils/rhrd-show b/utils/rhrd-show
index 3cac649..cab6ead 100755
--- a/utils/rhrd-show
+++ b/utils/rhrd-show
@@ -21,6 +21,7 @@
 #
 
 use strict;
+use lib "../lib/";
 use RHRD::rddb;
 use RHRD::utils;
 use Date::Calc;
@@ -29,7 +30,8 @@ sub print_usage
 {
   print STDERR "Usage: rhrd-show list [ <group> ]\n" .
                "       rhrd-show (show|remove) <show-id>\n" .
-               "       rhrd-show add <groupname> <name> <title> <num-carts> <rhythm> <dow> <starttime> <len>\n";
+               "       rhrd-show add <groupname> <name> <title> <num-carts> <rhythm> <dow> <starttime> <len>\n" .
+               "       rhrd-show edit <show-id> <title> <rhythm> <dow> <starttime> <len>\n";
 }
 
 sub list
@@ -41,7 +43,8 @@ sub list
     print STDERR "$shows[1]: $shows[2]";
     return 1;
   }
-  for my $href (@shows) {
+  my @sorted =  sort { lc($a->{'TITLE'}) cmp lc($b->{'TITLE'}) } @shows;
+  for my $href (@sorted) {
     print $href->{'ID'} . ": " . $href->{'TITLE'} . "\n";
   }
   return 0;
@@ -177,6 +180,51 @@ sub add
   return 0;
 }
 
+sub edit__check_arguments
+{
+  my ($showid, $title, $rhythm, $dow, $starttime, $len) = @_;
+
+  my ($result, $err, $hint) = RHRD::utils::dropbox_param_rhythm_ok($rhythm);
+  unless($result) {
+    print STDERR $err . "\n " . $hint . "\n";
+    return 1;
+  }
+
+  ($result, $err, $hint) = RHRD::utils::cmdline_dow($dow);
+  unless($result) {
+    print STDERR $err . "\n " . $hint . "\n";
+    return 1;
+  }
+
+  ($result, $err, $hint) = RHRD::utils::dropbox_param_starttime_ok($starttime);
+  unless($result) {
+    print STDERR $err . "\n " . $hint . "\n";
+    return 1;
+  }
+
+  ($result, $err, $hint) = RHRD::utils::dropbox_param_len_ok($len);
+  unless($result) {
+    print STDERR $err . "\n " . $hint . "\n";
+    return 1;
+  }
+
+  return 0;
+}
+
+sub edit
+{
+  my ($ctx, $showid, $title, $rhythm, $dow, $starttime, $len) = @_;
+
+  my $ret = edit__check_arguments($showid, $title, $rhythm, $dow, $starttime, $len);
+  if($ret) {
+    return $ret;
+  }
+
+  print " not yet implemented!!\n";
+
+  return 1;
+}
+
 sub remove
 {
   my ($ctx, $show_id) = @_;
@@ -250,6 +298,14 @@ if(defined $ctx) {
       $ret = add($ctx, $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4], $ARGV[5], $ARGV[6], $ARGV[7], $ARGV[8]);
     }
   }
+  elsif($cmd eq "edit") {
+    if($num_args != 7) {
+      print_usage();
+      $ret = 1;
+    } else {
+      $ret = edit($ctx, $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4], $ARGV[5], $ARGV[6]);
+    }
+  }
   else {
     print_usage();
     $ret = 1;