summaryrefslogtreecommitdiffstats
path: root/lib/MDV/Distribconf.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MDV/Distribconf.pm')
-rw-r--r--lib/MDV/Distribconf.pm40
1 files changed, 35 insertions, 5 deletions
diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm
index ecb58fb..7c0c4d3 100644
--- a/lib/MDV/Distribconf.pm
+++ b/lib/MDV/Distribconf.pm
@@ -2,7 +2,7 @@ package MDV::Distribconf;
# $Id$
-our $VERSION = '1.01';
+our $VERSION = '2.01';
=head1 NAME
@@ -158,6 +158,11 @@ use strict;
use warnings;
use Config::IniFiles;
+sub mymediacfg_version {
+ $VERSION =~ /^(\d+)\./;
+ $1
+}
+
=head2 MDV::Distribconf->new($root)
Returns a new MDV::Distribconf object, C<$root> being the top level
@@ -166,13 +171,19 @@ directory of the tree.
=cut
sub new {
- my ($class, $path) = @_;
- bless {
+ my ($class, $path, $mediacfg_version) = @_;
+ my $distrib = {
root => $path,
infodir => '',
mediadir => '',
cfg => new Config::IniFiles(-default => 'media_info', -allowcontinue => 1),
- }, $class;
+ };
+
+ if (!defined($mediacfg_version)) {
+ $distrib->{cfg}->newval('media_info', 'mediacfg_version', mymediacfg_version());
+ }
+
+ bless($distrib, $class)
}
=head2 $distrib->load()
@@ -219,6 +230,24 @@ sub loadtree {
return 1;
}
+=head2 check_mediacfg_version($wanted_version)
+
+Check current distrib use this version or lesser, which mean it is supported.
+
+=cut
+
+sub check_mediacfg_version {
+ my ($distrib, $wanted_version) = @_;
+
+ # Check wanted version is <= than the module
+ # Otherwise the module can't properly handle it
+ return 0 if (mymediacfg_version() < $wanted_version);
+
+ return 0 if ($wanted_version < $distrib->{cfg}->val('media_info', 'mediacfg_version', 1));
+
+ return 1
+}
+
=head2 $distrib->settree($spec)
Virtual set the internal structure of the distrib.
@@ -330,7 +359,8 @@ sub parse_mediacfg {
(-f $mediacfg && -r _) &&
($distrib->{cfg} = new Config::IniFiles( -file => $mediacfg, -default => 'media_info', -allowcontinue => 1))
or return 0;
- return 1;
+
+ return $distrib->check_mediacfg_version(mymediacfg_version());
}
=head2 $distrib->listmedia()