check_mds_request_latency: fix parsing for current debug output

diff --git a/src/script/check_mds_request_latency.pl b/src/script/check_mds_request_latency.pl
index 5709c362c2c3380bf0adc13534945b97a4fcda96..0e19aad2c8beaefc2a890ed8645ea62ce7b9228f 100755 (executable)
--- a/src/script/check_mds_request_latency.pl
+++ b/src/script/check_mds_request_latency.pl
@@ -18,20 +18,21 @@ while (<>) {
     chomp;
     my ($stamp) = /^\S+ (\S+)/;
 
-    my ($req,$desc) = /\d+ -- \S+ mds\d+ ... client\d+ \S+ \d+ \S+ client_request\((\S+) ([^\)]+)/;
+    my ($req,$desc) = /\<\=\= client\d+ \S+ \d+ \=\=\=\= client_request\((\S+) ([^\)]+)/;
     
     if (defined $req) {
-       #print "$req $len ($r{$req} - $stamp)\n";
+       #print "$req\n"; # ($r{$req} - $stamp)\n";
        $r{$req} = $stamp;
        $what{$req} = $desc;
        next;
     }
 
-    ($req,$desc) = /\d+ -- \S+ mds\d+ ... client\d+ \S+ \S+ client_reply\((\S+) ([^\)]+)/;
+    my $who;
+    ($who, $req,$desc) = /\-\-\> (client\d+) \S+ \-\- client_reply\((\S+) ([^\)]+)/;
     if (defined $req) {
+       $req =~ s/\?\?\?/$who/;
        if (exists $r{$req}) {
            my $len = tosec($stamp) - tosec($r{$req});
-           
            #print "$req $len ($r{$req} - $stamp)\n";
            $lat_req{$len} = $req;