Changeset 33638 for branches/eam_branches/ipp-20111122/ippToPsps/perl/deleteFromDXLayer.pl

Timestamp:

Mar 30, 2012, 2:49:37 PM (14 years ago)

Author:

eugene

Message:

merge changes from trunk

File:

• branches/eam_branches/ipp-20111122/ippToPsps/perl/deleteFromDXLayer.pl (modified) (3 diffs)

branches/eam_branches/ipp-20111122/ippToPsps/perl/deleteFromDXLayer.pl

@@ -19 +19 @@
 
 my $dxWebServiceUrl = "http://lsb01.psps.ifa.hawaii.edu/cgi-bin/dxlayer/dxwebservice.cgi";
+#my $dxWebServiceUrl = "http://166.122.172.121/cgi-bin/dxlayer/dxwebservice.cgi";
 my $ua = LWP::UserAgent->new;
 $ua->timeout(15);
@@ -28 +29 @@
 
 my $paramNode = $doc->createElement('Param');
-$paramNode->setAttribute('name', "BatchID"); # default FirstRow is 1
+$paramNode->setAttribute('Name', "BatchID"); # default FirstRow is 1
 my $text=XML::LibXML::Text->new($batchName);
 $paramNode->appendChild($text); #append
@@ -35 +36 @@
 my $xmlParams = $doc->toString; 
 
+print  $xmlParams;
 
 my $response = $ua->post($dxWebServiceUrl,