From 4c3fabf014ba767b2eb3c013d6088aac23edcbdb Mon Sep 17 00:00:00 2001
From: Dominik Meyer <dmeyer@federationhq.de>
Date: Sat, 1 Feb 2025 21:24:38 +0100
Subject: [PATCH] add function to read config from environment var

---
 lib/Qpsmtpd/Config.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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";