[疑问]不知是否正确配置了linux下源代码阅读工具lxr
我参照http://www.linuxfans.org/nuke/modules.php?name=Forums&file=viewtopic&t=26480的linux下源代码阅读工具lxr安装整理可用版按照xdwjack贴出的步骤，做完后在http://localhost/lxr/http/source看到的是如下内容：
#!/usr/local/bin/perl
# $Id: source,v 1.4 1998/05/14 11:59:22 argggh Exp $
# source -- Present sourcecode as html, complete with references
#
# Arne Georg Gleditsch <[email protected]>
# Per Kristian Gjermshus <[email protected]>
#
#
# 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 version 2 of the License, 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., 675 Mass Ave, Cambridge, MA 02139, USA.
######################################################################
use lib 'lib/';
use SimpleParse;
use LXR::Common;
use LXR::Config;
sub descexpand {
my $templ = shift;
if ($index{$filename}) {
return(&expandtemplate($templ,
('desctext', sub {return($index{$filename})})
));
} else {
return('');
}
}
sub diricon {
if ($filename eq '..') {
return(&fileref("<img src=\"/icons/back.gif\"".
" border=0 alt=\"Back\">",
$parentdir));
} else {
return(&fileref("<img src=\"/icons/folder.gif\"".
" border=0 alt=\"Folder\">",
$Path->{'virt'}.$filename));
}
}
sub dirname {
if ($filename eq '..') {
return(&fileref("Parent directory", $parentdir));
} else {
return(&fileref($filename, $Path->{'virt'}.$filename));
}
}
sub fileicon {
if ($filename =~ /^.*\.$/) {
return(&fileref("<img src=\"/icons/c.gif\"".
" border=0 alt=\"C file\">",
$Path->{'virt'}.$filename));
} elsif ($filename =~ /^.*\.(cpp|cc)$/) {
# TODO: Find a nice icon for c++ files (KDE?)
return(&fileref("<img src=\"/icons/c.gif\"".
" border=0 alt=\"C++ file\">",
$Path->{'virt'}.$filename));
} else {
return(&fileref("<img src=\"/icons/text.gif\"".
" border=0 alt=\"File\">",
$Path->{'virt'}.$filename));
}
}
sub filename {
return(&fileref($filename,
$Path->{'virt'}.$filename));
}
sub filesize {
my $templ = shift;
my $s = (-s $Path->{'real'}.$filename);
return(&expandtemplate($templ,
('bytes', sub {return($s)}),
('kbytes', sub {return($s/1024)}),
('mbytes', sub {return($s/1048576)})
));
}
sub modtime {
my @t = gmtime((stat($Path->{'real'}.$filename)));
$t += 1900;
$t++;
return(sprintf("%04d-%02d-%02d %02d:%02d:%02d", reverse(splice(@t, 0, 6))));
}
sub direxpand {
my $templ = shift;
my $direx = '';
local $filename;
local $filestat;
foreach $filename (@dirs) {
$direx .= &expandtemplate($templ,
('iconlink', \&diricon),
('namelink', \&dirname),
('filesize', sub {return('')}),
('modtime', \&modtime),
('description', \&descexpand));
}
foreach $filename (@files) {
next if $filename =~ /^.*\.$|^core$|^00-INDEX$/;
$direx .= &expandtemplate($templ,
('iconlink', \&fileicon),
('namelink', \&filename),
('filesize', \&filesize),
('modtime', \&modtime),
('description', \&descexpand));
}
return($direx);
}
sub printdir {
my $template;
my $index;
local %index;
local @dirs;
local @files;
local $parentdir;
$template = "<ul>\n\$files{\n<li>\$iconlink \$namelink\n}</ul>\n";
if ($Conf->htmldir) {
unless (open(TEMPL, $Conf->htmldir)) {
&warning("Template ".$Conf->htmldir." does not exist.");
} else {
$save = $/; undef($/);
$template = <TEMPL>;
$/ = $save;
close(TEMPL);
}
}
if (opendir(DIR, $Path->{'real'})) {
foreach $f (sort(grep/^[^\.]/,readdir(DIR))) {
if (-d $Path->{'real'}.$f) {
push(@dirs,"$f/");
} else {
push(@files,$f);
}
}
closedir(DIR);
} else {
print("<p align=center>\nThis directory does not exist.\n");
if ($Path->{'real'} =~ m#(.+[^/])[/]*$#) {
if (-e $1) {
&warning("Unable to open ".$Path->{'real'});
}
}
return;
}
if (-f $Path->{'real'}."00-INDEX") {
open(INDEX,$Path->{'real'}."00-INDEX") ||
&warning("Existing \"00-INDEX\" could not be opened.");
$save = $/; undef($/);
$index = <INDEX>;
$/ = $save;
%index = $index =~ /\n(\S*)\s*\n\t-\s*([^\n]*)/gs;
}
if ($Path->{'virt'} =~ m#^(.*/)[^/]*/$#) {
$parentdir = $1;
unshift(@dirs, '..');
}
print(&expandtemplate($template,
('files', \&direxpand)));
}
sub printfile {
unless ($Path->{'file'}) {
&printdir;
if (open(SRCFILE, $Path->{'real'}.README)) {
print("<hr><pre>");
&markupfile(\*SRCFILE, $Path->{'virt'}, 'README',
sub { print shift });
print("</pre>");
close(SRCFILE);
}
} else {
if (open(SRCFILE, $Path->{'realf'})) {
print("<pre>");
&markupfile(\*SRCFILE, $Path->{'virt'}, $Path->{'file'},
sub { print shift });
print("</pre>");
close(SRCFILE);
} else {
print("<p align=center>\nThis file does not exist.\n");
if (-f $Path->{'real'}.$Path->{'file'}) {
&warning("Unable to open ".$Path->{'realf'});
}
}
}
}
($Conf, $HTTP, $Path) = &init;
&makeheader('source');
&printfile;
&makefooter('source');
不知道是否是正确的？！请大侠赐教，万分感谢！ make sure this file is executable.
and u already set all needed .htaccess file.
u are supposed to run this per script. not to show its content 当时肯定没有正确配置，Dragonfly给涩兔子面子没有说罢了 :mrgreen:
页:
[1]