Work on #50
Ezmlm.pm - get_version returns 7 - updated documentation Changes - updated changes file with items in previous changesets
This commit is contained in:
parent
cff52ce0da
commit
e901614035
2 changed files with 16 additions and 7 deletions
|
@ -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
|
||||
|
||||
|
|
|
@ -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:
|
||||
|
||||
|
|
Loading…
Reference in a new issue