Hallo Stephan,
Was ist PHP ?
Sollte dieser Code jetzt nicht funktionieren ?Ich bekomme jedoch Interner Serverfehler .
#! /usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
if ($allow != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
$FORM{$name} = $value;
}
$filename="/home/simone/upload/".$FORM{'userfile'};
copy ($FORM{'userfile'}, $filename);
chmod ($filename, 0666);