init/save_local.cgi

   1 #!/usr/local/bin/perl
   2 # save_local.cgi
   3 # Save the local startup script
   4
   5 require './init-lib.pl';
   6 $access{'bootup'} == 1 || &error("You are not allowed to edit the bootup script");
   7 &ReadParse();
   8 $in{'local'} =~ s/\r//g;
   9 &lock_file($config{'local_script'});
  10 &open_tempfile(LOCAL, "> $config{'local_script'}");
  11 &print_tempfile(LOCAL, $in{'local'});
  12 &close_tempfile(LOCAL);
  13 &unlock_file($config{'local_script'});
  14 if ($config{'local_down'}) {
  15         $in{'down'} =~ s/\r//g;
  16         &lock_file($config{'local_down'});
  17         &open_tempfile(LOCAL, "> $config{'local_down'}");
  18         &print_tempfile(LOCAL, $in{'down'});
  19         &close_tempfile(LOCAL);
  20         &unlock_file($config{'local_down'});
  21         }
  22 &webmin_log("local", undef, undef, \%in);
  23 &redirect("");
  24