#!/usr/local/bin/perl
print "Content-type: text/html \n\n";
use strict;
use warnings;
use CGI;
# Perl-Skript zu RezepteEinfuegen.html
#Eingaben lesen
my $data="";
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
my $file ="./RETest.html";
##Name-Wert-Paare splitten
my @pairs;
my $name;
my $value;
my $pair;
@pairs = split(/&/, $data);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
#Konvertierung HTML-Code
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
my $abfrage;
$abfrage = new CGI;
my $rezepttitel = $abfrage->param(Rezepttitel);
my $Rezeptdatei = "./Rezept.txt";
##funktioniert nicht
##Formulardaten in Datei eintragen
open(RAUS, ">> $Rezeptdatei");
print RAUS $rezepttitel;
print RAUS "\n";
close(RAUS);
##Ende funktioniert nicht
# Antwortseite
print " Rezeptseite \n";
print "super Rezept\n";
print "$FORM{'Rezepttitel'}
\n";
print "\n";
exit;
(END)