Simone: Formular per eMail mit Dateianlagen versenden

Beitrag lesen

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);