Changeset 2659 in MondoRescue for devel/mr/lib/MondoRescue/Base.pm

Timestamp:

Jun 23, 2010, 4:26:59 PM (14 years ago)

Author:

Bruno Cornec

Message:

r3911@wsip-70-165-196-181: bruno | 2010-06-22 03:34:20 +0200

• First packaged version of a mrmin version begining to work (but doing nothing interesting yet ;-)

File:

• devel/mr/lib/MondoRescue/Base.pm (modified) (3 diffs)

devel/mr/lib/MondoRescue/Base.pm

@@ -25 +25 @@
 use Exporter;
 
+# Global hash for configuration params of mr
+my %mr;
+our $mr = \%mr;
+
 # Export, by default, all the functions into the namespace of
 # any code which uses this module.
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(mr_init mr_exit);
+our @EXPORT = qw(mr_init mr_exit mr_conf_get $mr);
 
 =pod
@@ -71 +75 @@
 #
 # Conf files Management
-# the $MRMINI_CONF/mondorescue.conf.dist is delivered as part of the project and
+# the $etcdir/mondorescue.conf.dist is delivered as part of the project and
 # its checksum is verified as we need good default values that we can trust
 #
@@ -106 +110 @@
 exit($code);
 }
+
+=item B<mr_conf_get>
+
+This function get parameters in configuration files and returns from the least significant level (default) to the emost significant level (application name), passing by the project name.
+It takes a list of parameters to find and returns the values corresponding
+
+=cut
+
+
+sub mr_conf_get {
+    my @params = @_;
+    my @ptr = ();
+    my $ptr;
+    
+    pb_log(2,"Entering mr_conf_get\n");
+    my @args1 = pb_conf_get_if(@params);
+    my $proj = $ENV{'PBPROJ'};
+    $ENV{'PBPROJ'} = $ENV{'PBPKG'};
+    my @args2 = pb_conf_get_if(@params);
+    foreach my $i (0..$#args1) {
+        $ptr = undef;
+        # Process from least important to more important
+        $ptr = $args1[$i]->{'default'};
+        $ptr[$i] = $ptr if (defined $ptr);
+        $ptr = $args1[$i]->{$ENV{'PBPROJ'}};
+        $ptr[$i] = $ptr if (defined $ptr);
+        $ptr = $args2[$i]->{$ENV{'PBPKG'}};
+        $ptr[$i] = $ptr if (defined $ptr);
+        $ptr[$i] = "Undefined" if (not defined $ptr[$i]);
+        pb_log(2,"Found parameter $params[$i] with value $ptr[$i]\n");
+    }
+    $ENV{'PBPROJ'} = $proj;
+    return(@ptr);
+}