From fe5ba7746f7ec5a1d33195160c00654a7bd869dc Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jstephenson@mvlcstaff.org>
Date: Mon, 11 Apr 2016 12:25:57 -0400
Subject: [PATCH] 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>
---
Open-ILS/src/support-scripts/pingest.pl | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/Open-ILS/src/support-scripts/pingest.pl b/Open-ILS/src/support-scripts/pingest.pl
index 8389c5328c..2e610f9913 100755
--- 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 {
--
2.11.0