cfengine/run_form.cgi

   1 #!/usr/local/bin/perl
   2 # run_form.cgi
   3 # Show options for running cfengine on this host
   4
   5 require './cfengine-lib.pl';
   6 &ReadParse();
   7 &ui_print_header(undef, $text{'run_title'}, "", "run");
   8
   9 print "<p>$text{'run_desc'}<br>\n";
  10
  11 print "<form action=run.cgi>\n";
  12 print "<table border width=100%>\n";
  13 print "<tr $tb> <td><b>$text{'run_header'}</b></td> </tr>\n";
  14 print "<tr $cb> <td><table width=100%>\n";
  15
  16 &show_run_form();
  17
  18 print "</table></td></tr></table>\n";
  19 print "<input type=submit value='$text{'run_ok'}'></form>\n";
  20
  21 &ui_print_footer("", $text{'index_return'});
  22
  23