mirror of
https://github.com/webmin/webmin.git
synced 2025-08-01 15:36:00 +00:00
50 lines
943 B
Perl
Executable File
50 lines
943 B
Perl
Executable File
# man-lib.pl
|
|
|
|
BEGIN { push(@INC, ".."); };
|
|
use WebminCore;
|
|
&init_config();
|
|
if ($module_info{'usermin'}) {
|
|
&switch_to_remote_user();
|
|
}
|
|
|
|
$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");
|
|
}
|
|
|
|
# show_view_table(heading, html)
|
|
# Prints a block showing the contents of a documentation page
|
|
sub show_view_table
|
|
{
|
|
local ($heading, $html) = @_;
|
|
print &ui_table_start($heading, "width=100%", 2);
|
|
print &ui_table_row(undef, $html, 2);
|
|
print &ui_table_end();
|
|
}
|
|
|
|
1;
|
|
|