cfengine/edit_cfd.cgi

   1 #!/usr/local/bin/perl
   2 # edit_cfd.cgi
   3 # Display options for the cfengine daemon on this host
   4
   5 require './cfengine-lib.pl';
   6 &ui_print_header(undef, $text{'cfd_title'}, "", "cfd");
   7
   8 if (!&has_command($config{'cfd'})) {
   9         print &text('cfd_ecmd', "<tt>$config{'cfd'}</tt>",
  10                   "$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
  11         &ui_print_footer("/", $text{'index'});
  12         exit;
  13         }
  14
  15 # Display table of daemon options
  16 $conf = &get_cfd_config();
  17 @secs = grep { $_->{'type'} eq 'section' } @$conf;
  18 &show_classes_table(\@secs, 1);
  19
  20 # Allow starting or stopping of cfd
  21 ($pid) = &find_byname("cfd");
  22 print &ui_hr();
  23 print "<table width=100%><tr>\n";
  24 if ($pid) {
  25         print "<form action=stop.cgi>\n";
  26         print "<td><input type=submit value='$text{'cfd_stop'}'></td>\n";
  27         print "<td>$text{'cfd_stopdesc'}</td>\n";
  28         print "</form>\n";
  29         }
  30 else {
  31         print "<form action=start.cgi>\n";
  32         print "<td><input type=submit value='$text{'cfd_start'}'></td>\n";
  33         print "<td>$text{'cfd_startdesc'}</td>\n";
  34         print "</form>\n";
  35         }
  36 print "</tr></table>\n";
  37
  38 &ui_print_footer("", $text{'index_return'});
  39