!/usr/bin/perl # Einfaches Script fuer File-Upload use strict; use CGI qw(:standard); # Upload Dir, kein Slash am Ende! my $updir = "/home/httpd/htdocs/upload"; # Referer (mit .htaccess geschuetztes Verzeichnis wo Formular liegt) my $ref = "http://atlas.ee.fhm.edu/ups/upload.html"; my $data; # Lesepuffer my %FORM = (); ##### BITTE BEACHTEN ###################################################### # Die Felder des Formulars #
# Lokaler Dateiname: #
# Dateiname auf dem Server: # # #
# Dokumenten-Kopf print "Content-type: text/html\n\n"; print "FIle-Upload"; print ""; if ($ENV{'HTTP_REFERER'} ne $ref) { print "

Fehler!

\n"; print "Es wurde versucht, ohne Erlaubnis hochzuladen! Abbruch..."; # print $ENV{'HTTP_REFERER'}; print "\n"; exit; } &parse_form; my $datei = FORM{'datei'}; my $dateiname = "upload" . if (! $datei or ! $dateiname) { print "

Fehler!

\n"; print "Datei oder Dateiname fehlt! Abbruch..."; print "\n"; exit; } if (! open WF, ">$updir/$dateiname") { print "

Fehler!

\n"; print "Datei kann nicht geschrieben werden! Abbruch..."; print "\n"; exit; } binmode $datei; binmode WF; while(read $datei,$data,1024) { print WF $data; } close WF; print "

Upload O. K.

\n"; print "Die Datei wurde hochgeladen.
\n"; print "Remote Path and Filename: $updir/$dateiname\n"; print "\n"; exit; sub parse_form { my ($buffer, @pairs, $pair, $name, $value); # Read in text if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @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; $FORM{$name} = $value; } } sub timestamp { my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon = $mon + 1; return ("$year"."$mon"."$mday"."-"."$hour"."$min"."$sec"); }