Hi Gwen,
Ja gerade Montags ist die Glaskugel schwer zu finden ;-)
Also das ist der HTTP POST Aufruf meines Scripts :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
sub Monitoring_Server_POST {
my $LWP = LWP::UserAgent -> new;
my $Monitoring_URL_Basis = "http://beispiel.de/Monitoring/";
my $Monitoring_URL_Parameter = $_[0];
my $Monitoring_Server_POST = $Monitoring_URL_Basis . $Monitoring_URL_Parameter;
my $Monitoring_Anfrage_POST = HTTP::Request -> new( POST => $Monitoring_Server_POST );
# -------------------------------------------------------------------------------------------
# Ermittlung der Übergabe - Parameter jedes POST - Befehls
my $Monitoring_Parameter_Anfrage = HTTP::Request::Params -> new( { req => $Monitoring_Anfrage_POST, } );
my $Monitoring_Parameter_Ermittlung = $Monitoring_Parameter_Anfrage -> params;
my %Monitoring_Parameter_Hashes = %{ $Monitoring_Parameter_Ermittlung };
for my $Monitoring_Parameter_Schluessel ( keys %Monitoring_Parameter_Hashes )
{
my @Monitoring_Parameter_Werte;
if ( ref $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel } )
{
@Monitoring_Parameter_Werte = @{ $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel } };
} else {
@Monitoring_Parameter_Werte = $Monitoring_Parameter_Hashes{ $Monitoring_Parameter_Schluessel };
}
print $Monitoring_Parameter_Schluessel , " => " , join "" , @Monitoring_Parameter_Werte , "\n";
}
# -------------------------------------------------------------------------------------------
$LWP -> cookie_jar( $Monitoring_Cookies );
my $Monitoring_Rueckmeldung_POST = $LWP -> request( $Monitoring_Anfrage_POST );
if ( $Monitoring_Rueckmeldung_POST -> is_success )
{
my $Monitoring_Inhalte_POST = $Monitoring_Rueckmeldung_POST -> decoded_content;
print "POST Rueckmeldung \t : In Ordnung" , "\n";
print "HTTP POST Code \t : " , $Monitoring_Rueckmeldung_POST -> code , "\n";
print "HTTP POST Meldung \t : " , $Monitoring_Rueckmeldung_POST -> message , "\n";
return( "$Monitoring_Inhalte_POST" );
} else {
print "HTTP POST Error Code : ", $Monitoring_Rueckmeldung_POST -> code , "\n";
print "HTTP POST Error Meldung : ", $Monitoring_Rueckmeldung_POST -> message , "\n";
}
}
Hier gebe ich die Werte, wie bereits beschrieben an die Sub zurück :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sub Monitoring_Export_Allgemeines {
# system( "CLS" );
print "-------------------------------------------------------------------------" , "\n";
my $Monitoring_Exporte_Parameter_GUI_I = "";
my ( $Monitoring_Inhalte_POST ) = &Monitoring_Server_POST( $Monitoring_Exporte_Parameter_GUI_I );
if( $Monitoring_Inhalte_POST =~ /Oberflaeche_I/ )
{
print "\n";
print "Monitoring - PERL Verarbeitung - Oberflaeche I" , "\n";
print "----------------------------------------------" , "\n";
print "\n";
... Weitere Verarbeitung - Hier ohne Relevanz
}
}
Ich hoffe, das hilft weiter :-)
Viele Grüße
Verzweifelter
Last edited: 2015-03-23 12:41:40 +0100 (CET)