My script works!!! but have to modify a little. Thank you very much.
Krung.
---------- Original Message ----------------------------------
From: "Alexei Danchenkov" <[EMAIL PROTECTED]>
Date: Fri, 12 Oct 2001 15:54:51 +0400
>Hi, Krung,
>Apparently you didn't sent the actual file, only the header. You need to
>read it from the file handle and print it out to your output stream.
>I assume this must be:
>use constant BUFFERSIZE = 65536;
>binmode $filehandle;
>binmode OUTPUT; # This is your OUTPUT stream
>while ( read ( $filehandle, $buffer, BUFFERSIZE ) ) {
> print OUTPUT, $buffer;
>}
>HTH, Alexei
>
>-----Original Message-----
>From: [EMAIL PROTECTED]
>[mailto:[EMAIL PROTECTED]]On Behalf Of Krung
>Saengpole
>Sent: Friday, October 12, 2001 3:34 PM
>To: [EMAIL PROTECTED]
>Subject: Downloading file.
>
>
>Hello all,
>
>I have a problem about sending file to user. I made one zip file containing
>one text file and send this file to user. User only receives the file but no
>content in it. What's wrong I made to this script?
>
>my script:
>
>$file="test.zip";
>
>print <<"HeaderSent";
>Content-Type: application/octet-stream; name="$file"
>Content-Transfer-Encoding: base64
>Content-Disposition: attachment; filename="$file"
>Expires=0
>
>HeaderSent
>
>
>TIA.
>
>Krung
>_______________________________________________
>Perl-Win32-Users mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
