#!/usr/bin/perl -w
use strict;
use CGI; # Modul fuer CGI-Programme
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI; # neues Objekt erstellen
# die datei-daten holen
my $file = $cgi->param("myfile");
my $dir = $cgi->param("dir");
my $comment = $cgi->param("comment");
# Content-type fuer die Ausgabe
# print $cgi->header(-type => 'text/
html');
# dateinamen erstellen und die datei auf dem server speichern
my $fullpath = $cgi->param("myfile");
my $index = rindex($fullpath, "\\");
my $filename = substr($fullpath, ($index + 1));
my $fname = '../'.$dir.'/'.$filename;
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;
my $haccessfile = '../'.$dir.'/.htaccess';
my $newline = 'AddDescription "'.$comment.'" '.$filename;
open(FILE, "[b]>>[/b]$haccessfile") || die 'Cannot locate database file: '. $haccessfile.'!';
print FILE "\n$newline";
close(FILE);
print "Content-Type: text/
html\n\n";
print "<head><title>Homepage von Michael Puff - Datei-Uploadbestätigung</title></head>";
print "<
html><body>";
print "<h1>Datei-Uploadbestätigung</h1>";
print "<hr>";
print $haccessfile."
";
print $newline."
";
print "Datei [b]".$filename."[/b] erfolgreich nach [b]http://www.luckie-online.de/".$dir."/[/b] hochgeladen.
";
print "<a href=\"http://www.luckie-online.de/sitemanager\">Zurück</a>";
print "</body></
html>";