initial commit of file from CVS for smeserver-fetchmail on Sat Sep 7 19:53:47 AEST 2024

This commit is contained in:
Trevor Batley
2024-09-07 19:53:47 +10:00
parent 58cf9b83fd
commit 8fba4dbc1a
59 changed files with 12405 additions and 2 deletions

View File

@@ -0,0 +1,6 @@
{
# vim: ft=perl ts=4 sw=4 et:
if ( ( $FetchMails{ status } || "disabled" ) eq "enabled" ) {
$OUT = "\n127.0.0.200\n" ;
}
}

View File

@@ -0,0 +1,24 @@
{
# vim: ft=perl ts=4 sw=4 et:
if ( ( $FetchMails{ status } || "disabled" ) eq "enabled" ) {
$OUT = "\n# fetchmail groups entries start\n" ;
$OUT .= "# If smeserver-fetchmail creates mailgroup for incoming fetched mails\n" ;
$OUT .= "# we need to accept these groups from outside.\n" ;
my $fetchgroup = 0 ;
my $dom = $DomainName ;
opendir ( DIR, "/var/qmail/alias" ) ;
foreach my $fic ( grep( /^\.qmail-fm_fm-/, readdir DIR) ) {
$fic =~ s/^\.qmail-//;
$fic =~ s/:/./g;
$OUT .= "$fic\@$dom\n";
$fetchgroup = 1;
}
closedir (DIR);
$OUT .= "### No smeserver-fetchmail groups set Now ...\n" if ( ! $fetchgroup ) ;
$OUT .= "# fetchmail groups entries end\n" ;
}
}