Although no one responded, I figured it out, my $io = select(); will give me a handle to the default output file handle, which is all I needed... everything works fine...
Just in case anyone cared.... -Tripp -----Original Message----- From: Tripp Donnelly Sent: Thursday, December 20, 2001 12:12 PM To: [EMAIL PROTECTED] Subject: File handle, STDOUT, help Please forgive me if this is in the documentation somewhere. I have been unable to find it. Also, please note, although I am not a novice at Perl, the more interesting uses of file handles, STDOUT, redirection and such are over my head. I'm having a problem with a mod_perl app I'm working on. The goal is to have a mod_perl app that zips up a bunch of files, and sends it to you, without creating any temporary files (The zips could get huge). I have it working, but the way I'm doing it, the number of bytes downloaded is not logged (well, it shows 5 bytes downloaded for a multi megabyte zip). I understand this, because I'm writing directly to the socket. What I don't understand is how to work around the problem... Here's the important segment of my code (Much cut out): sub handler { my $r = shift; my $c = $r->connection; my $fd = $c->fileno(); my $io = new IO::Handle; $io->fdopen ( $fd, "w" ); $io->autoflush(1); $zip->writeToFileHandle($io, 0); $io->close; I'm using Archive::Zip to zip the files up. It requires a file handle to write out to (or an actual file, but I don't want any temp files, I want to create zips on the file, and send them directly to the end user). The end goal: send the zip file, without using temp files, and log the size downloaded through normal apache logging (I have custom logging handler to log the info to a database, but the normal access log is showing only 5 bytes downloaded too). Thanks, - Tripp Donnelly - Systems Integrator - BG Telecommunications - www.BGTelecommunications.com - [EMAIL PROTECTED] - (314) 439-0100 ext 28