PerlModule AxKit
<Perl>
sub AxKit::Apache::no_cache {
  package AxKit::Apache;
  my $self = shift;

  $self->headers_out->set('Cache-Control', 'max-age=0');

  if ($set) {
    $AxKit::Cache->no_cache(1);
  }
}
</Perl>

Duh, why didn't I think of that. I'll go bang my head on the wall a few times.

thanks,
--d


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to