← Back
Editing: man-lib.pl
# 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"; %access = &get_module_acl(); # 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;
Save File
Cancel