/phpini/save_safe.cgi
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
- #!/usr/local/bin/perl
- # Update options related to safe mode
- require './phpini-lib.pl';
- &error_setup($text{'safe_err'});
- &ReadParse();
- &can_php_config($in{'file'}) || &error($text{'list_ecannot'});
- &lock_file($in{'file'});
- $conf = &get_config($in{'file'});
- # Validate and store inputs
- &save_directive($conf, "safe_mode", $in{"safe_mode"} || undef);
- &save_directive($conf, "safe_mode_gid", $in{"safe_mode_gid"} || undef);
- foreach $d ([ "safe_mode_include_dir", "safe_einclude" ],
- [ "safe_mode_exec_dir", "safe_eexec" ],
- [ "open_basedir", "safe_ebasedir" ]) {
- if ($in{$d->[0]."_def"}) {
- &save_directive($conf, $d->[0], undef);
- }
- else {
- foreach my $d (split(/:/, $in{$d->[0]})) {
- -d $d || &error($text{$d->[1]});
- }
- &save_directive($conf, $d->[0], $in{$d->[0]});
- }
- }
- &flush_file_lines_as_user($in{'file'});
- &unlock_file($in{'file'});
- &graceful_apache_restart();
- &webmin_log("safe", undef, $in{'file'});
- &redirect("list_ini.cgi?file=".&urlize($in{'file'}));