forked from virtualmin/virtualmin-gpl
-
Notifications
You must be signed in to change notification settings - Fork 0
/
create-shared-address.pl
executable file
·123 lines (108 loc) · 3.34 KB
/
create-shared-address.pl
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
#!/usr/local/bin/perl
=head1 create-shared-address.pl
Adds an IP address for use by multiple virtual servers
This command can be used to make an existing IP address on your system available
for multiple virtual servers. You must supply the C<--ip> flag, followed by
the address of an interface that is already active.
Alternately, it can select and activate a free IP address with the
C<--allocate-ip> and C<--activate> flags. However, you must first have defined
an allocation range in the Virtual IP Addresses section of the default server
template.
=cut
package virtual_server;
if (!$module_name) {
$main::no_acl_check++;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
if ($0 =~ /^(.*)\/[^\/]+$/) {
chdir($pwd = $1);
}
else {
chop($pwd = `pwd`);
}
$0 = "$pwd/create-shared-address.pl";
require './virtual-server-lib.pl';
$< == 0 || die "create-shared-address.pl must be run as root";
}
@OLDARGV = @ARGV;
# Parse command-line args
$owner = 1;
while(@ARGV > 0) {
local $a = shift(@ARGV);
if ($a eq "--ip") {
$ip = shift(@ARGV);
}
elsif ($a eq "--allocate-ip") {
$ip = "allocate";
}
elsif ($a eq "--activate") {
$activate = 1;
}
elsif ($a eq "--multiline") {
$multiline = 1;
}
elsif ($a eq "--help") {
&usage();
}
else {
&usage("Unknown parameter $a");
}
}
# Validate inputs
$ip || &usage("Either the --ip or --allocate-ip flag must be given");
$ip eq "allocate" || &check_ipaddress($ip) ||
&usage("The --ip flag must be followed by a valid address");
if ($ip eq "allocate" && !$activate) {
&usage("The --allocate-ip flag can only be used when --activate is");
}
# Get all existing shared IPs
@ips = ( &get_default_ip(), &list_shared_ips() );
if (defined(&list_resellers)) {
push(@ips, map { $r->{'acl'}->{'defip'} } &list_resellers());
}
if ($ip ne "allocate") {
&indexof($ip, @ips) < 0 ||
&usage("IP address $ip is already a shared address");
$clash = &get_domain_by("ip", $ip);
$clash && &usage("The virtual server $clash->{'dom'} is already using ".
"address $ip");
}
# Try to allocate the IP if required
if ($ip eq "allocate") {
$tmpl = &get_template(&get_init_template(0));
$tmpl->{'ranges'} || &usage("The --allocate-ip flag cannot be used ".
"unless IP allocation ranges are configured");
($ip, $netmask) = &free_ip_address($tmpl);
$ip || &usage("Failed to find a free IP address in ".
"range $tmpl->{'ranges'}");
&indexof($ip, @ips) < 0 ||
&usage("Allocated IP address $ip is already a shared address");
}
# Activate if required, otherwise ensure it is on the system
if ($activate) {
&obtain_lock_virt();
$err = &activate_shared_ip($ip, $netmask);
&usage("Activation failed : $err") if ($err);
&release_lock_virt();
}
else {
%active = map { $_, 1 } &active_ip_addresses();
$active{$ip} || &usage("IP address $ip does not exist on this system");
}
# Add to shared list
@oldips = &list_shared_ips();
&lock_file($module_config_file);
&save_shared_ips(@oldips, $ip);
&unlock_file($module_config_file);
print "Created shared IP address $ip\n";
&run_post_actions_silently();
&virtualmin_api_log(\@OLDARGV);
sub usage
{
print "$_[0]\n\n" if ($_[0]);
print "Adds a new IP address for use by multiple virtual servers.\n";
print "\n";
print "virtualmin create-shared-address --ip address | --allocate-ip\n";
print " [--activate]\n";
exit(1);
}