Hallo,

first - thank for your answer - i try it - but it do no not
work - here are some code of the Filter

#Name

package ApacheKSKBB::session;

#Pfade

use lib "/usr/lib/perl5/Apache2" ;

#Module

#use strict;

#use warnings;

use Apache::Filter ();

use Apache::RequestRec ();

use Apache::RequestUtil ();

use APR::Table ();

use Apache::Const -compile => qw(OK);

use constant BUFF_LEN => 1024;





############################################################################

# Filter

############################################################################

sub handler {


my $f = shift;

my $line = '' ;

local $/ = undef ;

srand() ;



###

#File verarbeiten

#unless ($f->ctx) {

$f->r->headers_out->unset('Content-Length');

$f->r->headers_out->unset('If-Modified-Since') ;

$f->r->headers_out->add( 'Cache-Control' =>
'no-store,no-cache,must-revalidate' ) ;

$f->r->headers_out->add( 'Pragma' => 'no-cache' );

$f->ctx(1);


#}

my $file = $f->r->filename() ;

my $header = $f->r->as_string() ;

while ($f->read(my $buffer, BUFF_LEN)) {

$line .= $buffer ;

}

my $nocache=time ;

$f->print("<pre>$nocache \n $file \n $header \n</pre> $line<!-- 
cache:$nocache:NEW -->") ;



###

#Neu

if ($f->seen_eos) {

$f->remove() ;

}



###

#Ende

return Apache::Const::OK ;


the output is

1124351373
 /var/www/virtual/s-shopping.de/htdocs/index1.html
 GET /index1.html?asdasd121212121 HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,
application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint,
application/x-shockwave-flash, */*
Accept-Language: de
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR
1.0.3705)
Host: www.s-shopping.de
Connection: Keep-Alive

HTTP/1.1 (null)
Last-Modified: Thu, 18 Aug 2005 07:42:08 GMT
ETag: "120fc2-3f12-59aa9400"
Accept-Ranges: bytes
Cache-Control: no-store,no-cache,must-revalidate
Pragma: no-cache

I think the problem is, that the scrpipt is defined as a
filter

> <Files ~ "\.html">
> PerlOutputFilterHandler ApacheMY::session
>
> </Files>

is there an solution for an Filter-Script? The header-entry
If-Modified-Since - is out of the header, but i makes no difference.

Thank you ...

/\/\arkus
http://www.perlunity.de

Reply via email to