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
