4 use strict; |
4 use strict; |
5 require LWP::UserAgent; |
5 require LWP::UserAgent; |
6 require CGI; |
6 require CGI; |
7 require CGI::Carp qw(fatalsToBrowser); |
7 require CGI::Carp qw(fatalsToBrowser); |
8 |
8 |
9 my ($cgi, $firma, $mail, $text, $url, $ua, $req); |
9 my ( $cgi, $firma, $mail, $text, $url, $ua, $req ); |
10 $cgi = new CGI; |
10 $cgi = new CGI; |
11 |
11 |
12 # Auswerten der Daten. |
12 # Auswerten der Daten. |
13 #$firma=$cgi->param('Firma'); |
13 #$firma=$cgi->param('Firma'); |
14 #$mail=$cgi->param('Mail'); |
14 #$mail=$cgi->param('Mail'); |
15 #$text=$cgi->param('Text'); |
15 #$text=$cgi->param('Text'); |
16 my @param=$cgi->param(); |
16 my @param = $cgi->param(); |
17 open(TEST,">test"); |
17 open( TEST, ">test" ); |
18 print TEST ("@param"); |
18 print TEST ("@param"); |
19 close TEST; |
19 close TEST; |
20 |
20 |
21 exit(0) |
21 exit(0) |
22 |
22 |
23 #$url='http://192.168.0.144/cgi-bin/recieve'; |
23 #$url='http://192.168.0.144/cgi-bin/recieve'; |
24 |
24 |
25 #$ua=LWP::UserAgent->new; |
25 #$ua=LWP::UserAgent->new; |
26 #$ua->env_proxy; |
26 #$ua->env_proxy; |
27 |
27 |
28 #$req=HTTP::Request->new("POST",$url); |
28 #$req=HTTP::Request->new("POST",$url); |
29 #$req->header('Content-Type' => 'text/html'); |
29 #$req->header('Content-Type' => 'text/html'); |
30 #$req->content('Firma=Wir&Mail=mail'); |
30 #$req->content('Firma=Wir&Mail=mail'); |
31 |
31 |
32 #$ua->request($req); |
32 #$ua->request($req); |