mirror of
https://github.com/webmin/webmin.git
synced 2026-02-10 17:22:04 +00:00
37 lines
615 B
Perl
37 lines
615 B
Perl
# man-lib.pl
|
|
|
|
do '../web-lib.pl';
|
|
&init_config();
|
|
do '../ui-lib.pl';
|
|
|
|
$google_host = "www.google.com";
|
|
$google_port = 80;
|
|
$google_page = "/search";
|
|
|
|
# Get the paths to perl and perldoc
|
|
$perl_path = &get_perl_path();
|
|
if (&has_command("perldoc")) {
|
|
$perl_doc = "perldoc";
|
|
}
|
|
else {
|
|
$perl_path =~ /^(.*)\/[^\/]+$/;
|
|
if (-x "$1/perldoc") {
|
|
$perl_doc = "$1/perldoc";
|
|
}
|
|
}
|
|
if ($perl_doc && $] >= 5.006) {
|
|
$perl_doc = "$perl_doc -U";
|
|
}
|
|
|
|
# set_manpath(extra)
|
|
sub set_manpath
|
|
{
|
|
$ENV{'MANPATH'} = join(":", split(/:/, $config{'man_dir'}),
|
|
split(/:/, $_[0]),
|
|
"/usr/man",
|
|
"/usr/share/man");
|
|
}
|
|
|
|
1;
|
|
|