bin schon wieder ganz tralala im kopf. nach dem upload, aber bevor ich das file an die von mir festgelegte stelle kopiere will ich die datei mit file::type prüfen. ich hab die beiden werte:
my $filename = $q->param("incoming");
my $handle = $q->upload("incoming");
....
my $ft = File::Type->new();
my $type = $ft->mime_type(???);
hier fehlerprüfung wenn mime-type falsch, wenns passt dann schreiben
open (FILE, ">../$dest/$filename") or die "Can't create file: $!";
my $buffer;
while (read($handle,$buffer,2048)) { print FILE $buffer; } close (FILE);
was schreib ich bei der fileprüfung für einen path (???) rein? in $handle steht bei mir auch nur der nackte dateiname, also nichts anderes wie in $filename. file::type findet aber nichts.
die selbe prüfung mit der gleichen datei geht, wenn die datei erst mal da liegt wo ich sie haben will. da ist es aber zu spät für die prüfung.
- Gustl