mirror of
https://github.com/webmin/webmin.git
synced 2026-02-16 11:42:15 +00:00
21 lines
753 B
Perl
Executable File
21 lines
753 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# index.cgi
|
|
# Upload and load kernel modules
|
|
|
|
require './certmgr-lib.pl';
|
|
|
|
if (! -d $config{'ssl_cert_dir'} ) { system("mkdir -p -m 0755 $config{'ssl_cert_dir'}"); }
|
|
if (! -d $config{'ssl_csr_dir'} ) { system("mkdir -p -m 0755 $config{'ssl_csr_dir'}"); }
|
|
if (! -d $config{'ssl_key_dir'} ) { system("mkdir -p -m 0700 $config{'ssl_key_dir'}"); }
|
|
|
|
&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
|
|
print &ui_table_start($text{'index_header'}, undef, 2);
|
|
foreach $p (@pages) {
|
|
next if (!$access{$p});
|
|
$txt = $text{'index_'.$p};
|
|
print &ui_columns_row(["<a href=$p.cgi><img src=images/$p.gif border=0></a>", "<a href=$p.cgi>$txt</a>"]);
|
|
}
|
|
print ui_table_end();
|
|
|
|
&ui_print_footer("/", $text{'index_index'});
|