CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Intermediate:
Temp files with upload script ?

 



MaDD
stranger

Mar 19, 2001, 3:48 AM

Post #1 of 1 (207 views)
Temp files with upload script ? Can't Post

I've written (and borrowed) the following code into my script to allow users to upload images. It works fine but i keep getting a pile of temporary files in the root-dir.
They look like this: 'CGItemp19549' and are a plain copy of the uploaded file. (when i add the right extention it's the uploaded image)
Is there a way to prevent this or do I have to write some code to remove these files automaticly ?

Here are the important bits of the code i use:

===================================
use CGI qw/:standard/;
$limit= 20;
$CGI::POST_MAX=1024 * $limit;
===================================
open(OUTFILE, ">$dir$file")||&error("Can't open $dir$file. $!");
binmode OUTFILE;
# binmode is for windows only. Ignored by unix
while ($bytesread=read($filename,$buffer,1024))
{print OUTFILE $buffer; }
close (OUTFILE);
===================================


Not a big problem...just annoying.

Huub.

Who is this General Failure and what is he doing on my hard-drive ?

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives