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);