$ua->request($req)

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $url = 'http://localhost/cgi-bin/test.pl?PARTNERID=BECHTLE&PWD=TEST';
my $req = HTTP::Request->new("POST",$url);
#Daten an URL senden

$req->header('Content-Type' => 'text/xml');
$req->content("Hallo dies ist nur ein Test");

$ua->request($req);

$q->param('POSTDATA')

my $input = $q->param('POSTDATA')

#!/usr/bin/env perl
use CGI;

print "Content-type: text/html\n\n";

my $q = new CGI;

#TODO
    #Timeout verhindern




#Gültige URL Parameter
my $strPARTNERID_valid ="BECHTLE";
my $strPWD_valid = "TEST";

#-----------------------------------------------------
#Umgebungsvariablen - bei Bedarf zum Testen
#
#$ENV{CONTENT_LENGTH};
#
#----------------------------------------------------

my @params = split(/&/,$ENV{QUERY_STRING});

foreach (@params){
    
    ($key, $val) = split (/=/,$_);
     $param{$key} = $val;
};




#Datenablage - in diesem Verzeichnis werden die Daten gespeichert
my $strDataPath = "/srv/www/webshop1/web888w/dattrans/backup_bechtle_orderresponse/";

#Eindeutiger Dateiname inkl. Pfad bilden aus Timestamp + Zufallszahl z.B.: /srv/www/webshop1/web888w/dattrans/backup_bechtle_order/20100209_345.xml
my $strTimeStamp = myCurrentDate().time();

#Randomize
my $strDateiname = $strDataPath.$strTimeStamp."_".int(rand()*1000).".xml";

#Uebergebene URL Parameter ueberpruefen
my $strPARTNERID = $param{PARTNERID};




if (length($strPARTNERID)>0 and ($strPARTNERID eq $strPARTNERID_valid)){
    warn "Alles OK - PARTNERID ist gueltig";
}
else{
    #in Datei loggen
    #Remote-Adresse,strPARTNERID
    #Response.Status = "401 Unauthorized"
}

my $strPWD = $param{PWD};


if(length($strPWD)>0 and ($strPWD eq $strPWD_valid)>0){
    warn "Alles OK -PWD gültig";
}
else{
    #in Datei loggen
    #Remote-Adresse,strPWD
    #Response.Status = "400";
}

#Daten auslesen
my $strData = "";
my $totalBytes;


my $input = $q->param('POSTDATA');
warn "INPUT: ", $q->param('POSTDATA'), "\n";

print $q->header('text/html');
print $input;

sub myCurrentDate {
    use DateTime;
    return DateTime->today->dmy('.');
}

Alles OK - PARTNERID ist gueltig at /usr/lib/cgi-bin/test.pl line 52.
Alles OK -PWD g\xc3\xbcltig at /usr/lib/cgi-bin/test.pl line 64.
INPUT: Hallo dies ist nur ein Test