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

5
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 - fixed 'get_charset' and 'set_charset' for idx < 5.0
0.08 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

18
Ezmlm/trunk/Ezmlm.pm
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,9 +739,11 @@ 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 6; return 7;
} elsif (($idx =~ m/^(\d)/) && ($1 == 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
return 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; Mail::Ezmlm->get_version;
The result is one of the following: The result is one of the following:
0 - unknown 0 - unknown
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: