webmin/edit_syslet.cgi

   1 #!/usr/local/bin/perl
   2 # edit_syslet.cgi
   3 # Configure the automatic download and install of Eazel syslets
   4
   5 require './webmin-lib.pl';
   6 &ReadParse();
   7 &ui_print_header(undef, $text{'syslet_title'}, "");
   8
   9 print $text{'syslet_desc'},"<br>\n";
  10 print "<form action=change_syslet.cgi>\n";
  11 print "<table>\n";
  12
  13 &get_miniserv_config(\%miniserv);
  14 $auto = ($miniserv{'error_handler_404'} eq '/eazel_download_module.cgi');
  15 print "<tr> <td><b>$text{'syslet_auto'}</b></td>\n";
  16 printf "<td><input type=radio name=auto value=1 %s> %s\n",
  17         $auto ? 'checked' : '', $text{'yes'};
  18 printf "<input type=radio name=auto value=0 %s> %s</td> </tr>\n",
  19         $auto ? '' : 'checked', $text{'no'};
  20
  21 print "<tr> <td valign=top><b>$text{'syslet_base'}</b></td>\n";
  22 print "<td><textarea name=syslet_base rows=4 cols=40>",
  23         join("\n", split(/\s+/, $gconfig{'syslet_base'})),
  24         "</textarea></td> </tr>\n";
  25
  26 print "</table>\n";
  27 print "<input type=submit value='$text{'save'}'></form>\n";
  28 &ui_print_footer("", $text{'index_return'});
  29