rename_form.cgi

#!/usr/local/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($d);
	$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'});