Mail::Ezmlm: release 0.07 is new trunk
This commit is contained in:
parent
53d2232cdf
commit
7abc6b9744
44
Ezmlm/trunk/Changes
Normal file
44
Ezmlm/trunk/Changes
Normal file
|
|
@ -0,0 +1,44 @@
|
|||
$Id: Changes,v 1.5 2005/03/05 14:14:27 guy Exp $
|
||||
|
||||
Revision history for Perl extension Mail::Ezmlm.
|
||||
|
||||
0.01 Sun Oct 31 12:58:16 1999
|
||||
- original version; created by h2xs 1.1.1.1.2.1
|
||||
|
||||
0.02 Wed Jan 26 07:59:10 SAST 2000
|
||||
- Added functions to check various options
|
||||
(ismodsub, ismodpost, isremote, isdeny, isallow, isdigest)
|
||||
- Allowed sub, unsub, list, subscribers, issub to work with list subparts
|
||||
(ie, the allow, deny, mod, digest sub directories)
|
||||
- Changed system() calls to safer ones (ie command, switches)
|
||||
- Made error handling better (errmsg() and errno())
|
||||
- Added support for creating MySQL tables via ezmlm-mktab
|
||||
|
||||
0.03 Mon Sep 25 11:49:26 SAST 2000
|
||||
- fixed the issub() function
|
||||
- fixed the problem with dashes in hostnames.
|
||||
- hopefully got rid of some of the warnings from sub() and unsub()
|
||||
|
||||
0.04 Mon May 26 18:15:38 SAST 2003
|
||||
- fixed return value of Makefile.PL (Andrew Pam <xanni@glasswings.com.au>)
|
||||
- fixed issub() (again) to handle parts properly (bug 602; moguo@servism.com)
|
||||
- converted module global variables to instance variables
|
||||
|
||||
0.05 Sat Mar 5 12:47:10 SAST 2005
|
||||
- fixed forced scalar return in subscribers() (Jon Coulter <ledjon@ledjon.com>)
|
||||
- fixed handling of dashes in hostnames (bug 5571; Lars Braeuer <lbraeuer@mpex.net>)
|
||||
- fixed some tainting problems (Scott Beck <sbeck@gossamer-threads.com> and Matt Simerson <matt@tnpi.biz>)
|
||||
- fixed order of control/defaulthost and control/me (bug 1515)
|
||||
- fixed a bug in Makefile.PL (bug 11771). does not affect most users, so released as 0.05.1
|
||||
|
||||
0.06 Mon Dec 26 18:55:12 CET 2005
|
||||
- support for ezmlm-idx-5.0.0 added
|
||||
- fixed version check
|
||||
|
||||
0.07 Mon Jan 2 22:12:32 CET 2006
|
||||
- new functions for text management (idx >= 5.0)
|
||||
- new functions for language setting (idx >= 5.0)
|
||||
- new functions for charset setting (idx >= 5.0)
|
||||
- new functions for config directory setting (idx >= 5.0)
|
||||
- look for ezmlm-make at run-time
|
||||
- requires Text::ParseWords
|
||||
1212
Ezmlm/trunk/Ezmlm.pm
Normal file
1212
Ezmlm/trunk/Ezmlm.pm
Normal file
File diff suppressed because it is too large
Load diff
7
Ezmlm/trunk/MANIFEST
Normal file
7
Ezmlm/trunk/MANIFEST
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
Changes
|
||||
Ezmlm.pm
|
||||
MANIFEST
|
||||
README
|
||||
Makefile.PL
|
||||
test.pl
|
||||
META.yml
|
||||
10
Ezmlm/trunk/META.yml
Normal file
10
Ezmlm/trunk/META.yml
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
# http://module-build.sourceforge.net/META-spec.html
|
||||
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
|
||||
name: Ezmlm
|
||||
version: 0.05
|
||||
version_from: Ezmlm.pm
|
||||
installdirs: site
|
||||
requires:
|
||||
|
||||
distribution_type: module
|
||||
generated_by: ExtUtils::MakeMaker version 6.17
|
||||
131
Ezmlm/trunk/Makefile.PL
Normal file
131
Ezmlm/trunk/Makefile.PL
Normal file
|
|
@ -0,0 +1,131 @@
|
|||
# $Id: Makefile.PL,v 1.3 2005/03/05 14:15:20 guy Exp $
|
||||
|
||||
use ExtUtils::MakeMaker;
|
||||
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
|
||||
# the contents of the Makefile that is written.
|
||||
WriteMakefile(
|
||||
'CONFIGURE' => \&set_paths,
|
||||
'NAME' => 'Mail::Ezmlm',
|
||||
'VERSION_FROM' => 'Ezmlm.pm', # finds $VERSION
|
||||
'DISTNAME' => 'Ezmlm',
|
||||
'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz' },
|
||||
'clean' => { FILES => 'ezmlmtmp' }
|
||||
);
|
||||
|
||||
sub set_paths {
|
||||
my($qmail_path, $ezmlm_path);
|
||||
|
||||
# special case to handle the FreeBSD ports system
|
||||
if ($ENV{BSD_BATCH_INSTALL}) {
|
||||
print STDERR "\$BSD_BATCH_INSTALL is set in your environment, assuming port defaults\n";
|
||||
return {};
|
||||
}
|
||||
|
||||
print << 'EOM';
|
||||
|
||||
We now need to know where some things live on your system. I'll try and make
|
||||
some intelligent guesses - if I get it right, please just press enter at the
|
||||
prompt. If I get them wrong, please type in the correct path for me and then
|
||||
press enter.
|
||||
|
||||
First I need to know where the Ezmlm binaries live (ie where I can find
|
||||
ezmlm-make, ezmlm-sub, etc).
|
||||
|
||||
EOM
|
||||
|
||||
*prompt = \&ExtUtils::MakeMaker::prompt;
|
||||
|
||||
# guess default
|
||||
$ezmlm_path = '/usr/local/bin/ezmlm';
|
||||
$ezmlm_path = '/usr/local/bin/ezmlm-idx' unless (-e "$ezmlm_path/ezmlm-make");
|
||||
$ezmlm_path = '/usr/local/bin' unless (-e "$ezmlm_path/ezmlm-make");
|
||||
$ezmlm_path = '/usr/bin/ezmlm' unless (-e "$ezmlm_path/ezmlm-make");
|
||||
$ezmlm_path = '/usr/bin/ezmlm-idx' unless (-e "$ezmlm_path/ezmlm-make");
|
||||
$ezmlm_path = '/usr/bin' unless (-e "$ezmlm_path/ezmlm-make");
|
||||
# return to default, if nothing can be found
|
||||
$ezmlm_path = '/usr/local/bin/ezmlm' unless (-e "$ezmlm_path/ezmlm-make");
|
||||
|
||||
foreach (1..10) {
|
||||
$ezmlm_path = prompt('Ezmlm binary directory?', "$ezmlm_path");
|
||||
last if (-e "$ezmlm_path/ezmlm-make");
|
||||
print "I can't find $ezmlm_path/ezmlm-make. Please try again\n";
|
||||
}
|
||||
unless (-e "$ezmlm_path/ezmlm-make") {
|
||||
print STDERR "Warning: No correct input after $_ attempts. Continuing with warnings ...\n";
|
||||
}
|
||||
|
||||
print << 'EOM';
|
||||
|
||||
Now I need to know where Qmail resides on your system. The Qmail base
|
||||
directory is the one in which the Qmail bin, control, etc directories
|
||||
live in.
|
||||
|
||||
EOM
|
||||
|
||||
foreach (1..10) {
|
||||
$qmail_path = prompt('Qmail base directory?', '/var/qmail');
|
||||
last if (-e "$qmail_path/control");
|
||||
print "I can't find $qmail_path/control. Please try again\n";
|
||||
}
|
||||
if (! -e "$qmail_path/control") {
|
||||
print STDERR "Warning: No correct input after $_ attempts. Continuing with warnings ...\n";
|
||||
}
|
||||
|
||||
if(`strings $ezmlm_path/ezmlm-sub | grep -i 'MySQL'`) {
|
||||
|
||||
print << 'EOM';
|
||||
|
||||
It appears you have compiled MySQL support into your version of Ezmlm. If
|
||||
this is correct, I now need to know where the MySQL client (mysql) lives on
|
||||
your machine.
|
||||
|
||||
Please leave this blank if you do not want to enable MySQL support in the
|
||||
Mail::Ezmlm module.
|
||||
|
||||
EOM
|
||||
|
||||
$mysql_path = '/usr/bin';
|
||||
$mysql_path = '/usr/local/bin' unless (-e "$mysql_path/mysql");
|
||||
# return to default - if nothing works
|
||||
$mysql_path = '/usr/bin' unless (-e "$mysql_path/mysql");
|
||||
|
||||
foreach (1..10) {
|
||||
$mysql_path = prompt('MySQL binary directory?', "$mysql_path");
|
||||
last if (-e "$mysql_path/mysql" || $mysql_path eq '');
|
||||
print "I can't find $mysql_path/mysql. Please enter the full path\n";
|
||||
print "or leave this option blank if you don't want to use MySQL\n";
|
||||
}
|
||||
unless ((-e "$mysql_path/mysql") || ($mysql_path eq '')) {
|
||||
print STDERR "Warning: No correct input after $_ attempts. Continuing with warnings ...\n";
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
print << 'EOM';
|
||||
|
||||
Thank you. I will use this information to configure Mail::Ezmlm for you
|
||||
|
||||
EOM
|
||||
|
||||
# Back up file
|
||||
open(EZMLM, '<Ezmlm.pm') or die "Unable to open Ezmlm.pm for read: $!";
|
||||
open(TMP, ">Ezmlm.pm.tmp.$$") or die "Unable to create temp file: $!";
|
||||
while(<EZMLM>) { print TMP; }
|
||||
close TMP; close EZMLM;
|
||||
|
||||
# Do variable substitution
|
||||
open(EZMLM, '>Ezmlm.pm') or die "Unable to open Ezmlm.pm for write: $!";
|
||||
open(TMP, "<Ezmlm.pm.tmp.$$") or die "Unable to read temp file: $!";
|
||||
while(<TMP>) {
|
||||
s{^\$EZMLM_BASE\s*=\s*['"].+?['"]\s*;\s*(#.*|)$}{\$EZMLM_BASE = '$ezmlm_path'; #Autoinserted by Makefile.PL};
|
||||
s{^\$QMAIL_BASE\s*=\s*['"].+?['"]\s*;\s*(#.*|)$}{\$QMAIL_BASE = '$qmail_path'; #Autoinserted by Makefile.PL};
|
||||
s{^\$MYSQL_BASE\s*=\s*['"].*?['"]\s*;\s*(#.*|)$}{\$MYSQL_BASE = '$mysql_path'; #Autoinserted by Makefile.PL};
|
||||
print EZMLM;
|
||||
}
|
||||
close TMP; close EZMLM;
|
||||
|
||||
unlink "Ezmlm.pm.tmp.$$";
|
||||
|
||||
return {};
|
||||
|
||||
}
|
||||
22
Ezmlm/trunk/README
Normal file
22
Ezmlm/trunk/README
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
$Id: README,v 1.3 2005/03/05 14:14:06 guy Exp $
|
||||
|
||||
Ezmlm.pm
|
||||
|
||||
Object methods for ezmlm mailing lists.
|
||||
|
||||
Install by doing the following ...
|
||||
# perl Makefile.PL
|
||||
# make test
|
||||
# make install
|
||||
|
||||
One thing. For some reason MakeMaker doesn't like symlinks. Please make sure
|
||||
you use the full cantonical path for the qmail and ezmlm binaries.
|
||||
|
||||
Documentation is in pod format. Please run perldoc Mail::Ezmlm after you have
|
||||
installed it.
|
||||
|
||||
Much as I'd like to, I don't have the time to regularly maintain this. New
|
||||
releases are infrequent at best. Check http://guy.rucus.net/ezmlm/contrib/
|
||||
for patches, etc that may be useful.
|
||||
|
||||
- Guy Antony Halse <guy-ezmlm@rucus.ru.ac.za>
|
||||
234
Ezmlm/trunk/test.pl
Normal file
234
Ezmlm/trunk/test.pl
Normal file
|
|
@ -0,0 +1,234 @@
|
|||
# ===========================================================================
|
||||
# test.pl - version 0.02 - 25/09/2000
|
||||
# $Id: test.pl,v 1.5 2005/03/05 14:08:30 guy Exp $
|
||||
# Test suite for Mail::Ezmlm
|
||||
#
|
||||
# Copyright (C) 1999, Guy Antony Halse, All Rights Reserved.
|
||||
# Please send bug reports and comments to guy-ezmlm@rucus.ru.ac.za
|
||||
#
|
||||
# This program is subject to the restrictions set out in the copyright
|
||||
# agreement that can be found in the Ezmlm.pm file in this distribution
|
||||
#
|
||||
# ==========================================================================
|
||||
# Before `make install' is performed this script should be runnable with
|
||||
# `make test'. After `make install' it should work as `perl test.pl'
|
||||
|
||||
######################### We start with some black magic to print on failure.
|
||||
|
||||
$failed = 0;
|
||||
|
||||
BEGIN { $| = 1; print "1..9\n"; }
|
||||
END {($failed++ && print "not ok 1\n") unless $loaded;}
|
||||
use Mail::Ezmlm;
|
||||
$loaded = 1;
|
||||
print "Loading: ok 1\n";
|
||||
|
||||
######################### End of black magic.
|
||||
|
||||
# Insert your test code below (better if it prints "ok 13"
|
||||
# (correspondingly "not ok 13") depending on the success of chunk 13
|
||||
# of the test code):
|
||||
|
||||
use Cwd;
|
||||
use File::Find;
|
||||
$list = new Mail::Ezmlm;
|
||||
|
||||
# create a temp directory if necessary
|
||||
$TMP = cwd() . '/ezmlmtmp';
|
||||
mkdir $TMP, 0755 unless (-d $TMP);
|
||||
|
||||
print 'Checking list creation: ';
|
||||
$test1 = $list->make(-name=>"ezmlm-test1-$$",
|
||||
-qmail=>"$TMP/.qmail-ezmlm-test1-$$",
|
||||
-dir=>"$TMP/ezmlm-test1-$$");
|
||||
if($test1 eq "$TMP/ezmlm-test1-$$") {
|
||||
print "ok 2\n";
|
||||
} else {
|
||||
print 'not ok 2 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Checking vhost list creation: ';
|
||||
$test2 = $list->make(-name=>"ezmlm-test2-$$",
|
||||
-qmail=>"$TMP/.qmail-ezmlm-test2-$$",
|
||||
-dir=>"$TMP/ezmlm-test2-$$",
|
||||
-host=>'on.web.za',
|
||||
-user=>'onwebza');
|
||||
if($test2 eq "$TMP/ezmlm-test2-$$") {
|
||||
open(INLOCAL, "<$TMP/ezmlm-test2-$$/inlocal");
|
||||
chomp($test2 = <INLOCAL>);
|
||||
close INLOCAL;
|
||||
if($test2 eq "onwebza-ezmlm-test2-$$") {
|
||||
print "ok 3\n";
|
||||
} else {
|
||||
print 'not ok 3 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
} else {
|
||||
print 'not ok 3 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Testing list update: ';
|
||||
if($list->update('ms')) {
|
||||
print "ok 4\n";
|
||||
} else {
|
||||
print 'not ok 4 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Testing setlist() and thislist(): ';
|
||||
$list->setlist("$TMP/ezmlm-test1-$$");
|
||||
if($list->thislist eq "$TMP/ezmlm-test1-$$") {
|
||||
print "ok 5\n";
|
||||
} else {
|
||||
print 'not ok 5 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Testing list subscription and subscription listing: ';
|
||||
$list->sub('nobody@on.web.za');
|
||||
$list->sub('anonymous@on.web.za', 'test@on.web.za');
|
||||
@subscribers = $list->subscribers;
|
||||
if($subscribers[1] =~ /nobody\@on.web.za/) {
|
||||
print "ok 6\n";
|
||||
} else {
|
||||
print 'not ok 6 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Testing issub(): ';
|
||||
if(defined($list->issub('nobody@on.web.za'))) {
|
||||
if(defined($list->issub('some@non.existant.address'))) {
|
||||
print 'not ok 7 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
} else {
|
||||
print "ok 7\n";
|
||||
}
|
||||
} else {
|
||||
print 'not ok 7 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Testing list unsubscription: ';
|
||||
$list->unsub('nobody@on.web.za');
|
||||
$list->unsub('anonymous@on.web.za', 'test@on.web.za');
|
||||
@subscribers = $list->subscribers;
|
||||
unless(@subscribers) {
|
||||
print "ok 8\n";
|
||||
} else {
|
||||
print 'not ok 8 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Testing installed version of ezmlm: ';
|
||||
my($version) = $list->check_version();
|
||||
if ($version) {
|
||||
$version =~ s/\n//;
|
||||
print 'not ok 9 [Warning: Ezmlm.pm is designed to work with ezmlm-idx > 0.40. Your version reports as: ', $version, "]\n";
|
||||
} else {
|
||||
print "ok 9\n";
|
||||
}
|
||||
|
||||
print 'Testing retrieving of text files: ';
|
||||
if ($list->get_text_content('sub-ok') ne '') {
|
||||
print "ok 10\n";
|
||||
} else {
|
||||
print 'not ok 10 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Testing changing of text files: ';
|
||||
$list->set_text_content('sub-ok', "testing message\n");
|
||||
if ($list->get_text_content('sub-ok') eq "testing message\n") {
|
||||
print "ok 11\n";
|
||||
} else {
|
||||
print 'not ok 11 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
|
||||
print 'Testing if text file is marked as customized (only idx >= 5.0): ';
|
||||
if ($list->get_version() >= 5) {
|
||||
if ($list->is_text_default('sub-ok')) {
|
||||
print 'not ok 12 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
} else {
|
||||
print "ok 12\n";
|
||||
}
|
||||
} else {
|
||||
print "ok 12 [skipped]\n";
|
||||
}
|
||||
|
||||
print 'Testing resetting text files (only idx >= 5.0): ';
|
||||
if ($list->get_version() >= 5) {
|
||||
$list->reset_text('sub-ok');
|
||||
if ($list->is_text_default('sub-ok')) {
|
||||
print "ok 13\n";
|
||||
} else {
|
||||
print 'not ok 13 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
} else {
|
||||
print "ok 13 [skipped]\n";
|
||||
}
|
||||
|
||||
print 'Testing retrieving available languages (only idx >= 5.0): ';
|
||||
if ($list->get_version() >= 5) {
|
||||
my @avail_langs = $list->get_available_languages();
|
||||
if ($#avail_langs > 0) {
|
||||
print "ok 14\n";
|
||||
} else {
|
||||
print 'not ok 14 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
} else {
|
||||
print "ok 14 [skipped]\n";
|
||||
}
|
||||
|
||||
print 'Testing changing the configured language (only idx >= 5.0): ';
|
||||
if ($list->get_version() >= 5) {
|
||||
my @avail_langs = $list->get_available_languages();
|
||||
$list->set_lang($avail_langs[$#avail_langs-1]);
|
||||
if ($list->get_lang() eq $avail_langs[$#avail_langs-1]) {
|
||||
print "ok 15\n";
|
||||
} else {
|
||||
print 'not ok 15 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
} else {
|
||||
print "ok 15 [skipped]\n";
|
||||
}
|
||||
|
||||
print 'Testing getting the configuration directory (only idx >= 5.0): ';
|
||||
if ($list->get_version() >= 5) {
|
||||
if ($list->get_config_dir() ne '') {
|
||||
print "ok 16\n";
|
||||
} else {
|
||||
print 'not ok 16 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
} else {
|
||||
print "ok 16 [skipped]\n";
|
||||
}
|
||||
|
||||
print 'Testing changing the configuration directory (only idx >= 5.0): ';
|
||||
if ($list->get_version() >= 5) {
|
||||
$list->set_config_dir('/etc/ezmlm-local');
|
||||
if ($list->get_config_dir() eq '/etc/ezmlm-local') {
|
||||
print "ok 17\n";
|
||||
} else {
|
||||
print 'not ok 17 [', $list->errmsg(), "]\n";
|
||||
$failed++;
|
||||
}
|
||||
} else {
|
||||
print "ok 17 [skipped]\n";
|
||||
}
|
||||
|
||||
if($failed > 0) {
|
||||
print "\n$failed tests were failed\n";
|
||||
exit $failed;
|
||||
} else {
|
||||
print "\nSuccessful :-)\n";
|
||||
finddepth(sub { (-d $File::Find::name) ? rmdir ($File::Find::name) : unlink ($File::Find::name) }, cwd() . "/ezmlmtmp");
|
||||
exit;
|
||||
}
|
||||
Loading…
Reference in a new issue