diff --git a/lib/Qpsmtpd/Config.pm b/lib/Qpsmtpd/Config.pm index 14d96a9..4bf1b2c 100644 --- a/lib/Qpsmtpd/Config.pm +++ b/lib/Qpsmtpd/Config.pm @@ -127,6 +127,20 @@ 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; + push(@config, $ENV{$env_name}); + + + return wantarray ? @config : $config[0]; +} + sub from_file { my ($self, $config, $file, $visited) = @_; $file ||= $self->config_dir($config) . "/$config";