Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
51 lines (36 sloc) 1.26 KB
#!perl -w
=head1 NAME
http_config
=head1 DESCRIPTION
Example config plugin. Gets configuration data via http requests.
=head1 CONFIG
http_config is configured at plugin loading time via the plugins
config. Load the plugin with a list of urls like the following (on one line)
http_config http://localhost/~smtpd/config/ http://www.example.com/cgi-bin/qp?config=
Looking to config "me", qpsmtpd will try loading
http://localhost/~smtpd/config/me and if failing that try
http://www.example.com/cgi-bin/qp?config=me
=head1 BUGS
http_config doesn't do any caching. It should do some simple caching
to be used in production.
=cut
use LWP::Simple qw(get);
my @urls;
sub register {
my ($self, $qp, @args) = @_;
@urls = @args;
}
sub hook_config {
my ($self, $transaction, $config) = @_;
$self->log(LOGNOTICE, "http_config called with $config");
for my $url (@urls) {
$self->log(LOGDEBUG, "http_config loading from $url");
my @config = split /[\r\n]+/, (get "$url$config" || "");
chomp @config;
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/ } @config;
close CF;
# $self->log(LOGNOTICE, "returning http_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
return (OK, @config) if @config;
}
return DECLINED;
}
Something went wrong with that request. Please try again.