- add mediacfg version management

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()