Support multiline environment variables

This supports reading early config parameters from
environment variables or files.

lib/Qpsmtpd.pm

@@ -59,19 +59,19 @@ sub load_logging {
     return if $LOGGING_LOADED;     # already done
     return if $hooks->{'logging'}; # avoid triggering log activity
 
-    my @plugin_dirs = $self->conf->from_file('plugin_dirs');
+    my @plugin_dirs = $self->conf->early_config('plugin_dirs');
     if (!@plugin_dirs) {
         my ($name) = ($0 =~ m!(.*?)/([^/]+)$!);
         @plugin_dirs = ("$name/plugins");
     }
 
-    my @loggers = $self->conf->from_file('logging');
+    my @loggers = $self->conf->early_config('logging');
     for my $logger (@loggers) {
         $self->_load_plugin($logger, @plugin_dirs);
         $self->log(LOGINFO, "Loaded $logger");
     }
 
-    $TraceLevel = $self->conf->from_file('loglevel');
+    $TraceLevel = $self->conf->early_config('loglevel');
 
     unless (defined($TraceLevel) && $TraceLevel =~ /^\d+$/) {
         $TraceLevel = LOGWARN;    # Default if no loglevel file found.

lib/Qpsmtpd/Config.pm

@@ -27,6 +27,17 @@ sub log {
     warn join(' ', $$, @log) . "\n";
 }
 
+sub early_config {
+    my ($self, $config, $file, $visited) = @_;
+
+    my @config;
+
+    @config = $self->from_environment($config);
+    return wantarray ? @config : $config[0] if @config;
+
+    return $self->from_file($config, $file, $visited);
+}
+
 sub config {
     my ($self, $qp, $c, $type) = @_;
 
@@ -34,6 +45,11 @@ sub config {
 
     # first run the user_config hooks
     my ($rc, @config);
+    
+    @config = $self->from_environment($c);
+
+    return wantarray ? @config : $config[0] if @config;
+
     if (ref $type && UNIVERSAL::can($type, 'address')) {
         ($rc, @config) = $qp->run_hooks_no_respond('user_config', $type, $c);
         if (defined $rc && $rc == OK) {
@@ -127,6 +143,23 @@ sub get_qmail_map {
     return \%h;
 }
 
+
+sub from_environment {
+    my ($self, $config) = @_;
+    return unless $config;
+
+    my $env_name = "QPSMTPD_" . $config;
+    return unless $ENV{$env_name};
+
+    my @config = split "\n", $ENV{$env_name};
+
+    chomp @config;
+    for (@config) { s/^\s+//; s/\s+$//; }    # trim leading/trailing whitespace
+
+
+    return wantarray ? @config : $config[0];
+}
+
 sub from_file {
     my ($self, $config, $file, $visited) = @_;
     $file ||= $self->config_dir($config) . "/$config";