#!/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);
