webmin/change_syslet.cgi

   1 #!/usr/local/bin/perl
   2 # change_syslet.cgi
   3 # Save syslet auto-download options
   4
   5 require './webmin-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'syslet_err'});
   8
   9 &lock_file("$config_directory/config");
  10 @base = split(/\s+/, $in{'syslet_base'});
  11 foreach $b (@base) {
  12         $b =~ /^http:\/\/([A-Za-z0-9\.\-]+)(:\d+)?\/(\S*)/ ||
  13                 &error($text{'syslet_ebase'});
  14         }
  15 $gconfig{'syslet_base'} = join(" ", @base);
  16 &write_file("$config_directory/config", \%gconfig);
  17 &unlock_file("$config_directory/config");
  18
  19 &lock_file($ENV{'MINISERV_CONFIG'});
  20 &get_miniserv_config(\%miniserv);
  21 if ($in{'auto'}) {
  22         $miniserv{'error_handler_404'} = '/eazel_download_module.cgi';
  23         }
  24 elsif ($miniserv{'error_handler_404'} eq '/eazel_download_module.cgi') {
  25         $miniserv{'error_handler_404'} = '';
  26         }
  27 &put_miniserv_config(\%miniserv);
  28 &unlock_file($ENV{'MINISERV_CONFIG'});
  29
  30 &webmin_log("syslet", undef, undef, \%in);
  31 &show_restart_page();
  32
  33