#!/usr/bin/perl use CGI qw(:standard); my $cgi = new CGI; my $upload_dir ='/home/gecko/www/htdocs'; my $des_dir ='/home/gecko/geckodev/cgi-bin/uploads'; my $file = $cgi->param('pi_file_name'); my $filename = $file; $filename =~ s/^.*(\\|\/)//g; open(FILELIST,"<$filename") || die print "Fail to upload: $!"; while() { $line=$_; chomp($line); my $doc = $line; $doc =~ s/^.*(\\|\/)//g; $line =~ s/^.*(\\|\/)//g; open(OUT,">$upload_dir/$doc") || die print "Fail to upload: $!"; open(FILELIST1,"<$line") || die print "Fail to upload: $!"; while() { print OUT $_; # print $_; print $cgi->header(); print ""; print $_; print ""; print ""; print ""; print ""; } close(OUT); }