Subversion-Projekte lars-tiefland.content-management

#!/usr/bin/perl

use CGI;

$query = new CGI;
print $query->header;

@names = $query->param
for (@names)
{
 print $_."<br>\n";
}

#$fname=$query->param('Filename');
#$filename=$fname;
#$filename =~ s/\\/\//g;
#$filename = $query->param('Zielverzeichnis').substr($filename,rindex($filename,"/")+1);

#open (OUTFILE,">..$filename");
#while ($bytesread=read($fname,$buffer,1024))
#{
# print OUTFILE $buffer;
#}
#close(OUTFILE);