diff -r 109f9cc18906 -r bc8a3d815645 bin/send_n
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/send_n	Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use LWP::UserAgent;
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+
+my ($cgi, $firma, $mail, $text, $url, $ua, $req);
+$cgi = new CGI;
+
+# Auswerten der Daten.
+$firma=$cgi->param('AnwenderName');
+$text=$cgi->param('Kommentartext');
+open(TEST,">test");
+print TEST ("$firma ;:; $text");
+close TEST;
+my @Feldnamen = $cgi->param();
+
+print $cgi->header(),
+      $cgi->start_html(-head=>$cgi->meta({-http_equiv=>'REFRESH',-content=>'5;URL=http://192.168.0.144/index.html'})),$cgi->title('CGI-Feedback'),
+      $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('send'));
+      foreach my $Feld (@Feldnamen) {
+         print $cgi->strong('Feldname: '),
+               $Feld,
+               $cgi->strong(', Inhalt: '),
+               $cgi->param($Feld), "<br>";
+            }
+            print $cgi->end_html();
+
+
+$url='http://192.168.0.144/cgi-bin/recieve';
+
+$ua=LWP::UserAgent->new;
+$ua->env_proxy;
+$ua->timeout(10);
+
+$req=HTTP::Request->new("POST",$url);
+$req->header('Content-Type' => 'text/html');
+$req->content("Name=$firma&Mail=$text");
+
+$ua->request($req);