certmgr/index.cgi

   1 #!/usr/local/bin/perl
   2 # index.cgi
   3 # Upload and load kernel modules
   4
   5 require './certmgr-lib.pl';
   6
   7 if (! -d $config{'ssl_cert_dir'} ) { system("mkdir -p -m 0755 $config{'ssl_cert_dir'}"); }
   8 if (! -d $config{'ssl_csr_dir'} ) { system("mkdir -p -m 0755 $config{'ssl_csr_dir'}"); }
   9 if (! -d $config{'ssl_key_dir'} ) { system("mkdir -p -m 0700 $config{'ssl_key_dir'}"); }
  10
  11 &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
  12
  13 print <<EOF;
  14 <table border>
  15 <tr $tb> <td align=center><b>$text{'index_header'}</b></td> </tr>
  16 <tr $cb> <td><table width=100%><tr>
  17 EOF
  18 foreach $p (@pages) {
  19         next if (!$access{$p});
  20         $txt = $text{'index_'.$p};
  21         print "<tr> <td><a href=$p.cgi><img src=images/$p.gif border=0></a>\n";
  22         print "</td><td><a href=$p.cgi>$txt</a></td></tr>\n";
  23         }
  24 print "</table></td></tr></table>\n";
  25
  26 &ui_print_footer("/", $text{'index_index'});