Viewing file:  provision-lib.pl (2.94 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
# Functions for talking to a remote provisioning system
sub list_provision_features
{
return ('dns', 'mysql', 'spam', 'virus');
}
# check_provision_login()
# Validate that the selected provisioning system can be used and has the needed
# features.
sub check_provision_login
{
my ($ok, $msg) = &provision_api_call("list-provision-features", {}, 1);
if (!$ok) {
# Request failed
return $msg;
}
if (ref($msg) ne 'ARRAY') {
return "Invalid response from list-provision-features : $msg";
}
my %feats = map { $_->{'name'}, $_->{'values'} } @$msg;
if ($config{'provision_dns'}) {
# Make sure DNS is supported
$feats{'dns'} || return $text{'provision_ednssupport'};
$feats{'dns'}->{'limit'} || return $text{'provision_ednslimit'};
$feats{'dns'}->{'systems'} || return $text{'provision_ednssystems'};
}
if ($config{'provision_mysql'}) {
# Make sure MySQL logins and DBs are supported
$feats{'mysql'} && $feats{'mysqldb'} ||
return $text{'provision_emysqlsupport'};
$feats{'mysql'}->{'limit'} && $feats{'mysqldb'}->{'limit'} ||
return $text{'provision_emysqllimit'};
$feats{'mysql'}->{'systems'} && $feats{'mysqldb'}->{'systems'} ||
return $text{'provision_emysqlsystems'};
}
if ($config{'provision_virus'}) {
# Make sure remote scanning is possible
&has_command("clamd-stream-client") ||
&has_command("clamdscan") ||
return &text('provision_evirusclient', 'clamd-stream-client');
}
if ($config{'provision_spam'}) {
# Make sure remote filtering is possible
&has_command("spamc") ||
return &text('provision_espamclient', 'spamc');
}
return undef;
}
# provision_api_call(command, &args, multiline)
# Calls an API program on the configured provisioning server, and returns
# a status code (0=failed, 1=success) and either an error message, text output
# or a perl object (in multiline mode).
sub provision_api_call
{
my ($cmd, $args, $multiline) = @_;
my ($out, $err);
my @args;
foreach my $k (keys %$args) {
if (ref($args->{$k})) {
push(@args, map { [ $k, $_ ] } @{$args->{$k}});
}
else {
push(@args, [ $k, $args->{$k} ]);
}
}
&http_download($config{'provision_server'}, $config{'provision_port'},
"/server-manager/remote.cgi?program=".&urlize($cmd).
join("", map { "&".$_->[0]."=".&urlize($_->[1]) } @args).
($multiline ? "&multiline=&perl=" : ""),
\$out, \$err, undef,
$config{'provision_ssl'},
$config{'provision_user'},
$config{'provision_pass'},
60, 0, 1);
if ($err) {
return (0, $err);
}
if ($out =~ /^ERROR:\s+(.*)/ || $out =~ /\nERROR:\s+(.*)/) {
# Command reported failure
return (0, $1);
}
elsif ($out =~ /Exit\s+status:\s+(\d+)/ && $1 != 0) {
# Command failed
return (0, "$cmd failed : $out");
}
if ($multiline) {
# Parse perl format
my $rv = eval $out;
if ($@) {
return (0, "Invalid response format : $@");
}
if ($rv->{'status'} ne 'success') {
return (0, $rv->{'error'} || "$cmd failed");
}
return (1, $rv->{'data'});
}
else {
# Plain text format
return (1, $out);
}
}
1;
|