diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/send_a.test --- a/bin/send_a.test Tue Jan 29 09:48:10 2013 +0100 +++ b/bin/send_a.test Tue Jan 29 14:06:27 2013 +0100 @@ -6,27 +6,27 @@ require CGI; require CGI::Carp qw(fatalsToBrowser); -my ($cgi, $firma, $mail, $text, $url, $ua, $req); +my ( $cgi, $firma, $mail, $text, $url, $ua, $req ); $cgi = new CGI; # Auswerten der Daten. #$firma=$cgi->param('Firma'); #$mail=$cgi->param('Mail'); #$text=$cgi->param('Text'); -my @param=$cgi->param(); -open(TEST,">test"); +my @param = $cgi->param(); +open( TEST, ">test" ); print TEST ("@param"); close TEST; exit(0) -#$url='http://192.168.0.144/cgi-bin/recieve'; + #$url='http://192.168.0.144/cgi-bin/recieve'; -#$ua=LWP::UserAgent->new; -#$ua->env_proxy; + #$ua=LWP::UserAgent->new; + #$ua->env_proxy; -#$req=HTTP::Request->new("POST",$url); -#$req->header('Content-Type' => 'text/html'); -#$req->content('Firma=Wir&Mail=mail'); + #$req=HTTP::Request->new("POST",$url); + #$req->header('Content-Type' => 'text/html'); + #$req->content('Firma=Wir&Mail=mail'); -#$ua->request($req); + #$ua->request($req);