perfsonar development work

Author: dfn.calim
Date: 2011-02-11 08:40:47 +0000 (Fri, 11 Feb 2011)
New Revision: 682

Modified:
   branches/perfsonar-oppd-new-architect/lib/perfSONAR/MP.pm
Log:
Fix some deleted code errors

Modified: branches/perfsonar-oppd-new-architect/lib/perfSONAR/MP.pm
===================================================================
--- branches/perfsonar-oppd-new-architect/lib/perfSONAR/MP.pm   2011-02-10 
12:48:20 UTC (rev 681)
+++ branches/perfsonar-oppd-new-architect/lib/perfSONAR/MP.pm   2011-02-11 
08:40:47 UTC (rev 682)
@@ -129,6 +129,9 @@
        my $ds = $self->{DS};
        my $pass;
        
+       #Get tool for commandline
+    my $tool = $$ds->{SERVICES}->{$$ds->{SERVICE}->{NAME}}->{tool};
+       
        my $data = $$ds->{SERVICE}->{DATA};
        #$self->{LOGGER}->info(Dumper($data));
        foreach my $id (keys %{$data}){
@@ -143,9 +146,6 @@
             return;
         }
         #Start commandline
-        #Get tool for commandline
-        my $tool = $$ds->{SERVICES}->{$$ds->{SERVICE}->{NAME}}->{tool};
-        
         #first check if tool is available
         my $ret = `which $tool 2>/dev/null`;
         if ( length $ret <= 0 ){
@@ -194,7 +194,7 @@
         #$logger->info(Dumper($out));
         #parse the result
         my @mresult = $self->parse_result($ds,$id);
-             
\@mresult;
+        $$ds->{SERVICE}->{DATA}->{$id}->{MRESULT} = 
\@mresult;
         #$logger->info(Dumper(@mresult));        
        }#End foreach my $id