Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

(bbq) Use Content-Disposition! Re: Downloading things from a database

by BBQ (Deacon)
on Aug 09, 2000 at 00:17 UTC ( #26882=note: print w/replies, xml ) Need Help??


in reply to Downloading things from a database

This is a little something that I have been using. Modify at your discretion. It gets the file name and data from a table and prints everything out to the browser printing the name under Content-disposition so that it doesn't prompt the user to save the pl file.

On a side note: If you don't have the file name, but know the file extension, you can always replace the name with the epoch returned by time().
sub DownloadFile { my $id = shift; $sth = $dbh->prepare(qq{ select name,data from foo where id = ? and type = 'file' }) or Errors("Could not prepare SQL for file $id: $DBI::errstr"); $rc = $sth->execute($id) or Errors("Could not execute SQL for file $id: $DBI::errstr") +; my ($name,$data) = $sth->fetchrow_array(); my $size = length($data); print "Content-disposition: inline; filename=$name\n"; print "Content-Length: $size\n"; print "Content-Type: application/octet-stream\n\n"; print $data; return(1); }
I hope that helps!

#!/home/bbq/bin/perl
# Trust no1!
  • Comment on (bbq) Use Content-Disposition! Re: Downloading things from a database
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://26882]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2020-09-18 17:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (113 votes). Check out past polls.

    Notices?