summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/MDV/Distribconf/MediaCFG.pm32
1 files changed, 30 insertions, 2 deletions
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;