[Buffalo-pm] CGI.pm uploadinfo filesize

[Jim Brandt]

Check out the code for the valid_file_max_bytes method in this module:

http://search.cpan.org/src/MARKSTOS/Data-FormValidator-4.14/lib/Data/FormValidator/Constraints/Upload.pm

If you trace it through, you'll see they use CGI.pm 'upload' method to 
get a filehandle to the uploaded file. Then they just stat the file.

	my $fh = _get_upload_fh($self);
	if (!$fh) { warn "Failed to load filehandle for $field" && return undef; }

	## retrieve size
    	my $file_size = (stat ($fh))[7];

I don't think this will really solve your problem, though. To display 
progress, you need to know the size of the file ahead of time. But you 
can't know this until you've already got the file on your file system.

If you want a progress indicator, you just need to make a fake one.



DANIEL MAGNUSZEWSKI wrote:
> This page may help a little - check out the bottom of the last example
> (http://perlmeme.org/tutorials/cgi_upload.html):
> 
> 
>         while ($bytesread = read($filename, $buffer, $num_bytes)) {
>             $totalbytes += $bytesread;
>             print OUTFILE $buffer;
>         }
> 
> I can't find anything on it right now, but I was told that there is a
> "FILE" (or something similar) entry in the %ENV (environment variable)
> hash. It should contain a whole bunch of information on the file (name,
> size, etc). If this is the case, then you can simply grab the filesize
> and use the above while loop and compare the bytes read with whatever
> the total number of bytes is. 
> 
> I'm not a "web guy" so I'm not too familar with using %ENV beyond its
> basic uses. Does anyone else know if the filesize is in %ENV?
> 
> -Dan
> 
> 
>>>> <joshj at linuxmail.org> 03/01/06 6:20 PM >>>
> How exactly do you get the filesize of an uploaded file? I'd like to
> use
> it so I could display progress to the user. Everything seems to say to
> use uploadInfo from CGI.pm or upload_info from CGI::Simple. The only
> one
> that even returns anything useful is CGI.pm. It gives me content-type,
> content-disposition, name, and filename. But no file size. So I'm
> thinking that maybe there is something more I should specify in the
> html
> to tell the client that I want that information. Here is my html form:
> 
> <form method="post" action="oldup.cgi" enctype="multipart/form-data">
> <input type="file" name="upfile" /><input type="submit" /></form>
> 
> and the cgi:
> 
> use strict;
> use CGI qw(:standard uploadInfo);
> use Data::Dumper;
> 
> my $q = new CGI;
> my $fname = param('upfile');
> my $fsize = $q->uploadInfo($fname);
> print <<"html";
> Content-type: text/html
> 
> <h1>UpLoad File</h1>
> 
> file: $fname<br />
> 
> <b>Done $fsize</b>
> html
> print Dumper($fsize);
> 
> ------------------------------
> Any ideas how to get this information?
> 
> -Josh J
> _______________________________________________
> Buffalo-pm mailing list
> Buffalo-pm at pm.org 
> http://mail.pm.org/mailman/listinfo/buffalo-pm 
> 
> 
> _______________________________________________
> Buffalo-pm mailing list
> Buffalo-pm at pm.org
> http://mail.pm.org/mailman/listinfo/buffalo-pm

-- 
Jim Brandt
Administrative Computing Services
University at Buffalo