perfsonar development work

Author: dfn.calim
Date: 2011-02-07 11:41:11 +0000 (Mon, 07 Feb 2011)
New Revision: 675

Modified:
   branches/perfsonar-oppd-new-architect/lib/perfSONAR/DataStruct/NMWG.pm
   branches/perfsonar-oppd-new-architect/lib/perfSONAR/MA/Hades.pm
   branches/perfsonar-oppd-new-architect/lib/perfSONAR/MP.pm
Log:
Creating tags from branches

Modified: 
branches/perfsonar-oppd-new-architect/lib/perfSONAR/DataStruct/NMWG.pm
===================================================================
--- branches/perfsonar-oppd-new-architect/lib/perfSONAR/DataStruct/NMWG.pm    
  2011-01-19 12:59:03 UTC (rev 674)
+++ branches/perfsonar-oppd-new-architect/lib/perfSONAR/DataStruct/NMWG.pm    
  2011-02-07 11:41:11 UTC (rev 675)
@@ -275,7 +275,7 @@
                 $self->{HADES}->{ACTION}->{TYPE} = "ippm_aggregated";
             } elsif($raw_ets =~ /$self->{HADES}->{ACTION}->{EVENTYPE}/){
                 $self->{HADES}->{ACTION}->{TYPE} = "ippm_raw";
-            }   
+            }               
         }# End Hades stuff
         
         my $error = $self->checkParams($ds, %parameters);

Modified: branches/perfsonar-oppd-new-architect/lib/perfSONAR/MA/Hades.pm
===================================================================
--- branches/perfsonar-oppd-new-architect/lib/perfSONAR/MA/Hades.pm     
2011-01-19 12:59:03 UTC (rev 674)
+++ branches/perfsonar-oppd-new-architect/lib/perfSONAR/MA/Hades.pm     
2011-02-07 11:41:11 UTC (rev 675)
@@ -73,7 +73,7 @@
             push @errmsg, $warnmsg;
             push @errmsg, $et;
             $$ds->{SERVICE}->{DATA}->{$id}->{WARN}->{MSG} = 
\@errmsg;
-            $$ds->{SERVICE}->{DATA}->{$id}->{WARN}->{OCCUR} = 1
+            $$ds->{SERVICE}->{DATA}->{$id}->{WARN}->{OCCUR} = 1;
             $self->{LOGGER}->warn($warnmsg);
         }
     }#End foreach my $id (keys

Modified: branches/perfsonar-oppd-new-architect/lib/perfSONAR/MP.pm
===================================================================
--- branches/perfsonar-oppd-new-architect/lib/perfSONAR/MP.pm   2011-01-19 
12:59:03 UTC (rev 674)
+++ branches/perfsonar-oppd-new-architect/lib/perfSONAR/MP.pm   2011-02-07 
11:41:11 UTC (rev 675)
@@ -138,6 +138,7 @@
         
                if ($commandline[0] eq "ERROR") {
             $$ds->{ERROROCCUR} = 1;
+            push @commandline,"error.$tool.mp";
             $$ds->{SERVICE}->{DATA}->{$id}->{MRESULT} = 
\@commandline;
             return;
         }
@@ -193,7 +194,7 @@
         #$logger->info(Dumper($out));
         #parse the result
         my @mresult = $self->parse_result($ds,$id);
-        $$ds->{SERVICE}->{DATA}->{$id}->{MRESULT} = 
\@mresult;
+             
\@mresult;
         #$logger->info(Dumper(@mresult));        
        }#End foreach my $id