• _FranÇais
• _GALENICA GRUPPE
• _SITEMAP
• _Nutzungsbedingungen
• _DRUCKEN

XML Transmission examples - Perl

#!perl
#
#    Last change:  ASW  15 Mar 101    5:55 pm
#
# Create a user agent object
#
##########################################################
use LWP::UserAgent;

$url = "http://test.e-galexis.com/testPOS/" unless defined($url = $ARGV[0]);
$xmlFile = $ARGV[1];

$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);

# Create a request
my $req = new HTTP::Request POST => $url;


$req->content_type("text/xml");
$req->content(GetXMLFile());

print "Request beeing sent from $xmlFile:\n";
print $req->content;
print "\nResponse from $url\n";

# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success)
{
    print $res->content;
} else
{
    print "Bad luck this time\n";
    print $res->content;
}

# GetXMLFile
sub GetXMLFile
{
my $xmlData = "";
my $line;

if (open XML, "$xmlFile")
{
    @xmlLines = <XML>;
    foreach $line (@xmlLines)
    {
        $xmlData .= $line;
    }
	close XML;
}
    return $xmlData;
}