nicht angemeldet
Fileupload klappt nicht über Sambar Server :(
Hallo,
Habe den Sambar Server 5.1 Beta5 installiert, wollte nun einen einfach Serverupload von Dateien über Perl machen.
Leider hab ich folgendes Problem, wenn ich den Skript laufen lassen will:
Auszug aus dem Debbug:
-Can't locate strict.pm in @INC (@INC contains: .) at filetest.pl line3
-BEGIN faild--compilation aborted at filetest.pl line 3
Das Skript stammt auch aus Shelf-Html, das aussieht wie folgt:
#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser); # Modul fuer CGI-Programme
my $cgi = new CGI; # neues Objekt erstellen
Content-type fuer die Ausgabe
print $cgi->header(-type => 'text/html');
die datei-daten holen
my $file = $cgi->param("myfile");
dateinamen erstellen und die datei auf dem server speichern
my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDRESS};
open DAT,'>'.$fname or die 'Error processing file: ',$!;
Dateien in den Binaer-Modus schalten
binmode $file;
binmode DAT;
my $data;
while(read $file,$data,1024) {
print DAT $data;
}
close DAT;
print <<HTML;
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Die Datei $file wurde erfolgreich hochgeladen.</h1>
<p>
Die Datei $file wurde erfolgreich auf dem Server
gespeichert.
</p>
</body>
</html>
HTML
Das Skript läuft unter Apache einwandfrei, müsste es aber auf dem Sambar Server zum laufen bringen.
Kann es daher sein das dieser Server "use CGI;" garnicht unterstützt, da er die Module nicht lädt?
Hat jemand dafür eine Lösung???
Vielen Dank
Mfg,
Martin