Changeset 32143

Timestamp:

Aug 19, 2011, 2:21:54 PM (15 years ago)

Author:

rhenders

Message:

purged redundant code

File:

• trunk/ippToPsps/perl/checkOdmStatus.pl (modified) (2 diffs)

trunk/ippToPsps/perl/checkOdmStatus.pl

@@ -22 +22 @@
 $ua->env_proxy;
 
-my $loadedToOdm;
-my $loadFailed;
-my $mergeWorthy;
-my $merged;
-
 my $statusFilter = "*";
 
@@ -42 +37 @@
     exit(1);
 }
-#        print( "HTTP response status: ".$response->content."\n" );
 
 open (DAT, ">".$file);
-#my ($tempFile, $tempName) = tempfile( "/tmp/ippToPsps_odmXml.XXXX", UNLINK => 0);
 print DAT $response->content;
-#print $response->content;
-#close($tempFile);
 
-#${$loadedToOdm} = 0;
-#${$loadFailed} = 0;
-#${$mergeWorthy} = 0;
-#${$merged} = 0;
 
 print "$file\n";
-#parseXml($tempName, $loadedToOdm, $loadFailed, $mergeWorthy, $merged);
 
 exit(0);
 
-    #unlink($tempFile);
 
 
-########################################################################################
-# 
-# Parses ODM XML
-# 
-########################################################################################
-    sub parseXml {
-        my ($xmlFile, $loadedToOdm, $loadFailed, $mergeWorthy, $merged) = @_;
-
-        my $parser = XML::LibXML->new;
-        my $doc = $parser->parse_file($xmlFile);
-        my $xc = XML::LibXML::XPathContext->new($doc);
-        $xc->registerNs('ArrayOfOdmBatchState', 'PanSTARRS.Services.OdmWebService');
-        my $result = $xc->findvalue('//ArrayOfOdmBatchState:BatchState');
-
-        if ($result =~ m/failed/) { 
-            ${$loadFailed} = 1;
-            ${$loadedToOdm} = 1;
-            return;
-        }
-
-        $result = $xc->findvalue('//ArrayOfOdmBatchState:Message');
-        ${$loadedToOdm} = 0;
-        ${$mergeWorthy} = 0;
-        ${$merged} = 0;
-
-        if ($result =~ m/None/) { ${$loadedToOdm} = 1;}
-        if ($result =~ m/LoadStarted/) { ${$loadedToOdm} = 1;}
-        if ($result =~ m/MergeWorthy/) { ${$loadedToOdm} = 1; ${$mergeWorthy} = 1;}
-        if ($result =~ m/Merge[1-9]Completed/) { ${$loadedToOdm} = 1; ${$mergeWorthy} = 1; ${$merged} = 1;}
-
-
-
-    }