[Catalyst] Detecting if a user aborted a (long) download

[Thomas Klausner]

Hi!

On Sun, Mar 11, 2007 at 03:26:13PM +0100, Thomas Klausner wrote:
 
> Now, using Catalyst (on mod_perl 2.x), I'm doing this to send the file:
> 
>     $c->res->body( $fh );

This was maybe a bit to short:

   my $fh = IO::File->new( $full_path, 'r' );
   if ( defined $fh ) {
       binmode $fh;
       $c->res->body( $fh );
   }
				        }
					

-- 
#!/usr/bin/perl                               http://domm.zsi.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}