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
0.08
- admit "@" in the path of a mailing list
- fixed handling of the 'owner' setting for ezmlm-idx > v5
- better ezmlm-idx version detection
- admit "@" in the path of a mailing list

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,9 +739,11 @@ 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 6;
return 7;
} elsif (($idx =~ m/^(\d)/) && ($1 == 6)){
return 6;
} elsif (($idx =~ m/^(\d)\.(\d)/) && ($1 >= 5) && ($2 == 1)) {
# version 5.1
return 5.1;
@ -1147,10 +1150,13 @@ Empty strings for set_lang() and set_charset() reset the setting to its default
Mail::Ezmlm->get_version;
The result is one of the following:
0 - unknown
3 - ezmlm 0.53
4 - ezmlm-idx 0.4xx
5 - ezmlm-idx 5.x
0 - unknown
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: