True. The only print statement I see here is the one
which prints the contents of $uploaded to FILE. Maybe
after you do this, you want to either print out an
HTML response or redirect to another page? If so, you
need to write more code to do that.
- John
--- LinkS On WeB <[EMAIL PROTECTED]> wrote:
> 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 "$!";
>
> }
> }
> }
>
=====
"Now it's over, I'm dead, and I haven't done anything that I want; or, I'm still
alive, and there's nothing I want to do." - They Might Be Giants, http://www.tmbg.com
__________________________________________________
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]
