diff -r 0ed8b6a9da49 -r 892a4fac1939 bin/send_n
--- a/bin/send_n	Tue Jan 29 14:06:27 2013 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,67 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use LWP::UserAgent;
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-
-my ( $cgi, $feld, $feld1, $feld2, $feld3, $url, $ua, $req );
-my $x = 0;
-$cgi = new CGI;
-
-#######################
-# 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();
-
-#######################
-# Senden der Daten    #
-# via HTTP-POST       #
-#######################
-
-$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);
-
-#######################
-# Erstellen einer     #
-# Feedback-Seite zum  #
-# Test mit Weiter-    #
-# leitung             #
-#######################
-
-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__