PAL.C.T MINI SHELL
#!/usr/bin/perl
# rename_form.cgi
# Display server rename form
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
&can_edit_domain($d) || &error($text{'edit_ecannot'});
&can_rename_domains() || &error($text{'rename_ecannot'});
&ui_print_header(&domain_in($d), $text{'rename_title'}, "", "rename");
print &ui_form_start("rename.cgi", "post");
print &ui_hidden("dom", $in{'dom'}),"\n";
print &ui_table_start($text{'rename_header'}, "width=100%", 2);
# Old and new domain name
print &ui_table_row($text{'rename_domain'},
"<tt>$d->{'dom'}</tt>");
$dname = &show_domain_name($d);
if ($dname ne $d->{'dom'}) {
print &ui_table_row($text{'rename_xndomain'},
"<tt>$dname</tt>");
}
print &ui_table_row($text{'rename_new'},
&ui_textbox("new", $dname, 40));
if ($d->{'unix'} && &can_rename_domains() == 2) {
# Rename user option
print &ui_table_row($text{'rename_user'},
&ui_radio("user_mode", 0,
[ [ 0, &text('rename_user0',
"<tt>$d->{'user'}</tt>")."<br>" ],
[ 1, $text{'rename_user1'}."<br>" ],
[ 2, $text{'rename_user2'}." ".
&ui_textbox("user", undef, 40) ] ]));
}
# Work out what can be done
$rh = &can_rehome_domains();
$parent = $d->{'parent'} ? &get_domain($d->{'parent'}) : undef;
$newhome = &server_home_directory($d, $parent);
$home_contains_domain = $newhome =~ /\Q$d->{'dom'}\E/ ? 1 : 0;
if (!$rh) {
# Cannot change home at all
print &ui_hidden("home_mode", 0),"\n";
}
elsif ($d->{'dir'}) {
# Change home dir option
if ($rh == 2 || $home_contains_domain) {
# Show leave, automatic and perhaps manual option
print &ui_table_row($text{'rename_home'},
&ui_radio("home_mode", 0,
[ [ 0, &text('rename_home0',
"<tt>$d->{'home'}</tt>")."<br>" ],
[ 1, $text{'rename_home1'}."<br>" ],
$rh == 2 ? ( [ 2, &text('rename_home2',
&ui_textbox("home", undef, 40)) ] ) : ( ),
]));
}
else {
# Since the user cannot select an arbitrary dir and cannot
# change the username, do nothing
print &ui_hidden("home_mode", 0),"\n";
}
}
else {
# Always change home, since there is none!
print &ui_hidden("home_mode", 1),"\n";
}
# Prefix / group rename field
if ($tmpl->{'append_style'} == 6) {
# Prefix isn't really used
$msg = 'group';
$mode = 1;
}
else {
# Actual prefix is in use
$msg = &get_prefix_msg($tmpl);
$msg .= '_group' if (!$d->{'parent'});
@users = &list_domain_users($d, 1, 1, 1, 1);
$mode = @users ? 0 : 1;
}
print &ui_table_row($text{'rename_'.$msg},
&ui_radio("prefix_mode", @users ? 0 : 1,
[ [ 0, &text('rename_prefix0',
"<tt>$d->{'prefix'}</tt>")."<br>" ],
[ 1, $text{'rename_prefix1'}."<br>" ],
[ 2, $text{'rename_prefix2'}." ".
&ui_textbox("prefix", undef, 40) ] ]));
print &ui_table_end();
print &ui_form_end([ [ "ok", $text{'rename_ok'} ] ]);
&ui_print_footer(&domain_footer_link($d),
"", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`