import_form.cgi

#!/usr/local/bin/perl
# import_form.cgi
# Display a form for importing an existing mail domain, dns zone, apache
# virtual host and mysql database so that they can be controlled by this module.

require './virtual-server-lib.pl';
&can_import_servers() || &error($text{'import_ecannot'});

&ui_print_header(undef, $text{'import_title'}, "");

print "$text{'import_desc1'}<p>\n";
print "$text{'import_desc2'}<p>\n";
print "$text{'import_desc3'}<p>\n";

# Script to disable some inputs when in parent mode
print <<EOF;
<script>
function pchange(form)
{
dis = form.parent_def[1].checked;
form.user.disabled = dis;
form.user_def[0].disabled = dis;
form.user_def[1].disabled = dis;
form.group.disabled = dis;
form.group_def[0].disabled = dis;
form.group_def[1].disabled = dis;
form.pass.disabled = dis;
form.pass_def[0].disabled = dis;
form.pass_def[1].disabled = dis;
form.webmin[0].disabled = dis;
form.webmin[1].disabled = dis;
form.plan.disabled = dis;
form.db_mysql_user_def[0].disabled = dis;
form.db_mysql_user_def[1].disabled = dis;
form.db_mysql_user.disabled = dis;
}
</script>
EOF
$onch = "onChange='pchange(form)'";

print &ui_form_start("import.cgi", "post");
print &ui_table_start($text{'import_header'}, "width=100%", 2);

# Domain name
print &ui_table_row($text{'import_dom'},
		    &ui_textbox("dom", undef, 40));

# Parent virtual server
@doms = sort { $a->{'user'} cmp $b->{'user'} }
	     grep { $_->{'unix'} } &list_visible_domains();
if (@doms) {
	print &ui_table_row($text{'migrate_parent'},
			    &ui_radio("parent_def", 1,
			      [ [ 1, $text{'migrate_parent1'}, $onch ],
				[ 0, $text{'migrate_parent0'}, $onch ] ])."\n".
			    &ui_select("parent", undef,
				       [ map { [ $_->{'user'} ] } @doms ]));
	}
else {
	print &ui_hidden("parent_def", 1);
	}

print &ui_table_row($text{'import_user'},
    &ui_radio("user_def", 0, [ [ 1, $text{'import_ucr'} ],
			       [ 0, $text{'import_uex'} ] ])."\n".
    &unix_user_input("user"));

# New or existing group
print &ui_table_row($text{'import_group'},
    &ui_radio("group_def", 0, [ [ 1, $text{'import_gdf'} ],
			       [ 0, $text{'import_gex'} ] ])."\n".
    &unix_group_input("group"));

# Pattern for mailbox users
print &ui_table_row($text{'import_regexp'},
	    &ui_opt_textbox("regexp", undef, 20, $text{'import_regexpg'},
						 $text{'import_regexpr'}));

# Home directory
print &ui_table_row($text{'import_home'},
    &ui_opt_textbox("home", undef, 40, $text{'import_auto'}));

# Domain prefix
print &ui_table_row($text{'migrate_prefix'},
	   &ui_opt_textbox("prefix", undef, 20, $text{'migrate_auto'}));

# Password
print &ui_table_row($text{'import_pass'},
	    &ui_opt_textbox("pass", undef, 20, $text{'import_encpass'}));

# Create Webmin user
print &ui_table_row($text{'import_webmin'},
		    &ui_yesno_radio("webmin", 1));

# IP address and virtual options
$defip = &get_default_ip();
print &ui_table_row($text{'import_ip'},
		    &ui_textbox("ip", $defip, 15));
print &ui_table_row($text{'import_hasvirt'},
		    &ui_yesno_radio("virt", 0));

# Default plan
$defplan = &get_default_plan();
print &ui_table_row($text{'form_plan'},
		    &ui_select("plan", $defplan->{'id'},
			[ map { [ $_->{'id'}, $_->{'name'} ] }
			   sort { $a->{'name'} cmp $b->{'name'} }
			     &list_available_plans() ]));

# MySQL database names
if ($config{'mysql'}) {
	print &ui_table_row($text{'import_db_mysql'},
			    &ui_textbox("db_mysql", undef, 40));

	print &ui_table_row($text{'import_db_mysql_user'},
			    &ui_opt_textbox("db_mysql_user", undef, 20,
					    $text{'import_db_mysql_same'}));
	}

# PostgreSQL database names
if ($config{'postgres'}) {
	print &ui_table_row($text{'import_db_postgres'},
			    &ui_textbox("db_postgres", undef, 40));
	}

print &ui_table_end();
print &ui_form_end([ [ "show", $text{'import_show'} ] ]);

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