sentry/index.cgi

   1 #!/usr/local/bin/perl
   2 # index.cgi
   3 # Display icons for portsentry, hostsentry and logcheck options
   4
   5 require './sentry-lib.pl';
   6 &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1);
   7
   8 # Find out which programs are installed
   9 if (!&has_command($config{'portsentry'}) &&
  10     !-r $config{'hostsentry'} &&
  11     !&has_command($config{'logcheck'})) {
  12         # None are ..
  13         print "<p>",&text('index_ecommands',
  14                           "<tt>$config{'portsentry'}</tt>",
  15                           "<tt>$config{'hostsentry'}</tt>",
  16                           "<tt>$config{'logcheck'}</tt>",
  17                           "$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
  18         }
  19 else {
  20         # Show icons
  21         @links = ( "edit_portsentry.cgi", "edit_hostsentry.cgi",
  22                    "edit_logcheck.cgi" );
  23         @titles = ( "$text{'portsentry_title'}<br>$text{'portsentry_below'}",
  24                     "$text{'hostsentry_title'}<br>$text{'hostsentry_below'}",
  25                     "$text{'logcheck_title'}<br>$text{'logcheck_below'}" );
  26         @icons = ( "images/portsentry.gif", "images/hostsentry.gif",
  27                    "images/logcheck.gif" );
  28         &icons_table(\@links, \@titles, \@icons);
  29         }
  30
  31 &ui_print_footer("/", $text{'index'});
  32