Changeset 1905 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Conf.pm

Timestamp:

Oct 9, 2014, 12:14:42 PM (10 years ago)

Author:

Bruno Cornec

Message:

• pb_conf_write is indeed working and tested now (git error)

File:

• devel/pb-modules/lib/ProjectBuilder/Conf.pm (modified) (3 diffs)

devel/pb-modules/lib/ProjectBuilder/Conf.pm

@@ -29 +29 @@
  
 our @ISA = qw(Exporter);
-our @EXPORT = qw(pb_conf_init pb_conf_add pb_conf_read pb_conf_read_if pb_conf_write pb_conf_get pb_conf_get_if pb_conf_print pb_conf_get_all);
+our @EXPORT = qw(pb_conf_init pb_conf_add pb_conf_read pb_conf_read_if pb_conf_write pb_conf_get pb_conf_get_if pb_conf_print pb_conf_get_all pb_conf_cache);
 ($VERSION,$REVISION) = pb_version_init();
 
@@ -118 +118 @@
 open(CONF,$cf) || confess "Unable to open $cf";
 while(<CONF>) {
+    next if (/^#/);
     if (/^\s*([A-z0-9-_.]+)\s+([[A-z0-9-_.]+)\s*=\s*(.*)$/) {
         pb_log(3,"DEBUG: 1:$1 2:$2 3:$3\n");
@@ -233 +234 @@
 
 my $conffile = shift;
-my $h = $_;
-
-open(CONF,"> $conffile") || confess "Unbale to wirte into $conffile";
+my $h = shift;
+
+confess "No configuration file defined to write into !" if (not defined $conffile);
+confess "No hash defined to read from !" if (not defined $h);
+open(CONF,"> $conffile") || confess "Unable to write into $conffile";
 
 foreach my $p (keys %$h) {
-    foreach my $key ($p) {
-        print CONF "$p $key = $p->{$key}\n";
+    my $j = $h->{$p};
+    foreach my $k (keys %$j) {
+        print CONF "$p $k = $j->{$k}\n";
     }
 }