Go Back   TechArena Community > Software > Software Development
Become a Member!
Forgot your username/password?
Tags Active Topics RSS Search Mark Forums Read

Reply
 
Thread Tools Search this Thread
  #1  
Old 26-03-2009
Member
 
Join Date: Nov 2008
Posts: 1,054
Title of a Perl CGI script

I wrote a small Perl script that can download an existing file on the server. Everything works fine except that the file download has systematically filename perl (filedl.pl). Someone knows how to ensure that the file name to the proposed registration of the original file, not the perl script? I tried to add the head tag with title, but as can be expected, the mime type is automatically in text and binary file content is displayed in the browser, instead of being proposed to recording.

Here is an extract from the script code:

Code:
# Create the CGI 
my $cgi = new CGI;
my $file = $cgi -> param ("file"); 
# Type MIME
my $mimetype = &get_mime_type($file);
# HTML Headers 
print $cgi->header('Content-type: $mimetype; charset=utf-8');
open(FILE, "<$file" ) or die "Cannot open $file";
my @filedata = <FILE>;
close (FILE) or die "Cannot close $file";
print @filedata
Reply With Quote
  #2  
Old 26-03-2009
Member
 
Join Date: May 2008
Posts: 945
Re: Title of a Perl CGI script

To do this, usually I send the following HTTP header:
Code:
Content-Disposition: inline; filename="%s"; size=%d
Content-Length: %d
Content-Type: application/binary

<contents of file>
Where you replace %d with size in bytes of the file and %s the file name.

But in general it gets stuck with unicode characters >127. If you have this kind of character, will probably have to go through RewriteRule.
Reply With Quote
  #3  
Old 26-03-2009
Member
 
Join Date: Feb 2008
Posts: 194
Re: Title of a Perl CGI script

in the header, add this:
Code:
print $cgi->header("Content-Disposition: attachment; filename=nameofyourfile" );
Reply With Quote
Reply

  TechArena Community > Software > Software Development
Tags: , , ,



Thread Tools Search this Thread
Search this Thread:

Advanced Search


Similar Threads for: "Title of a Perl CGI script"
Thread Thread Starter Forum Replies Last Post
How to run Perl script on Mozilla Firefox? Grayson Software Development 5 02-11-2011 02:35 PM
Firefox problem with perl script Gajendra1 Software Development 6 09-09-2010 04:44 PM
How to call perl script from Python? Jhonwho Software Development 3 23-07-2009 09:59 PM
Is it possible to execute Perl script within another script? RasMus Software Development 2 21-07-2009 10:57 PM
Need Perl script to execute from another. beelow Software Development 2 20-06-2009 09:17 AM


All times are GMT +5.5. The time now is 09:36 AM.