ezmlm-web/ezmlm-web-modules
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Work on #50

Browse source 
Ezmlm.pm
 - get_version returns 7
 - updated documentation

Changes
 - updated changes file with items in previous changesets
This commit is contained in:
jlmartinez 2008-07-09 20:50:34 +00:00
parent cff52ce0da
commit e901614035
2 changed files with 16 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Ezmlm/trunk/Changes
View file

@ -51,4 +51,7 @@ Revision history for Perl extension Mail::Ezmlm.
- fixed 'get_charset' and 'set_charset' for idx < 5.0
0.08
- fixed handling of the 'owner' setting for ezmlm-idx > v5
- better ezmlm-idx version detection
- admit "@" in the path of a mailing list

8
Ezmlm/trunk/Ezmlm.pm
View file

@ -727,6 +727,7 @@ sub check_version {
# 5 => ezmlm-idx v5.0
# 5.1 => ezmlm-idx v5.1
# 6 => ezmlm-idx v6.*
# 7 => ezmlm-idx v7.*
sub get_version {
my ($ezmlm, $idx);
my $version = `$EZMLM_BASE/ezmlm-make -V 2>&1`;
@ -738,8 +739,10 @@ sub get_version {
if (defined($ezmlm)) {
return 3;
} elsif (defined($idx)) {
if (($idx =~ m/^(\d)/) && ($1 >= 6)) {
if (($idx =~ m/^(\d)/) && ($1 >= 7)) {
# version 6.0 or higher
return 7;
} elsif (($idx =~ m/^(\d)/) && ($1 == 6)){
return 6;
} elsif (($idx =~ m/^(\d)\.(\d)/) && ($1 >= 5) && ($2 == 1)) {
# version 5.1
@ -1151,6 +1154,9 @@ The result is one of the following:
3 - ezmlm 0.53
4 - ezmlm-idx 0.4xx
5 - ezmlm-idx 5.x
5.1 - ezmlm-idx 5.1
6 - ezmlm-idx 6.x
7 - ezmlm-idx 7.x
=head2 Creating MySQL tables: