diff -r 109f9cc18906 -r bc8a3d815645 bin/send_a.test --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/send_a.test Mon Jan 28 14:29:25 2013 +0100 @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +use warnings; +use strict; +require LWP::UserAgent; +require CGI; +require CGI::Carp qw(fatalsToBrowser); + +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"); +print TEST ("@param"); +close TEST; + +exit(0) + +#$url='http://192.168.0.144/cgi-bin/recieve'; + +#$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'); + +#$ua->request($req);