LP 1768715: Make the pingest.pl --pipe option be greedy.

The --pipe option is used with pingest.pl now assumes that that any
string of digits in the input is a record id.  Instead of using just
the first string of digits on a line, as it did before, it now uses
each string of digits on a line.

Signed-off-by: Jason Stephenson <jstephenson@mvlcstaff.org>
Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/support-scripts/pingest.pl b/Open-ILS/src/support-scripts/pingest.pl
index 8389c53..2e610f9 100755 (executable)
--- a/Open-ILS/src/support-scripts/pingest.pl
+++ b/Open-ILS/src/support-scripts/pingest.pl
@@ -145,9 +145,9 @@ sub duration_expired {
 my @input;
 if ($opt_pipe) {
     while (<STDIN>) {
-        # Want only numbers, one per line.
-        if ($_ =~ /([0-9]+)/) {
-            push(@input, $1);
+        # Assume any string of digits is an id.
+        if (my @subs = /([0-9]+)/g) {
+            push(@input, @subs);
         }
     }
 } else {