diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/send_n
--- a/bin/send_n	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/send_n	Tue Jan 29 14:06:27 2013 +0100
@@ -6,37 +6,62 @@
 use CGI;
 use CGI::Carp qw(fatalsToBrowser);
 
-my ($cgi, $firma, $mail, $text, $url, $ua, $req);
+my ( $cgi, $feld, $feld1, $feld2, $feld3, $url, $ua, $req );
+my $x = 0;
 $cgi = new CGI;
 
-# Auswerten der Daten.
-$firma=$cgi->param('AnwenderName');
-$text=$cgi->param('Kommentartext');
-open(TEST,">test");
-print TEST ("$firma ;:; $text");
-close TEST;
+#######################
+# Auswerten der Daten #
+# des Web-Formulars   #
+#######################
+
+$feld1 = $cgi->param('Firma');
+$feld2 = $cgi->param('Name');
+$feld3 = $cgi->param('Test');
+
+#open( TEST, ">test" ) or die "Kann Handle nicht oeffnen!\n$!";
+#print TEST ("$feld1 ;:; $feld2 ;:; $feld3");
+#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();
+#######################
+# Senden der Daten    #
+# via HTTP-POST       #
+#######################
 
-
-$url='http://192.168.0.144/cgi-bin/recieve';
-
-$ua=LWP::UserAgent->new;
+$url = 'http://192.168.0.144/cgi-bin/receive';
+$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=$feld1&Mail=$feld2&Test=$feld3");
+$ua->request($req);
 
-$req=HTTP::Request->new("POST",$url);
-$req->header('Content-Type' => 'text/html');
-$req->content("Name=$firma&Mail=$text");
+#######################
+# Erstellen einer     #
+# Feedback-Seite zum  #
+# Test mit Weiter-    #
+# leitung             #
+#######################
 
-$ua->request($req);
+print $cgi->header('CGI-Feedback'),
+  $cgi->start_html(
+    -head => $cgi->meta(
+        {
+            -http_equiv => 'REFRESH',
+            -content    => '5;URL=http://192.168.0.144/index.html'
+        }
+    ),
+    -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();
+__END__