MINI SHELL

#!/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($webmin::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(
	        $webmin::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, $webmin::text{'os_update'}) :
                 ""));
	}
else {
	print &ui_table_row($text{'os_detect'},
	                    "<i>$webmin::text{'os_cannot'}</i>");
	}
print &ui_table_hr();

# Search path
print &ui_table_row($webmin::text{'os_path'},
	&ui_textarea("path",
	  join("\n", split($path_separator, $uconfig{'path'})),
	  5, 30)."<br>".
	&ui_checkbox(
	  "syspath", 1, $webmin::text{'os_syspath'}, !$uconfig{'syspath'}));

# Shared library path
if ($uconfig{'ld_env'}) {
	print &ui_table_row($webmin::text{'os_ld_path'},
	        &ui_textarea("ld_path",
	          join("\n", split($path_separator, $uconfig{'ld_path'})),
	          5, 30));
        }

# Global environment variables
&get_miniserv_config(\%miniserv);
$atable = &ui_columns_start([ $webmin::text{'os_name'},
                              $webmin::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($webmin::text{'os_envs'}, $atable);

print &ui_table_end();
print &ui_form_end([ [ "", $webmin::text{'save'} ] ]);

&ui_print_footer("", $text{'index_return'});