remove

Peter Reif wrote:

> naimi wrote:
> >
> > Hi all,
> > We had set up our squid log format as httpd_log_format. But most squid log
> > analyzers work on "squid native log format". Does anybody knows a utility or
> > script for converting httpd log format to squid native log format?
> > Thank in advance.
>
> I wrote a script that works the other way round, it converts native
> log-format to httpd log. This is because native format contains more
> information (e.g. request time in milliseconds). The only field I have
> to guess is the HTTP-protocol, (I assume HTTP/1.0), it is only logged in
> http log format.
>
> Peter
>
> ------------------------------------------------------------------------
> #!/usr/bin/perl
>
> use Time::Local;
>
> $timedist = timelocal(localtime) - timelocal(gmtime);
> $timedist /= 36;
> $timedist = sprintf ("%+05d", $timedist);
>
> # Rfc822 Date
> # von advcgi kopiert und veraendert
> sub Date822 {
> my ($s, $i, $h, $d, $m, $y, $w, $a, $z) = (gmtime($_[0]));
> $h = sprintf("%02d:%02d:%02d", ($h, $i, $s));
> $d = sprintf("%02d", ($d));
> $m = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
> 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$m];
> $y += 1900;
> return "$d/$m/$y:$h $timedist";
> }
>
> while (<>) {
> my ($zeit, $client, $cache_code, $code, $size, $method, $url, $ident, $hier_code, $content) = m#(\d+).\d+\s+\d+\s+(\S+)\s+([^/]+)/(\d+)\s+(\d+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)#;
> $datum = Date822 ($zeit);
> print "$client $ident - [$datum] \"$method $url HTTP/1.0\" $code $size $cache_code:$hier_code\n";
> }
Received on Fri Jan 07 2000 - 07:46:53 MST