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

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

39
root/etc/e-smith/events/actions/conf-fetchmail-group-files Normal file
View File

@@ -0,0 +1,39 @@
#!/usr/bin/perl -w
#----------------------------------------------------------------------
# copyright (C) 1999, 2000 e-smith, inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# Technical support for this program is available from e-smith, inc.
# Please visit our web site www.e-smith.com for details.
#----------------------------------------------------------------------
package esmith;
use strict;
use Errno;
use esmith::templates;
# Now regenerate the goodrcpttoo list (can be done only at the end of the process)
esmith::templates::processTemplate (
{
TEMPLATE_PATH => "/var/service/qpsmtpd/config/goodrcptto",
PERMS => 0644,
UID => "root",
GID => "root",
} );
exit (0);

79
root/etc/e-smith/events/actions/fetchmail-email-group-adjust Executable file
View File

@@ -0,0 +1,79 @@
#!/usr/bin/perl -w
# vim: ft=perl ts=4 sw=4 et:
use strict ;
use esmith::util;
use esmith::ConfigDB ;
use esmith::AccountsDB ;
my $db = esmith::ConfigDB->open_ro
or die "Can't open the Config database : $!\n" ;
my $accountdb = esmith::AccountsDB->open_ro
or die "Can't open the Account database : $!\n" ;
my @users ;
my $fetchmail = $db->get('FetchMails') ;
my $FMStatus = 'disabled' ;
if ( defined $fetchmail ) {
$FMStatus = $fetchmail->prop('status') || 'disabled' ;
}
# print "$FMStatus\n" ;
# as of version 1.3.4-04, the offending fm% prefix becomes fm_fm-
# PS Apr 30, 2005
# no need to have any .qmail-fm% or .qmail-fm_fm- files
# it's better to suppress all aliases files, in case of
# a user deletion.
# The whole file are recreated after anyway.
opendir ( DIR, "/var/qmail/alias" ) ;
foreach my $fic ( grep( /^.qmail-(fm%|fm_fm-)/, readdir DIR) ) {
unlink "/var/qmail/alias/$fic" ;
}
closedir ( DIR ) ;
if ( $FMStatus eq 'enabled' ) {
my @users = $accountdb->get('admin');
push @users, $accountdb->users();
foreach my $u ( @users ) {
# print $u->key ;
my $MailCopyTo = '' ;
$MailCopyTo = $u->prop( 'FM-MailCopyTo' ) if ( defined $u->prop( 'FM-MailCopyTo' ) ) ;
my $TransName = '' ;
if ( defined $u->prop( 'FM-TransName' ) ) {
$TransName = $u->prop( 'FM-TransName' ) ;
}
if ( $TransName ne '' ) {
$TransName =~ s/\s//g ;
$TransName =~ s/:/,/g ;
if ( $MailCopyTo eq '' ) { $MailCopyTo = $TransName }
else { $MailCopyTo = $MailCopyTo . "," . $TransName }
}
# print "$MailCopyTo\n" ;
if ( $MailCopyTo ne '' ) {
# add the local account only if the account is not a Ghost account
if ( ( $u->prop( 'FM-Ghost' ) || 'NO' ) ne 'YES' ) {
$MailCopyTo = $u->key . "," . $MailCopyTo ;
}
my $Group = "fm_fm-" . $u->key ;
# PS Oct 25, 2006 : in SME 7, names can contain dot. But Qmail doesn't like dots
# in group filename.
# borrowed in /etc/e-smith/events/actions/qmail-update-group :
# $groupName =~ s/\./:/g;
$Group =~ s/\./:/g;
esmith::util::processTemplate(
{
CONFREF =>
{
Members => $MailCopyTo,
},
TEMPLATE_PATH =>
"/var/qmail/alias/.qmail-group",
OUTPUT_FILENAME => "/var/qmail/alias/.qmail-$Group",
}
);
}
}
}

39
root/etc/e-smith/events/actions/user-update-fetchmail Executable file
View File

@@ -0,0 +1,39 @@
#!/usr/bin/perl -w
#----------------------------------------------------------------------
# copyright (C) 1999, 2000 e-smith, inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# Technical support for this program is available from e-smith, inc.
# Please visit our web site www.e-smith.com for details.
#----------------------------------------------------------------------
package esmith;
use strict;
use Errno;
use esmith::templates;
# Now regenerate fetchmail
esmith::templates::processTemplate (
{
TEMPLATE_PATH => "/etc/fetchmail",
PERMS => 0755,
UID => "root",
GID => "root",
} );
exit (0);