From 50bf20203670b3b3a1fd050c588231761f588c5b Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Fri, 18 Aug 2006 14:09:44 +0000
Subject: - more test, provide basic functions

---
 lib/MDV/Distribconf/MediaCFG.pm | 32 ++++++++++++++++++++++++++++++--
 1 file changed, 30 insertions(+), 2 deletions(-)

(limited to 'lib/MDV/Distribconf/MediaCFG.pm')

diff --git a/lib/MDV/Distribconf/MediaCFG.pm b/lib/MDV/Distribconf/MediaCFG.pm
index 46b3dc5..0566f3c 100644
--- a/lib/MDV/Distribconf/MediaCFG.pm
+++ b/lib/MDV/Distribconf/MediaCFG.pm
@@ -117,7 +117,21 @@ added to the config (urpmi).
 
 =cut
 
-$value->{size} = {};
+$value->{size} = {
+    validation => sub {
+        my ($v) = @_;
+        if ($v =~ /^(\d+)(\w)?$/) {
+            if ($2) {
+                if (! grep { lc($2) eq $_ } qw(k m g t p)) {
+                    return("wrong unit");
+                }
+            }
+            return;
+        } else {
+            return ("malformed value");
+        }
+    },
+};
 
 =head3 size
 
@@ -125,7 +139,11 @@ The size of the media. The value is suffixed by the unit.
 
 =cut
 
-sub valid_param {
+# valid_param($media, $var, $val)
+#
+# Return a list of errors (if any) about having such value in the config
+
+sub _valid_param {
     my ($media, $var, $val) = @_[-3..-1];
     if (!exists($value->{$var})) {
         return ("unknow var");
@@ -141,4 +159,14 @@ sub valid_param {
     return @errors;
 }
 
+# Retun a hash containing information about $var
+
+sub _value_info {
+    my ($var) = $_[-1];
+    if (exists($value->{$var})) {
+        return $value->{$var}
+    }
+    return;
+}
+
 1;
-- 
cgit v1.2.1