| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,mail,shell_exec,system,proc_open,popen,ini_alter,dl,proc_close,curl_exec,curl_multi_exec,readfile,parse_ini_file,escapeshellarg,escapeshellcmd,show_source,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,mail,php_uname,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/usermin/ |
Upload File : |
#!/usr/bin/perl
# edit_os.cgi
# Operating system config form
require './usermin-lib.pl';
$access{'os'} || &error($text{'acl_ecannot'});
&ui_print_header(undef, $text{'os_title'}, "");
print $text{'os_desc3'},"<br>\n";
print $text{'os_desc2'},"<br>\n";
&get_usermin_config(\%uconfig);
&get_usermin_miniserv_config(\%miniserv);
print &ui_form_start("change_os.cgi", "post");
print &ui_table_start($text{'os_header'}, undef, 2, [ "width=30%" ]);
# OS according to Usermin
$osfile = "$miniserv{'root'}/os_list.txt";
print &ui_table_row($text{'os_usermin'},
&ui_select("type", $uconfig{'real_os_type'},
[ map { [ $_ ] } sort { $a cmp $b } &unique(map { $_->{'realtype'} }
&webmin::list_operating_systems($os_file)) ])." ".
&ui_textbox("version", $uconfig{'real_os_version'}, 10));
# Internal OS code
print &ui_table_row($text{'os_iusermin'},
&ui_select("itype", $uconfig{'os_type'},
[ map { [ $_ ] } sort { $a cmp $b } &unique(map { $_->{'type'} }
&webmin::list_operating_systems($os_file)) ])." ".
&ui_textbox("iversion", $uconfig{'os_version'}, 10));
# Detected OS
%osinfo = &webmin::detect_operating_system($osfile);
if ($osinfo{'real_os_type'}) {
print &ui_table_row(
$text{'os_detect'},
"$osinfo{'real_os_type'} $osinfo{'real_os_version'}\n".
($osinfo{'os_type'} ne $uconfig{'os_type'} ||
$osinfo{'os_version'} ne $uconfig{'os_version'} ?
"<br>".&ui_checkbox("update", 1, $text{'os_update'}) :
""));
}
else {
print &ui_table_row($text{'os_detect'},
"<i>$text{'os_cannot'}</i>");
}
print &ui_table_hr();
# Search path
print &ui_table_row($text{'os_path'},
&ui_textarea("path",
join("\n", split($path_separator, $uconfig{'path'})),
5, 30)."<br>".
&ui_checkbox(
"syspath", 1, $text{'os_syspath'}, !$uconfig{'syspath'}));
# Shared library path
if ($uconfig{'ld_env'}) {
print &ui_table_row($text{'os_ld_path'},
&ui_textarea("ld_path",
join("\n", split($path_separator, $uconfig{'ld_path'})),
5, 30));
}
# Perl search path
print &ui_table_row($text{'os_perllib'},
&ui_textarea("perllib",
join("\n", split(":", $miniserv{'perllib'})), 3, 30));
# Global environment variables
$atable = &ui_columns_start([ $text{'os_name'},
$text{'os_value'} ]);
$i = 0;
foreach $e (keys %miniserv) {
if ($e =~ /^env_(\S+)$/ &&
$1 ne "WEBMIN_CONFIG" && $1 ne "WEBMIN_VAR") {
$atable .= &ui_columns_row([
&ui_textbox("name_$i", $1, 20),
&ui_textbox("value_$i", $miniserv{$e}, 30)
]);
$i++;
}
}
$atable .= &ui_columns_row([ &ui_textbox("name_$i", undef, 20),
&ui_textbox("value_$i", undef, 30) ]);
$atable .= &ui_columns_end();
print &ui_table_row($text{'os_envs'}, $atable);
print &ui_table_end();
print &ui_form_end([ [ "", $text{'save'} ] ]);
&ui_print_footer("", $text{'index_return'});