for some reason when, I do this it doesnt print any
thing, it just makes the file.
sub uploadfile {
for ($i=1; $i<=5; $i++) {
if ($q->param("file$i")) {
$filename = $q->param("file$i");
$file = $q->param("file$i");
$filename =~ s/.*[\/\\]//;
open (FILE,">$user{'site_id'}/$filename") ||
&error("Could not create $filename: $!");
{
local $/="";
my $uploaded = <$file>;
print FILE $uploaded;
}
close FILE or die "$!";
}
}
}
=====
__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
