PageRenderTime 23ms CodeModel.GetById 19ms RepoModel.GetById 0ms app.codeStats 0ms

/phpini/save_safe.cgi

http://github.com/webmin/webmin
Perl | 36 lines | 26 code | 7 blank | 3 comment | 6 complexity | c280a711f65329605061ec07ad726084 MD5 | raw file
Possible License(s): BSD-3-Clause, GPL-3.0, CC-BY-SA-3.0 
    

  1. #!/usr/local/bin/perl
    2. 

  2. # Update options related to safe mode
    3. 

  3. 

  4. require './phpini-lib.pl';
    5. 

  5. &error_setup($text{'safe_err'});
    6. 

  6. &ReadParse();
    7. 

  7. &can_php_config($in{'file'}) || &error($text{'list_ecannot'});
    8. 

  8. 

  9. &lock_file($in{'file'});
    10. 

  10. $conf = &get_config($in{'file'});
    11. 

  11. 

  12. # Validate and store inputs
    13. 

  13. &save_directive($conf, "safe_mode", $in{"safe_mode"} || undef);
    14. 

  14. &save_directive($conf, "safe_mode_gid", $in{"safe_mode_gid"} || undef);
    15. 

  15. 

  16. foreach $d ([ "safe_mode_include_dir", "safe_einclude" ],
    17. 

  17. 	    [ "safe_mode_exec_dir", "safe_eexec" ],
    18. 

  18. 	    [ "open_basedir", "safe_ebasedir" ]) {
    19. 

  19. 	if ($in{$d->[0]."_def"}) {
    20. 

  20. 		&save_directive($conf, $d->[0], undef);
    21. 

  21. 		}
    22. 

  22. 	else {
    23. 

  23. 		foreach my $d (split(/:/, $in{$d->[0]})) {
    24. 

  24. 			-d $d || &error($text{$d->[1]});
    25. 

  25. 			}
    26. 

  26. 		&save_directive($conf, $d->[0], $in{$d->[0]});
    27. 

  27. 		}
    28. 

  28. 	}
    29. 

  29. 

  30. &flush_file_lines_as_user($in{'file'});
    31. 

  31. &unlock_file($in{'file'});
    32. 

  32. &graceful_apache_restart();
    33. 

  33. &webmin_log("safe", undef, $in{'file'});
    34. 

  34. 

  35. &redirect("list_ini.cgi?file=".&urlize($in{'file'}));
    36. 

  36. 

  37.