1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/usr/local/bin/perl
# rename_form.cgi
# Display server rename form
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
$access{'norename'} && &error($text{'rename_ecannot'});
$access{'edit'} && &can_edit_domain($d) || &error($text{'edit_ecannot'});
&ui_print_header(&domain_in($d), $text{'rename_title'}, "");
print "$text{'rename_desc'}<p>\n";
print "<form action=rename.cgi method=post>\n";
print "<input type=hidden name=dom value='$in{'dom'}'>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'rename_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";
# Old and new domain name
print "<tr> <td><b>$text{'rename_domain'}</b></td>\n";
print "<td><tt>$d->{'dom'}</tt></td> </tr>\n";
print "<tr> <td><b>$text{'rename_new'}</b></td>\n";
printf "<td><input name=new size=30 value='%s'></td> </tr>\n",
$d->{'dom'};
if ($d->{'unix'} && &master_admin()) {
# Rename user option
print "<tr> <td><b>$text{'rename_user'}</b></td> <td>\n";
print "<input type=radio name=user_mode value=0> ",
&text('rename_user0', "<tt>$d->{'user'}</tt>"),"\n";
print "<input type=radio name=user_mode value=1 checked> ",
"$text{'rename_user1'}\n";
print "<input type=radio name=user_mode value=2> ",
"$text{'rename_user2'}\n";
print &unix_user_input("user"),"</td> </tr>\n";
}
if ($d->{'dir'}) {
# Change home dir option
print "<tr> <td><b>$text{'rename_home'}</b></td> <td>\n";
print "<input type=radio name=home_mode value=0> ",
&text('rename_home0', "<tt>$d->{'home'}</tt>"),"\n";
print "<input type=radio name=home_mode value=1 checked> ",
"$text{'rename_home1'}\n";
print "</td> </tr>\n";
}
else {
# Always change home, since there is none!
print "<input type=hidden name=home_mode value=1>\n";
}
print "</table></td></tr></table>\n";
print "<input type=submit value='$text{'rename_ok'}'></form>\n";
&ui_print_footer("edit_domain.cgi?dom=$in{'dom'}", $text{'edit_return'},
"", $text{'index_return'});
|
