Yes. On my HTML Page I have a Begin Download Button.Once I click this Files
get zipped and I get Save As (x-zzip-compressed Application) Dialog Box. In
the Selection field of the Dialog box I get my Perl Script as default. I
want my my zip file in Selection field.
Please help me if you know any thing about this.
Thanks
Syed
>From: Matthew Thompson <[EMAIL PROTECTED]>
>To: 'Syed Anwaruddin' <[EMAIL PROTECTED]>
>Subject: RE: How to download a file on client System.
>Date: Tue, 3 Jul 2001 11:52:42 +0100
>
>maybe I'm being daft here, but I think this is an issue\feature of the
>browser.
>Have I got this right - you have link on a html page to your perl script
>and
>you are right clicking on this link and selecting 'save as'? Or are you
>left
>clicking on the link?
>Matt
>
>
>-----Original Message-----
>From: Syed Anwaruddin [mailto:[EMAIL PROTECTED]]
>Sent: Tuesday, July 03, 2001 11:35 AM
>To: [EMAIL PROTECTED]
>Subject: How to download a file on client System.
>
>
>Hi All,
>
>I am unable to get my filename in save As Dialog Box of an
>Application.Instead I am getting my Perl Script name.
>The part of my code is as:
>
>my $zipfile = "assembly$now_id.tar.gz";
>if (($zipfile) && (-e $zipfile)) {
> if (($userAgent =~ /MSIE/i) && ($current_status ne $last_status)){
> $last_status = $current_status;
> $initial_delay = 0;
> }
> elsif ( open( ZIP, "<$zipfile") ) {
>
> # print zip file
> #my $path = "/users/x_syed/";
> #my $mimetype = 'application/x-gzip';
> my $size = -s "$zipfile";
> print "Content-type: application/x-zip-compressed;
> name=\"$zipfile\"\n\n";
> print "Content-length: $size\n";
> print "Content-disposition: file;filename=\"$zipfile\"\n\n";
>
> #print "Content-type: application/x-gzip;
> name=\"$zipfile\"\n\n";
> #print "Content-type: application/octet-stream;
> name=\"$zipfile\"\n\n";
> #print "Content-type: application/x-zip-compressed\n\n";
> #print "Content-type: $mimetype; name=$zipfile\n\n";
> #print "Content-disposition: filename=$zipfile\n\n";
> #print "Content-length: $size\n\n";
>
> binmode(STDOUT);
> binmode(ZIP);
> while (<ZIP>) {
> print $_;
> }
>I tried following above ways to get my filename in the save As Dialog Box.
>
>Please help me. Please don't mind. The question may look simple but I am
>unable to the filename in the SaveAs Dialog Box.
>
>Note: The behaviour should be as in Links. Once you click the link SaveAs
>Dialog Box appears with the filename of the Link as default.
>
>Please your help in this regard is greatly appreciated.
>
>Thanks
>Syed.
>_________________________________________________________________________
>Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
>
>_______________________________________________
>Perl-Win32-Web mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
