Re: Creating dynamically named CGIs

something on these lines :

   chdir($filepath);
    my $filesize = -s $filename;
   print "Content-disposition: attachment;filename=$filename\n";
    print "Content-Length: $filesize\n";
    print "Content-Type: application/octet-stream\n\n";

    open(READ,$filename) || die;
    while (<READ>) {
        print;
    }
    close(READ);
[download]

where filepath is the folder in which u store all the files which the users want to download (e.g. "/tmp") and the filename is the value passed along in the URL (or by the POST method)
hth

Comment on Re: Creating dynamically named CGIs Download Code

Replies are listed 'Best First'.

Re: Re: Creating dynamically named CGIs
by ryan (Pilgrim) on Feb 13, 2002 at 07:16 UTC

sub do_download {
        my $self = shift;
        my $post = $self->query();
        my $fname = "/storage/surtron/cda/clients/ryan/new/surtron-020
+130-01.zip";
        my $fsize = -s $fname;
        $self->header_props(    -type => "application/octet-stream",
                                -attachment => "blahblah2123.zip",
                                -Content_length => $fsize);
        open(READ,$fname) || die;
        my @fcontent = <READ>;
        close(READ);
        return "@fcontent";
}
[download]

Content-Disposition: attachment; filename="blahblah2123.zip"
content-length: 139124
Content-Type: application/octet-stream

PK {rest of zip file}
[download]

Update:

HERE

More Updating:

my $filecat = `cat /blah/blah/whatever`;
return $filecat;
[download]

[reply]
[d/l]
[select]


No such thing as a small change
	PerlMonks