Allow gkcommit.pl to accept lists of r numbers and trac ticket numbers

This commit was SVN r27033.

contrib/dist/gkcommit.pl

@@ -94,15 +94,17 @@ if (!@cmrs) {
         }
         
         print "CMR number (-1 to exit)? ";
-        my $cmr = <STDIN>;
+        my $cmrs = <STDIN>;
-        chomp($cmr);
+        chomp($cmrs);
         last
-            if (-1 == $cmr);
+            if (-1 == $cmrs);
-        
+
-        if ($cmr > 0) {
+        foreach my $cmr (split(/[\s,]+/, $cmrs)) {
-            push(@cmrs, $cmr);
+            if ($cmr > 0) {
-        } else {
+                push(@cmrs, $cmr);
-            print "Invalid CMR number; must be greater than 0 (ignored).\n";
+            } else {
+                print "Invalid CMR number ($cmr); must be greater than 0 (ignored).\n";
+            }
         }
     }
     print("\n");
@@ -124,15 +126,18 @@ if (!@rs) {
         }
         
         print "SVN r number (-1 to exit)? ";
-        my $r = <STDIN>;
+        my $rs = <STDIN>;
-        chomp($r);
+        chomp($rs);
         last
-            if (-1 == $r);
+            if (-1 == $rs);
-        
+
-        if ($r > 0) {
+        foreach my $r (split(/[\s,]+/, $rs)) {
-            push(@rs, $r);
+            $r =~ s/^r//;
-        } else {
+            if ($r > 0) {
-            print "Invalid SVN r number; must be greater than 0 (ignored).\n";
+                push(@rs, $r);
+            } else {
+                print "Invalid SVN r number ($r); must be greater than 0 (ignored).\n";
+            }
         }
     }
     print("\n");