PAL.C.T MINI SHELL
#!/usr/bin/perl
# Migrate some virtual server backup file
require './virtual-server-lib.pl';
&can_migrate_servers() || &error($text{'migrate_ecannot'});
&error_setup($text{'migrate_err'});
&ReadParseMime();
&require_migration();
# Parse source file input
$src = &parse_backup_destination("src", \%in, 0, undef);
($mode) = &parse_backup_url($src);
if ($mode == 0) {
-r $src || &error($text{'migrate_efile'});
}
# Validate other inputs
if ($in{'dom_def'}) {
$domain = undef;
}
else {
$in{'dom'} = lc(&parse_domain_name($in{'dom'}));
$err = &valid_domain_name($in{'dom'});
&error($err) if ($err);
$domain = $in{'dom'};
}
if (!$in{'user_def'}) {
$in{'user'} =~ /^[a-z0-9\.\-\_]+$/i || &error($text{'migrate_euser'});
$user = $in{'user'};
defined(getpwnam($in{'user'})) && &error($text{'migrate_euserclash'});
}
if (!$in{'pass_def'}) {
$pass = $in{'pass'};
}
$tmpl = &get_template($in{'template'});
if (!$in{'parent_def'}) {
$parent = &get_domain_by("user", $in{'parent'}, "parent", "");
}
if ($parent && !$tmpl->{'for_sub'}) {
&error($text{'migrate_etmplsub'});
}
elsif (!$parent && !$tmpl->{'for_parent'}) {
&error($text{'migrate_etmplparent'});
}
$ipinfo = { };
($ipinfo->{'ip'}, $ipinfo->{'virt'}, $ipinfo->{'virtalready'}, $ipinfo->{'netmask'}) =
&parse_virtual_ip($tmpl, $parent ? $parent->{'reseller'} :
&reseller_admin() ? $base_remote_user : undef);
if (&supports_ip6()) {
($ipinfo->{'ip6'}, $ipinfo->{'virt6'}, $ipinfo->{'virtalready6'},
$ipinfo->{'netmask6'}) =
&parse_virtual_ip6($tmpl, $parent ? $parent->{'reseller'} :
&reseller_admin() ? $base_remote_user : undef);
}
if (!$in{'prefix_def'}) {
$in{'prefix'} =~ /^[a-z0-9\.\-]+$/i ||
&error($text{'setup_eprefix'});
$prefix = $in{'prefix'};
}
$in{'email_def'} || $in{'email'} =~ /\S/ || &error($text{'setup_eemail'});
&ui_print_unbuffered_header(undef, $text{'migrate_title'}, "");
# Download the file
$oldsrc = $src;
$nice = &nice_backup_url($oldsrc);
if ($mode == 5) {
# Uploaded data .. save to temp file
$src = &transname();
&open_tempfile(SRC, ">$src", 0, 1);
&print_tempfile(SRC, $in{'src_upload'});
&close_tempfile(SRC);
}
elsif ($mode > 0) {
# Fetch from some server
&$first_print(&text('migrate_downloading', $nice));
$temp = &transname();
$err = &download_backup($src, $temp);
if ($err) {
&$second_print(&text('migrate_edownload', $err));
goto DONE;
}
$src = $temp;
@st = stat($src);
&$second_print(&text('migrate_downloaded', &nice_size($st[7])));
}
# Validate the file
&$first_print($text{'migrate_validating'});
$vfunc = "migration_$in{'type'}_validate";
($err, $domain, $user, $pass) =
&$vfunc($src, $domain, $user, $parent, $prefix, $pass);
if ($err) {
&$second_print(&text('migrate_evalidate', $err));
goto DONE;
}
elsif (&domain_name_clash($domain)) {
&$second_print($text{'migrate_eclash'});
goto DONE;
}
&$second_print($text{'setup_done'});
# Call the migration function
&lock_domain_name($domain);
&$first_print(&text('migrate_doing1', "<tt>$domain</tt>", $nice));
&$indent_print();
$mfunc = "migration_$in{'type'}_migrate";
@doms = &$mfunc($src, $domain, $user, $in{'webmin'}, $in{'template'},
$ipinfo, $pass, $parent, $prefix,
$in{'email_def'} ? undef : $in{'email'});
&run_post_actions();
&$outdent_print();
# Fix htaccess files
foreach my $d (@doms) {
&fix_script_htaccess_files($d, &public_html_dir($d));
}
if (@doms) {
$d = $doms[0];
&$second_print(&text('migrate_ok', "edit_domain.cgi?dom=$d->{'id'}", scalar(@doms)));
# Call any theme post command
if (defined(&theme_post_save_domain)) {
&theme_post_save_domain(\%dom, 'create');
}
}
else {
&$second_print(&text('migrate_failed'));
}
DONE:
&ui_print_footer("", $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`