#!/usr/bin/perl
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
open(COMMENTS, ">>data.txt"); # HTML-Datei zum Schreiben öffnen
$Daten =~ tr/&=+/| -/;
$Daten =~ s/Name/\ \;/g;
$Daten =~ s/Firstname/\ \;/g;
$Daten =~ s/Street/\ \;/g;
$Daten =~ s/Nr/\ \;/g;
$Daten =~ s/%2F/\/\;/g;
$Daten =~ s/Code/\ \;/g;
$Daten =~ s/City/\ \;/g;
$Daten =~ s/Tel/\ \;/g;
$Daten =~ s/eMail/\ \;/g;
$Daten =~ tr/;/ /;
$Daten =~ s/[ ]| //gi;
#$Daten =~ s/+/\-\;/g;
print COMMENTS "$Daten\n";
close(COMMENTS);
print "Content-type: text/html\n\n";
print "visualVIBES bioNET\n";
print "\n";
print "your entry has been saved ";
print "
";
print "back....";
print "\n";
print "\n";