smecontribs/smeserver-wbl
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for smeserver-wbl on Sat Sep 7 21:14:56 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 21:14:56 +10:00
parent d087a82a37
commit 9cbf3c07cd
54 changed files with 6756 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
root/etc/e-smith/templates/var/qmail/control/badmailfrom/10wbl_badmailfrom Normal file
View File

@@ -0,0 +1,18 @@
{
use esmith::ConfigDB;
my $wdb = esmith::ConfigDB->open_ro('wbl')
|| die "Unable to open wbl configuration dbase.";
my %list = $wdb->get('badmailfrom')->props;
$OUT = '';
my $parameter = "";
my $value = "";
while (($parameter,$value) = each(%list)) {
if ($parameter eq "type") {next;}
if ($value eq "Black") {
$OUT .= "$parameter\n";
}
}
}

18
root/etc/e-smith/templates/var/service/qpsmtpd/config/badhelo/10wbl_badhelo Normal file
View File

@@ -0,0 +1,18 @@
{
use esmith::ConfigDB;
my $wdb = esmith::ConfigDB->open_ro('wbl')
|| die "Unable to open wbl configuration dbase.";
my %list = $wdb->get('badhelo')->props;
$OUT = '';
my $parameter = "";
my $value = "";
while (($parameter,$value) = each(%list)) {
if ($parameter eq "type") {next;}
if ($value eq "Black") {
$OUT .= "$parameter\n";
}
}
}

18
root/etc/e-smith/templates/var/service/qpsmtpd/config/badmailfrom/10wbl_badmailfrom Normal file
View File

@@ -0,0 +1,18 @@
{
use esmith::ConfigDB;
my $wdb = esmith::ConfigDB->open_ro('wbl')
|| die "Unable to open wbl configuration dbase.";
my %list = $wdb->get('badmailfrom')->props;
$OUT = '';
my $parameter = "";
my $value = "";
while (($parameter,$value) = each(%list)) {
if ($parameter eq "type") {next;}
if ($value eq "Black") {
$OUT .= "$parameter\n";
}
}
}

4
root/etc/e-smith/templates/var/service/qpsmtpd/config/plugins/11whitelist Normal file
View File

@@ -0,0 +1,4 @@
{
return ("whitelist") ;
# for SME 8 and after RequireResolvableFromHost key is obsolete and always on
}

18
root/etc/e-smith/templates/var/service/qpsmtpd/config/whitelisthelo/10wbl_whitelisthelo Normal file
View File

@@ -0,0 +1,18 @@
{
use esmith::ConfigDB;
my $wdb = esmith::ConfigDB->open_ro('wbl')
|| die "Unable to open wbl configuration dbase.";
my %list = $wdb->get('whitelisthelo')->props;
$OUT = '';
my $parameter = "";
my $value = "";
while (($parameter,$value) = each(%list)) {
if ($parameter eq "type") {next;}
if ($value eq "White") {
$OUT .= "$parameter\n";
}
}
}

18
root/etc/e-smith/templates/var/service/qpsmtpd/config/whitelisthosts/10wbl_whitelisthosts Normal file
View File

@@ -0,0 +1,18 @@
{
use esmith::ConfigDB;
my $wdb = esmith::ConfigDB->open_ro('wbl')
|| die "Unable to open wbl configuration dbase.";
my %list = $wdb->get('whitelisthosts')->props;
$OUT = '';
my $parameter = "";
my $value = "";
while (($parameter,$value) = each(%list)) {
if ($parameter eq "type") {next;}
if ($value eq "White") {
$OUT .= "$parameter\n";
}
}
}

18
root/etc/e-smith/templates/var/service/qpsmtpd/config/whitelistsenders/10wbl_whitelistsenders Normal file
View File

@@ -0,0 +1,18 @@
{
use esmith::ConfigDB;
my $wdb = esmith::ConfigDB->open_ro('wbl')
|| die "Unable to open wbl configuration dbase.";
my %list = $wdb->get('whitelistsenders')->props;
$OUT = '';
my $parameter = "";
my $value = "";
while (($parameter,$value) = each(%list)) {
if ($parameter eq "type") {next;}
if ($value eq "White") {
$OUT .= "$parameter\n";
}
}
}