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

initial commit of file from CVS for smeserver-mailman on Sat Sep 7 19:55:48 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 19:55:48 +10:00
parent b4cf41e403
commit aeebf1b0da
64 changed files with 2941 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
root/etc/e-smith/events/actions/mailman-addlist Executable file
View File

@@ -0,0 +1,71 @@
#!/usr/bin/perl -w
#----------------------------------------------------------------------
# copyright (C) 2000-2001 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.
# For details, please visit our web site at www.e-smith.com or
# call us on 1 888 ESMITH 1 (US/Canada toll free) or +1 613 564 8000
#----------------------------------------------------------------------
package esmith;
use strict;
use Errno;
use esmith::config;
use esmith::util;
use esmith::db;
my %conf;
tie %conf, 'esmith::config';
my %accounts;
tie %accounts, 'esmith::config', '/home/e-smith/db/accounts';
my $listName = $ARGV [1];
my $domain = $ARGV [2];
die "Listname argument missing." unless defined ($listName);
$domain = db_get(\%conf, "DomainName") unless defined ($domain);
my $listStatus = db_get_type(\%accounts, $listName);
die "$listName already exists and is not a mailman mailing list.\n" if ($listStatus && $listStatus ne "mailmanlist");
db_set(\%accounts, $listName, "mailmanlist", { Domain => "$domain" });
my $cookedListName = $listName;
$cookedListName =~ s/\./:/g;
my $alias = "/usr/lib/mailman/aliases/.qmail-$listName";
my %queues = ("", "post",
"-admin", "admin",
"-bounces", "bounces",
"-confirm", "confirm",
"-join", "join",
"-leave", "leave",
"-owner", "owner",
"-request", "request",
"-subscribe", "subscribe",
"-unsubscribe", "unsubscribe");
umask(002);
while(my ($tail,$que) = each(%queues))
{
open(ALIAS, "> $alias$tail") or die "Cannot open $alias. $!\n";
print ALIAS "| /var/qmail/bin/preline /usr/lib/mailman/mail/mailman $que $listName\n";
close ALIAS or die "Cannot close $alias. $!\n";
chown(41,41,"$alias$tail");
}

57
root/etc/e-smith/events/actions/mailman-restart Normal file
View File

@@ -0,0 +1,57 @@
#!/usr/bin/perl
#----------------------------------------------------------------------
# $Id: tug-restart,v 1.23 2003/06/25 14:04:54 msoulier Exp $
#----------------------------------------------------------------------
# copyright (C) 1999-2003 Mitel Networks Corporation
#----------------------------------------------------------------------
package esmith;
use strict;
use warnings;
use esmith::ConfigDB;
use esmith::util;
use constant TRUE => 1;
use constant FALSE => 0;
my $init = '/etc/init.d/mailman';
my $action;
my $db = esmith::ConfigDB->open_ro
or die "Failed to open configuration database.\n";
my $status = $db->get_prop('mailman', 'status') || 'disabled';
if ($status eq 'enabled')
{
$action = 'start';
$action = 'restart' if is_running();
}
else
{
$action = '';
$action = 'stop' if is_running();
}
if ($action)
{
esmith::util::serviceControl(
NAME => 'mailman',
ACTION => $action,
BACKGROUND => 'true'
) or die "Failed to $action mailman\n";
}
exit 0;
sub is_running
{
chomp( my $output = `$init status` );
if ($output =~ /is running/)
{
return TRUE;
}
return FALSE;
}

62
root/etc/e-smith/events/actions/mailman-rmlist Executable file
View File

@@ -0,0 +1,62 @@
#!/usr/bin/perl -w
#----------------------------------------------------------------------
# copyright (C) 2000-2001 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.
# For details, please visit our web site at www.e-smith.com or
# call us on 1 888 ESMITH 1 (US/Canada toll free) or +1 613 564 8000
#----------------------------------------------------------------------
package esmith;
use strict;
use Errno;
use esmith::config;
use esmith::util;
use esmith::db;
my %conf;
tie %conf, 'esmith::config';
my %accounts;
tie %accounts, 'esmith::config', '/home/e-smith/db/accounts';
my $listName = $ARGV [1];
die "Listname argument missing." unless defined ($listName);
my $listStatus = db_get_type(\%accounts, $listName);
db_delete(\%accounts, $listName) if ($listStatus && $listStatus eq "mailmanlist");
my $alias = "/usr/lib/mailman/aliases/.qmail-$listName";
my %queues = ("", "post",
"-admin", "admin",
"-bounces", "bounces",
"-confirm", "confirm",
"-join", "join",
"-leave", "leave",
"-owner", "owner",
"-request", "request",
"-subscribe", "subscribe",
"-unsubscribe", "unsubscribe");
while(my ($tail,$que) = each(%queues))
{
unlink("$alias$tail");
}