perfsonar development work

Author: dfn.calim
Date: 2011-04-13 12:08:46 +0100 (Wed, 13 Apr 2011)
New Revision: 699

Modified:
   trunk/lib/perfSONAR/MP/OWAMP.pm
Log:
Fix Bug in summary response of owamp mp

Modified: trunk/lib/perfSONAR/MP/OWAMP.pm
===================================================================
--- trunk/lib/perfSONAR/MP/OWAMP.pm     2011-04-13 06:42:29 UTC (rev 698)
+++ trunk/lib/perfSONAR/MP/OWAMP.pm     2011-04-13 11:08:46 UTC (rev 699)
@@ -171,7 +171,7 @@
     my @result = split(/\n/, $result);
     my $time = time;
     my @datalines = ();
-
+    
     if ($self->{OUTPUTTYPE} eq  "raw"){
        foreach my $resultline (@result){
                if ($resultline =~
@@ -234,6 +234,7 @@
         my %data_hash;
        foreach my $resultline (@result){            
             next if $resultline =~ /Approximately/;
+            next if $resultline =~ /owping: FILE=/;
             next if $resultline =~ s/^\s+//;
             #--- owping statistics from [131.188.81.234]:38399 to 
[198.124.252.101]:9169 ---            if ($resultline =~
             if ($resultline =~
@@ -272,7 +273,7 @@
                 $data_hash{"hops"} = $1;
            }else { next; }
        }#End foreach
-       push @datalines, \%data_hash;
+       push @datalines, \%data_hash if (scalar keys %data_hash > 0)
     }#elsif ($self->{OUTPUTTYPE} eq  "summary"
     
     if($#datalines < 0){