Viewing file:  save_balancer.cgi (2.18 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Create, update or delete a proxy balancer
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
&can_edit_domain($d) && &can_edit_forward() ||
&error($text{'balancers_ecannot'});
$has = &has_proxy_balancer($d);
$has || &error($text{'balancers_esupport'});
&error_setup($text{'balancer_err'});
if (!$in{'new'}) {
($b) = grep { $_->{'path'} eq $in{'old'} } &list_proxy_balancers($d);
$b || &error($text{'balancer_egone'});
$oldb = { %$b };
}
&obtain_lock_web($d);
if ($in{'delete'}) {
# Just delete it
$err = &delete_proxy_balancer($d, $b);
&error($err) if ($err);
}
else {
# Validate inputs
$in{'path'} =~ /^\/\S*$/ || &error($text{'balancer_epath'});
if ($in{'new'}) {
if ($has == 1) {
# Doesn't support balancers
$b = { };
}
elsif ($in{'none'}) {
# In no-proxy mode, we don't need balancing
$b = { };
}
elsif ($in{'balancer_def'}) {
# Choose name automatically
$in{'path'} =~ /^\/(\S*)$/;
$b = { 'balancer' => $1 || "root" };
}
else {
# Use entered name
$in{'balancer'} =~ /^[a-z0-9\_]+$/i ||
&error($text{'balancer_ebalancer'});
$b = { 'balancer' => $in{'balancer'} };
}
}
$b->{'path'} = $in{'path'};
if ($in{'none'}) {
# Not proxying anywhere
$b->{'none'} = 1;
}
elsif ($in{'new'} && $has == 2 || !$in{'new'} && $b->{'balancer'}) {
# Many URLs
@urls = grep { /\S/ } split(/\r?\n/, $in{'urls'});
foreach my $u (@urls) {
$u =~ /^(http|https):\/\/(\S+)$/ ||
&error(&text('balancer_eurl', $u));
}
@urls || &error($text{'balancer_eurls'});
$b->{'urls'} = \@urls;
$b->{'none'} = 0;
}
else {
# One URL
$in{'urls'} =~ /^(http|https):\/\/(\S+)$/ ||
&error($text{'balancer_eurl2'});
$b->{'urls'} = [ $in{'urls'} ];
$b->{'none'} = 0;
}
# Create or update
if ($in{'new'}) {
$err = &create_proxy_balancer($d, $b);
}
else {
$err = &modify_proxy_balancer($d, $b, $oldb);
}
&error($err) if ($err);
}
# Restart Apache and log
&release_lock_web($d);
&set_all_null_print();
&run_post_actions();
&webmin_log($in{'new'} ? 'create' : $in{'delete'} ? 'delete' : 'modify',
"balancer", $b->{'path'}, { 'dom' => $d->{'dom'} });
&redirect("list_balancers.cgi?dom=$in{'dom'}");
|