Viewing file:  transfer_form.cgi (3.66 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Display server transfer form
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
$d || &error($text{'edit_egone'});
&can_transfer_domain($d) || &error($text{'transfer_ecannot'});
&ui_print_header(&domain_in($d), $text{'transfer_title'}, "", "transfer");
# Check first for high TTL
if ($d->{'dns'}) {
my ($recs, $file) = &get_domain_dns_records_and_file($d);
my ($oldttl) = grep { $_->{'defttl'} } @$recs;
my $maxttl = $oldttl ? $oldttl->{'defttl'} : 0;
foreach my $r (@$recs) {
if ($r->{'type'} eq 'SOA' && !$maxttl) {
# Default comes from SOA record
$maxttl = $r->{'values'}->[6];
}
if (!&is_dnssec_record($r) && $r->{'ttl'} &&
&ttl_to_seconds($r->{'ttl'}) > &ttl_to_seconds($maxttl)) {
$maxttl = $r->{'ttl'};
}
}
if (&ttl_to_seconds($maxttl) > 60) {
# TTL is too high
print &ui_alert_box(&text('transfer_ttlerror',
&nice_hour_mins_secs(&ttl_to_seconds($maxttl))), 'warn');
print &ui_form_start("fixttl.cgi");
print &ui_hidden("dom", $in{'dom'});
print &ui_hidden("oldttl", &ttl_to_seconds($maxttl));
print &ui_submit($text{'transfer_fixttl'})," ",
&ui_textbox("newttl", 60, 5)." ".$text{'transfer_secs'};
print &ui_form_end();
print &ui_hr();
}
elsif ($d->{'ttl_change_time'} &&
time() - $d->{'ttl_change_time'} < $d->{'ttl_change_from'}) {
# TTL was only just changed
print &ui_alert_box(&text('transfer_recent',
&nice_hour_mins_secs($d->{'ttl_change_from'}),
&nice_hour_mins_secs(time() - $d->{'ttl_change_time'})), 'warn');
}
}
print &ui_form_start("transfer.cgi");
print &ui_hidden("dom", $d->{'id'}),"\n";
print &ui_table_start($text{'transfer_header'}, undef, 2);
# Domain being transferred
my @subs = ( &get_domain_by("parent", $d->{'id'}),
&get_domain_by("alias", $d->{'id'}) );
print &ui_table_row($text{'transfer_dom'},
"<tt>".&show_domain_name($d)."</tt>".
(@subs ? " ($text{'transfer_subs'})" : ""));
# Destination system
my @hosts = &get_transfer_hosts();
my $hfield = &ui_textbox("host", undef, 40, 0, undef,
"autocomplete=off placeholder='example.com:22'")." ".
&ui_select("proto", "ssh",
[ [ "ssh", $text{'transfer_ssh'} ],
[ "webmin", $text{'transfer_webmin'} ] ])." ".
&ui_checkbox("savehost", 1, $text{'transfer_savehost'}, 0);
if (@hosts) {
my @opts = map { [ $_->[0], $_->[0]." (".$text{'transfer_'.($_->[2] || 'ssh')}.")" ] } @hosts;
print &ui_table_row($text{'transfer_host'},
&ui_radio_table("host_mode", 1,
[ [ 1, $text{'transfer_host1'},
&ui_select("oldhost", $hosts[0]->[0], \@opts) ],
[ 0, $text{'transfer_host0'},
$hfield ] ]));
}
else {
# No saved hosts yet
print &ui_table_row($text{'transfer_host'}, $hfield);
}
# Root login
print &ui_table_row($text{'transfer_user'},
&ui_textbox("hostuser", "root", 20));
# Root password
print &ui_table_row($text{'transfer_pass'},
&ui_password("hostpass", undef, 20)." ".
$text{'transfer_passdef'});
# Delete from source
print &ui_table_row($text{'transfer_delete'},
&ui_radio("delete", 0, [ [ 2, $text{'transfer_delete2'} ],
[ 1, $text{'transfer_delete1'} ],
[ 0, $text{'transfer_delete0'} ] ]));
# Over-write when restoring?
print &ui_table_row($text{'transfer_overwrite'},
&ui_yesno_radio("overwrite", 0));
# Replication mode?
print &ui_table_row($text{'transfer_replication'},
&ui_yesno_radio("replication",
&list_remote_domain_features($d) ? 1 :0));
# Show full transfer output?
print &ui_table_row($text{'transfer_output'},
&ui_yesno_radio("output", 0));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'transfer_ok'} ] ]);
&ui_print_footer(&domain_footer_link($d),
"", $text{'index_return'});
|