Re: Apache 2.0.40 cached Seiten???

[Leander Jedamus]

Hi!

So hier im Anhang log_proxy.pl (aus dem Linux-Magazin angepaßt).

Bis dann,
Leander

Am Dienstag, 12. November 2002 14:32 schrieb Bjoern Hoehrmann:
> * Leander Jedamus wrote:
> >Am Dienstag, 12. November 2002 14:10 schrieb Michael Jakscht:
> >> > Was sendet der Server denn für HTTP-Header für eine solche Seite?
> >>
> >> Keine Ahnung, wie finde ich den Header heraus?
> >
> >Für sowas ist ein loggender Proxy gut. Der zeigt genau an, was
> >hin und her geschickt wird. Ich habe sowas für Perl (bei Bedarf).
>
> Ich komme mit einem angepassten
>
>   perl -MHTTP::Proxy -e "HTTP::Proxy->new->start"
>
> gut aus. Wenn du was besseres hast, öffentlich verfügbar machen!
>
> (das ist hier dann natürlich offtopic...)
>
> --------------------------------------------------------------------------
>                 Apache HTTP Server Mailing List "users-de"
>       unsubscribe-Anfragen an [EMAIL PROTECTED]
>            sonstige Anfragen an [EMAIL PROTECTED]
> --------------------------------------------------------------------------

#!/usr/bin/perl -w

my $PORT = 8017;

use HTTP::Daemon;
use LWP::UserAgent;
use URI::Escape;
use URI::http;

# If Browser disconnects suddenly
$SIG{PIPE} = 'IGNORE';

my $SRV = HTTP::Daemon->new( LocalPort => $PORT );
die "Can't start server ($@)" unless defined $SRV;
print "Server listening at port $PORT\n";

my $UA = LWP::UserAgent->new;

while (my $conn = $SRV->accept) {
    while (my $request = $conn->get_request) {
        open(LOG,">>log") || die("Kann log nicht oeffnen!");
        print $request->as_string();
        print LOG $request->as_string();
        $UA->agent($request->user_agent);
        print "-" x 50, "\n";
        print LOG "-" x 50, "\n";
        my $resp = $UA->simple_request($request);
        print "-" x 50, "\n";
	print $resp->as_string();
	print LOG $resp->as_string();
        print "=" x 50, "\n";
        print LOG "=" x 50, "\n";
        $conn->send_response($resp);
	close LOG;
    }
    $conn->close;
}