4 use strict; |
4 use strict; |
5 use LWP::UserAgent; |
5 use LWP::UserAgent; |
6 use CGI; |
6 use CGI; |
7 use CGI::Carp qw(fatalsToBrowser); |
7 use CGI::Carp qw(fatalsToBrowser); |
8 |
8 |
9 my ($cgi, $firma, $mail, $text, $url, $ua, $req); |
9 my ( $cgi, $feld, $feld1, $feld2, $feld3, $url, $ua, $req ); |
|
10 my $x = 0; |
10 $cgi = new CGI; |
11 $cgi = new CGI; |
11 |
12 |
12 # Auswerten der Daten. |
13 ####################### |
13 $firma=$cgi->param('AnwenderName'); |
14 # Auswerten der Daten # |
14 $text=$cgi->param('Kommentartext'); |
15 # des Web-Formulars # |
15 open(TEST,">test"); |
16 ####################### |
16 print TEST ("$firma ;:; $text"); |
17 |
17 close TEST; |
18 $feld1 = $cgi->param('Firma'); |
|
19 $feld2 = $cgi->param('Name'); |
|
20 $feld3 = $cgi->param('Test'); |
|
21 |
|
22 #open( TEST, ">test" ) or die "Kann Handle nicht oeffnen!\n$!"; |
|
23 #print TEST ("$feld1 ;:; $feld2 ;:; $feld3"); |
|
24 #close TEST; |
18 my @Feldnamen = $cgi->param(); |
25 my @Feldnamen = $cgi->param(); |
19 |
26 |
20 print $cgi->header(), |
27 ####################### |
21 $cgi->start_html(-head=>$cgi->meta({-http_equiv=>'REFRESH',-content=>'5;URL=http://192.168.0.144/index.html'})),$cgi->title('CGI-Feedback'), |
28 # Senden der Daten # |
22 $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('send')); |
29 # via HTTP-POST # |
23 foreach my $Feld (@Feldnamen) { |
30 ####################### |
24 print $cgi->strong('Feldname: '), |
|
25 $Feld, |
|
26 $cgi->strong(', Inhalt: '), |
|
27 $cgi->param($Feld), "<br>"; |
|
28 } |
|
29 print $cgi->end_html(); |
|
30 |
31 |
31 |
32 $url = 'http://192.168.0.144/cgi-bin/receive'; |
32 $url='http://192.168.0.144/cgi-bin/recieve'; |
33 $ua = LWP::UserAgent->new; |
33 |
|
34 $ua=LWP::UserAgent->new; |
|
35 $ua->env_proxy; |
34 $ua->env_proxy; |
36 $ua->timeout(10); |
35 $ua->timeout(10); |
|
36 $req = HTTP::Request->new( "POST", $url ); |
|
37 $req->header( 'Content-Type' => 'text/html' ); |
|
38 $req->content("Name=$feld1&Mail=$feld2&Test=$feld3"); |
|
39 $ua->request($req); |
37 |
40 |
38 $req=HTTP::Request->new("POST",$url); |
41 ####################### |
39 $req->header('Content-Type' => 'text/html'); |
42 # Erstellen einer # |
40 $req->content("Name=$firma&Mail=$text"); |
43 # Feedback-Seite zum # |
|
44 # Test mit Weiter- # |
|
45 # leitung # |
|
46 ####################### |
41 |
47 |
42 $ua->request($req); |
48 print $cgi->header('CGI-Feedback'), |
|
49 $cgi->start_html( |
|
50 -head => $cgi->meta( |
|
51 { |
|
52 -http_equiv => 'REFRESH', |
|
53 -content => '5;URL=http://192.168.0.144/index.html' |
|
54 } |
|
55 ), |
|
56 -title => 'CGI-Feedback' |
|
57 ), |
|
58 $cgi->h1( 'CGI-Feedback vom Programm ', $cgi->i('send') ); |
|
59 |
|
60 foreach my $Feld (@Feldnamen) { |
|
61 print $cgi->strong('Feldname: '), |
|
62 $Feld, |
|
63 $cgi->strong(', Inhalt: '), |
|
64 $cgi->param($Feld), "<br>"; |
|
65 } |
|
66 print $cgi->end_html(); |
|
67 __END__ |