[疑问]不知是否正确配置了linux下源代码阅读工具lxr

legendren · 发表于 2003-12-17 11:21:19

我参照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 =~ /^.*\.[ch]$/) {
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))[9]);
$t[5] += 1900;
$t[4]++;
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 =~ /^.*\.[oa]$|^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');

不知道是否是正确的？！请大侠赐教，万分感谢！

Dragonfly · 发表于 2003-12-18 22:39:24

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

涩兔子 · 发表于 2005-12-23 13:51:16

当时肯定没有正确配置，Dragonfly给涩兔子面子没有说罢了

		自动登录	找回密码
密码			注册