Changeset 28161

Timestamp:

May 28, 2010, 12:52:04 PM (16 years ago)

Author:

rhenders

Message:

fixed prob of not being able select first label in list; simplified options for clarity

File:

• trunk/tools/czartool.pl (modified) (3 diffs)

trunk/tools/czartool.pl

@@ -32 +32 @@
 sub printInstructions {
 
-    print "\n### Enter: (s)ervers (f)ull (n)ew (d)rop (w)ait (q)uit (l)abel, or label number from table above: ";
+    print "| Usage: (s)ervers, (l)ables, (q)uit, or label number from table above: ";
 }
 
@@ -48 +48 @@
 
         if ($key eq "s") {checkServers();}
-        elsif ($key eq "f") {checkAllLabels("full");}
-        elsif ($key eq "n") {checkAllLabels("new");}
-        elsif ($key eq "d") {checkAllLabels("drop");}
-        elsif ($key eq "w") {checkAllLabels("wait");}
-        elsif ($key eq "l") {labelDetails();}
+        elsif ($key eq "l") {checkAllLabels("new");}
         elsif ($key eq "u") {serverStatus("stdscience");}
-        elsif ($key =~ m/[0-9]/) {my $key2=getc; checkOneLabel($stdscienceLabels[$key.$key2]);}
+        elsif ($key =~ m/[0-9]/) {my $key2=getc; checkOneLabel($stdscienceLabels[($key.$key2)-1]);}
         printInstructions();
 
@@ -227 +223 @@
     my $stdsLabel;
     my $distLabel;
-    my $i=0;
+    my $i=1;
     my $distributing;
     foreach $stdsLabel (@stdscienceLabels) {