/usr/share/perl5/Debian/Dwww/Common.pm is in dwww 1.13.1.
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 | # vim:ft=perl:cindent:ts=4:sw=4:et:fdm=marker:cms=\ #\ %s
#
# $Id: Common.pm 547 2011-01-15 15:29:55Z robert $
#
package Debian::Dwww::Common;
use Exporter();
use strict;
use Debian::Dwww::Utils;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(GetURL);
my $dwww_url = "/cgi-bin/dwww";
my %href = # {{{
(
'debiandoc-sgml'=> "$dwww_url#FILE#?type=application/sgml",
'docbook-xml' => "$dwww_url#FILE#?type=text/xml",
'dvi' => "$dwww_url#FILE#?type=application/x-dvi",
'html' => "$dwww_url#FILE#?type=html",
'info' => "/cgi-bin/info2www?file=",
'latex' => "$dwww_url#FILE#?type=application/x-latex",
'linuxdoc-sgml' => "$dwww_url#FILE#?type=application/sgml",
'pdf' => "$dwww_url#FILE#?type=application/pdf",
'postscript' => "$dwww_url#FILE#?type=application/postscript",
'ps' => "$dwww_url#FILE#?type=application/postscriptps",
'rtf' => "$dwww_url#FILE#?type=text/rtf",
'sgml' => "$dwww_url#FILE#?type=application/sgml",
'tar' => "$dwww_url#FILE#?type=application/tar",
'texinfo' => "$dwww_url#FILE#?type=application/x-texinfo",
'dwww-url' => "",
'text' => "$dwww_url#FILE#?type=text/plain",
'pkgsearch' => "$dwww_url?search=",
"man" => "$dwww_url#FILE#?type=man",
"runman" => "$dwww_url?type=runman&location=",
'doc-base' => "$dwww_url?search=#FILE#&searchtype=b",
"dir" => "$dwww_url#FILE#/?type=dir",
"info" => "/cgi-bin/info2www?file=",
"file" => "$dwww_url",
"menu" => "/dwww/menu/",
"search" => "$dwww_url?search=",
"dpkg" => "/cgi-bin/dpkg?query=",
); # }}}
sub GetURL{ # {{{
my $format_name = shift;
my $format_url = shift;
my $dont_encode = shift;
$dont_encode = $FALSE unless defined $dont_encode;
$format_url = &URLEncode($format_url) unless ($dont_encode || $format_name eq 'dwww-url');
if ($href{$format_name} =~ /#FILE#/) {
return $` . $format_url . $';
} else {
return $href{$format_name} . $format_url;
}
} # }}}
1;
|