syslog-ng/index.cgi

   1 #!/usr/local/bin/perl
   2 # Show icons for syslog-ng destinations, filters, logs and options
   3
   4 require './syslog-ng-lib.pl';
   5
   6 # Make sure it is installed
   7 $ver = &get_syslog_ng_version();
   8 if (!$ver) {
   9         &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
  10         &ui_print_endpage(&text('index_eprog', "<tt>$config{'syslogng_cmd'}</tt>", "../config.cgi?$module_name"));
  11         }
  12 if (!-r $config{'syslogng_conf'} && -r $config{'alt_syslogng_conf'}) {
  13         # Copy original template config file
  14         &copy_source_dest($config{'alt_syslogng_conf'},
  15                           $config{'syslogng_conf'});
  16         }
  17 if (!-r $config{'syslogng_conf'}) {
  18         &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
  19         &ui_print_endpage(&text('index_econf', "<tt>$config{'syslogng_conf'}</tt>", "../config.cgi?$module_name"));
  20         }
  21
  22 &ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, 0,
  23                  &help_search_link("syslog-ng", "man", "doc", "google"),
  24                  undef, undef, &text('index_version', $ver));
  25
  26 # Show category icons
  27 @pages = ( "options", "sources", "destinations", "filters", "logs" );
  28 @links = map { "list_${_}.cgi" } @pages;
  29 @titles = map { $text{$_."_title"} } @pages;
  30 @icons = map { "images/${_}.gif" } @pages;
  31 &icons_table(\@links, \@titles, \@icons, 5);
  32
  33 # Show start/stop buttons
  34 print &ui_hr();
  35 print &ui_buttons_start();
  36 if (&is_syslog_ng_running()) {
  37         print &ui_buttons_row("apply.cgi", $text{'index_apply'},
  38                               $text{'index_applydesc'});
  39         print &ui_buttons_row("stop.cgi", $text{'index_stop'},
  40                               $text{'index_stopdesc'});
  41         }
  42 else {
  43         print &ui_buttons_row("start.cgi", $text{'index_start'},
  44                               $text{'index_startdesc'});
  45         }
  46 print &ui_buttons_end();
  47
  48 &ui_print_footer("/", $text{'index'});
  49