nicht angemeldet
- Gibts noch weitere Perl-Scipt Archive mit freien Upload Scripts?
Hallo, unter der Beachtung der Rechte auf dem Server (s.w.o.)...
hier ist ein kleines Beispiel für FUPload unter der Verwendung des CGI.PM - Moduls. Das könnte vielleicht als Grundlage dienen. Wichtig: Die Eingabe im FileInputfeld unbedingt auf Sonderzeichen u. dgl. prüfen!
Rolf
---schnipp--->
Beispiel FUP mit CGI.PM http://webreview.com/wr/pub/98/08/14/perl/index.html
Adminvorgaben
$verz = "/wohin/das/soll";
use CGI qw/:standard/;
$CGI::POST_MAX=1024 * 25; # Max 25K
$file_name = param('file_name');
im Form: <input type=file name='file_name'>
im Form <form enctype='multipart/form-data' method=post>
$upfile = substr($file_name, rindex($file_name, "\")+1);
$ext = substr($upfile, rindex($upfile,".")+1);
Rapport
print header();
print "<p>Texteingabe: $eingabe";
print "<p>Zum Hochladen wurde die folgende Datei ausgewählt: <br>$file_name";
print "<p>Der Name der hochgeladenen Datei: $upfile";
print "<p>Die Dateierweiterung ist <b>$ext</b>";
Speichern des Upload - Files auf dem Server
open (UPF,">$verz/$upfile");
binmode UPF; # ist für NT wichtig, siehe http://stein.cshl.org/WWW/software/CGI/cgi_docs.html#non_unix
while (read($file_name, $buffer, 1024)) {
print UPF $buffer;
}
close (UPF);
<---schnapp---<