Changeset 1904 in ProjectBuilder

Timestamp:

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

Author:

Bruno Cornec

Message:

• Add a pb_conf_write function and its test

Location:

devel/pb-modules

Files:

• lib/ProjectBuilder/Conf.pm (modified) (2 diffs)
• t/Conf.t (added)

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_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);
 ($VERSION,$REVISION) = pb_version_init();
 
@@ -222 +222 @@
 }
 return(@ptr);
+}
+
+=item B<pb_conf_write>
+
+This function writes in the file passed ias first parameter the hash of values passed as second parameter
+
+=cut
+
+sub pb_conf_write {
+
+my $conffile = shift;
+my $h = $_;
+
+open(CONF,"> $conffile") || confess "Unbale to wirte into $conffile";
+
+foreach my $p (keys %$h) {
+    foreach my $key ($p) {
+        print CONF "$p $key = $p->{$key}\n";
+    }
+}
+close(CONF);
 }