nicht angemeldet
Hallo, der folgende Script bzw. das Zusammenspiel Script/Html läuft nicht, obwohl es selfhtml entnommen wurde.
Der Script ist unter http://www.hirony.net/cgi-bin/test/upload.cgi
zu erreichen.
Liegt es an den Browser Einstellungen oder am Script oder wie, wo, was ?
Gruss Jeremias
#!/usr/bin/perl
use CGI; # 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");
Dateien in den Binaer-Modus schalten
binmode $file;
my $data;
read $file,$data,25000;
$l=length($data);
print <<"HTML";
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFFFF">
<form action=upload.cgi method=post>
File <input type=file size=40 name=myfile>
<br><input type=submit value='ab die luzi'>
</form>
<p>
Dateiname = $file
<br>Die alte Datei war $l Bytes lang
</body>
</html>
HTML
;
Struppi