/usr/share/namazu/filter/apachecache.pl is in namazu2-index-tools 2.0.21-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | #
# -*- Perl -*-
# $Id: apachecache.pl,v 1.1.2.2 2003-08-24 10:41:55 usu Exp $
# Copyright (C) 2002 TSUCHIYA Masatoshi ,
# 2002 Namazu Project All rights reserved.
# This is free software with ABSOLUTELY NO WARRANTY.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either versions 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA
#
package apachecache;
require 'util.pl';
use FileHandle;
use strict;
sub mediatype() { 'application/x-apache-cache'; }
sub recursive() { 1; }
sub pre_codeconv() { 0; }
sub post_codeconv(){ 0; }
sub status() { 'yes'; }
sub add_magic ($) {
my ($magic) = @_;
$magic->addMagicEntry( "119\tstring\tX-URL:\tapplication/x-apache-cache" );
}
# This function is stolen from CGI_Lite.pm.
sub url_decode ($) {
my $string = shift;
$string =~ s/%([\da-fA-F]{2})/chr (hex ($1))/eg;
$string;
}
sub getapacheurl {
my ($str) = @_;
$str =~ /\A.{126}([^\n]*)\n/s;
&url_decode($1);
}
sub replacecode {
my $fh = new FileHandle( $_, "r" );
if( $fh ){
my $buf;
read( $fh, $buf, 126 + 1024 );
close $fh;
$_ = &getapacheurl( $buf );
} else {
util::vprint( "Can not open cache file: $_\n" );
}
}
sub filter ($$$$$) {
my( $orig_cfile, $contref, $weighted_str, $headings, $fields ) = @_;
util::vprint( "Cache File: ".$$orig_cfile,
"Cache URL : ".&getapacheurl($$contref) );
# Remove header.
$$contref =~ s/\A.*?\r\n\r\n//s;
$$contref =~ s/\A.*?\r\n\r\n//s;
return undef;
}
1;
|