webmin/change_startpage.cgi

   1 #!/usr/local/bin/perl
   2 # change_startpage.cgi
   3 # Change startpage settings
   4
   5 require './webmin-lib.pl';
   6 &ReadParse();
   7 &lock_file("$config_directory/config");
   8 if ($in{'nocols_def'}) {
   9         delete($gconfig{'nocols'});
  10         }
  11 else {
  12         $in{'nocols'} =~ /^\d+$/ ||
  13                 &error(&text('startpage_ecols', $in{'nocols'}));
  14         $gconfig{'nocols'} = $in{'nocols'};
  15         }
  16 $gconfig{'notabs'} = $in{'notabs'};
  17 $gconfig{'gotoone'} = $in{'gotoone'};
  18 $gconfig{'deftab'} = $in{'deftab'};
  19 $gconfig{'nohostname'} = $in{'nohostname'};
  20 $gconfig{'gotomodule'} = $in{'gotomodule'};
  21 $gconfig{'nowebminup'} = !$in{'webminup'};
  22 $gconfig{'nomoduleup'} = !$in{'moduleup'};
  23 &write_file("$config_directory/config", \%gconfig);
  24 &unlock_file("$config_directory/config");
  25 &webmin_log("startpage", undef, undef, \%in);
  26 &redirect("");
  27