bin/send_a.test
changeset 6 892a4fac1939
parent 5 0ed8b6a9da49
child 7 2f11b54a69fe
--- a/bin/send_a.test	Tue Jan 29 14:06:27 2013 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,32 +0,0 @@
-#!/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);