Re: File upload example
Hi On Tue, 12 Mar 2002, John Saylor wrote: I have found that some browsers put the file in the value matching the parameter name instead of putting a file upload object there. ( 02.03.12 18:36 -0500 ) Rich Bowen: That's not really necessary, as Apache::Request does that for you. Maybe I was using an earlier version, but Apache::Request was NOT doing it for me, so that is why I needed to do this extra stuff. -- \js embrace impactful experiences
Re: File upload example
On Wed, 13 Mar 2002, John Saylor wrote: Hi On Tue, 12 Mar 2002, John Saylor wrote: I have found that some browsers put the file in the value matching the parameter name instead of putting a file upload object there. ( 02.03.12 18:36 -0500 ) Rich Bowen: That's not really necessary, as Apache::Request does that for you. Maybe I was using an earlier version, but Apache::Request was NOT doing it for me, so that is why I needed to do this extra stuff. OK. Nasty. I will check into this more carefully. -- Rich Bowen http://www.apacheadmin.com/ Apache Support and Training
Re: File upload example
Rich Bowen wrote: I am sure that this is a FAQ, but I had a very hard time finding examples of code for doing file upload. I wanted to post this here in order to have it in the permanent record so that other folks don't have to spend days figuring this out. Great Rich! I think we can do better than just keeping it in the archive. How about adding it here? http://perl.apache.org/guide/snippets.html If you like the idea, can you please make it a complete section and send it to list/me and I'll add it to the guide? Thanks! _ Stas Bekman JAm_pH -- Just Another mod_perl Hacker http://stason.org/ mod_perl Guide http://perl.apache.org/guide mailto:[EMAIL PROTECTED] http://ticketmaster.com http://apacheweek.com http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
Re: File upload example
On Tue, 2002-03-12 at 03:57, Rich Bowen wrote:
my $form = Your::Class::form(); # Wherever you put this function
if (my $file = $form-{UPLOAD}) {
my $filename = $file-filename; # If you need the name
Actually, if you want the name, it's a really good idea to just get the
basename, since some browsers on some platforms (e.g., IE/Mac) send the
complete path name to the file on the browser's local file system (e.g.,
':Mac:Foo:Bar:image.jpg'). This is trickier than it sounds, because you
have to tell basename() what platform to assume the file is from. Here's
how I suggest doing it.
use File::Basename;
use HTTP::BrowserDetect;
my $browser = HTTP::BrowserDetect-new($ENV{HTTP_USER_AGENT});
# Tell File::Basename what platform to expect.
fileparse_set_fstype($browser-mac ? 'MacOS' :
$browser-windows ? 'MSWin32' :
$browser-dos ? 'MSDOS' :
$browser-vms ? 'VMS'
$browser-amiga ? 'AmigaOS' :
$^O);
# Get the file name.
my $filename = basename($file-filename);
# Be sure to set File::Basename to the local file system again.
fileparse_set_fstype($^O);
HTH,
David
--
David Wheeler AIM: dwTheory
[EMAIL PROTECTED] ICQ: 15726394
http://david.wheeler.net/ Yahoo!: dew7e
Jabber: [EMAIL PROTECTED]
Re: File upload example
On Tue, 12 Mar 2002, Stas Bekman wrote: Rich Bowen wrote: I am sure that this is a FAQ, but I had a very hard time finding examples of code for doing file upload. I wanted to post this here in order to have it in the permanent record so that other folks don't have to spend days figuring this out. Great Rich! I think we can do better than just keeping it in the archive. How about adding it here? http://perl.apache.org/guide/snippets.html If you like the idea, can you please make it a complete section and send it to list/me and I'll add it to the guide? Thanks! Absolutely. I will try to do that later this week. -- http://www.CooperMcGregor.com/ Apache Support and Training
Re: File upload example
At 9:01 AM -0800 3/12/02, David Wheeler wrote:
On Tue, 2002-03-12 at 03:57, Rich Bowen wrote:
my $form = Your::Class::form(); # Wherever you put this function
if (my $file = $form-{UPLOAD}) {
my $filename = $file-filename; # If you need the name
Actually, if you want the name, it's a really good idea to just get the
basename, since some browsers on some platforms (e.g., IE/Mac) send the
complete path name to the file on the browser's local file system (e.g.,
':Mac:Foo:Bar:image.jpg'). This is trickier than it sounds, because you
have to tell basename() what platform to assume the file is from. Here's
how I suggest doing it.
Since when? I just wrote something that did just this (in CGI), but
it only uploaded the basename. I'm using Mac OS 9, IE 5.0. That
sounds a lot like IE 3.0.
The other way to go is
$filename = $1 if($filename =~ /[\:\/\\]([^\:\/\\]+)$/);
How many people use / : or \ in their paths? Can we shoot those
people? I especially don't want people who use those characters
uploading files that might be downloaded by someone on another
platform. Just think what would happen if I downloaded Foo:Bar.txt,
as uploaded by my windows friends.
Rob
--
When I used a Mac, they laughed because I had no command prompt. When
I used Linux, they laughed because I had no GUI.
Re: File upload example
Mozilla sends a fully qualified path name ... just an FYI ...
On Tue, 12 Mar 2002, Robert Landrum wrote:
At 9:01 AM -0800 3/12/02, David Wheeler wrote:
On Tue, 2002-03-12 at 03:57, Rich Bowen wrote:
my $form = Your::Class::form(); # Wherever you put this function
if (my $file = $form-{UPLOAD}) {
my $filename = $file-filename; # If you need the name
Actually, if you want the name, it's a really good idea to just get the
basename, since some browsers on some platforms (e.g., IE/Mac) send the
complete path name to the file on the browser's local file system (e.g.,
':Mac:Foo:Bar:image.jpg'). This is trickier than it sounds, because you
have to tell basename() what platform to assume the file is from. Here's
how I suggest doing it.
Since when? I just wrote something that did just this (in CGI), but
it only uploaded the basename. I'm using Mac OS 9, IE 5.0. That
sounds a lot like IE 3.0.
The other way to go is
$filename = $1 if($filename =~ /[\:\/\\]([^\:\/\\]+)$/);
How many people use / : or \ in their paths? Can we shoot those
people? I especially don't want people who use those characters
uploading files that might be downloaded by someone on another
platform. Just think what would happen if I downloaded Foo:Bar.txt,
as uploaded by my windows friends.
Rob
--
When I used a Mac, they laughed because I had no command prompt. When
I used Linux, they laughed because I had no GUI.
--
//\\
|| D. Hageman[EMAIL PROTECTED] ||
\\//
Re: File upload example
Hi ( 02.03.12 06:57 -0500 ) Rich Bowen: Comments welcome, YMMV, Caveat Emptor, and all that. I have found that some browsers put the file in the value matching the parameter name instead of putting a file upload object there. So your code should check the value to see if it is a path AND a one liner BEFORE trying to create the file upload object. -- \js extend scalable infomediaries
Re: File upload example
On Tue, 12 Mar 2002, John Saylor wrote: Hi ( 02.03.12 06:57 -0500 ) Rich Bowen: Comments welcome, YMMV, Caveat Emptor, and all that. I have found that some browsers put the file in the value matching the parameter name instead of putting a file upload object there. So your code should check the value to see if it is a path AND a one liner BEFORE trying to create the file upload object. That's not really necessary, as Apache::Request does that for you. If the upload method fails, then you won't get anything in the UPLOAD key. The generic form handler does not know what field(s) in your form were file upload forms, and so this method just lets you check the one key (UPLOAD) and, if it is defined, then you know you got something. Hopefully, *all* browsers put the file name in the parameter, since that is the defined behavior. However, regardless of this, the file upload object contains all the necessary information to reconstruct the file, so you don't even have to look in that field. -- Rich Bowen Apache Administrators Handbook ApacheAdmin.com
