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

View file

@ -51,4 +51,7 @@ Revision history for Perl extension Mail::Ezmlm.
- fixed 'get_charset' and 'set_charset' for idx < 5.0 - fixed 'get_charset' and 'set_charset' for idx < 5.0
0.08 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 - admit "@" in the path of a mailing list

View file

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