#!/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');	# FIXME: mueller & meier
$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__
