|
1 #!/usr/bin/perl |
|
2 |
|
3 use warnings; |
|
4 use strict; |
|
5 use LWP::UserAgent; |
|
6 use CGI; |
|
7 use CGI::Carp qw(fatalsToBrowser); |
|
8 |
|
9 my ( $cgi, $feld, $feld1, $feld2, $feld3, $url, $ua, $req ); |
|
10 my $x = 0; |
|
11 $cgi = new CGI; |
|
12 |
|
13 ####################### |
|
14 # Auswerten der Daten # |
|
15 # des Web-Formulars # |
|
16 ####################### |
|
17 |
|
18 $feld1 = $cgi->param('Firma'); # FIXME: mueller & meier |
|
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; |
|
25 my @Feldnamen = $cgi->param(); |
|
26 |
|
27 ####################### |
|
28 # Senden der Daten # |
|
29 # via HTTP-POST # |
|
30 ####################### |
|
31 |
|
32 $url = 'http://192.168.0.144/cgi-bin/receive'; |
|
33 $ua = LWP::UserAgent->new; |
|
34 $ua->env_proxy; |
|
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); |
|
40 |
|
41 ####################### |
|
42 # Erstellen einer # |
|
43 # Feedback-Seite zum # |
|
44 # Test mit Weiter- # |
|
45 # leitung # |
|
46 ####################### |
|
47 |
|
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__ |