From: kenstir <kenstir@gmail.com>
Date: Tue, 13 Oct 2015 02:35:28 +0000 (-0400)
Subject: better parsing of automated logging
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=aa6fa12494ebddd874992811f19b01efbd18a30c;p=working%2FEvergreen.git

better parsing of automated logging
---

diff --git a/Open-ILS/src/Android/kenstir_parse_logcat.pl b/Open-ILS/src/Android/kenstir_parse_logcat.pl
index d8aaba6803..7a11a2873a 100644
--- a/Open-ILS/src/Android/kenstir_parse_logcat.pl
+++ b/Open-ILS/src/Android/kenstir_parse_logcat.pl
@@ -12,9 +12,15 @@ use JSON;
 my $logcat = `adb logcat -d`;
 my @lines = split(/\n/, $logcat);
 foreach my $line (@lines) {
-    if ($line =~ /org.opensrf.net.http.GatewayRequest.*service:(\S+) method:(\S+) result:(.*)/) {
-        my($svc,$method,$json) = ($1,$2,$3);
-        my $obj = decode_json($json);
-        print "$method $svc -> ", Dumper($obj);
+    chomp($line);
+    $line =~ s/\015$//;
+    if ($line =~ /org.opensrf.net.http.GatewayRequest\(\d+\): ([^:]+):(.+)/) {
+        my($key,$val) = ($1,$2);
+        if ($key eq 'result') {
+            my $obj = decode_json($val);
+            print "$key -> ", Dumper($obj);
+        } else {
+            print "${key}:${val}\n";
+        }
     }
 }