Changeset 18 in ProjectBuilder for devel/pb/lib/pb.pm

Timestamp:

Jul 31, 2007, 12:50:36 AM (17 years ago)

Author:

Bruno Cornec

Message:

cms2build roughly working

File:

• devel/pb/lib/pb.pm (modified) (3 diffs)

devel/pb/lib/pb.pm

@@ -1 +1 @@
 #!/usr/bin/perl -w
 #
-# Project Builder configuration file
+# Project Builder configuration file handler
 # For project pb ;-)
 #
@@ -7 +7 @@
 #
 use strict;
-use Exporter();
-use vars qw(@ISA @EXPORT_OK);
-@ISA = qw(Exporter);
-# global vars are here
-@EXPORT_OK = qw(%defpkgdir %extpkgdir %version %param %filteredfiles &pb_init);
-use vars @EXPORT_OK;
 use AppConfig qw(ARGCOUNT_HASH);
 
@@ -33 +27 @@
 # Root of the project to build
 # needs at least 2 levels of dir as in the upper 
-# other dirs will be created and used
-$ptr = $config->get("param");
-%param = %$ptr;
+# other dirs will be created and used 
 
-# List of pkg to build by default
+# main parameter hash (mandatory)
+$ptr = $config->get("confparam") || die "Unable to find confparam in $conffile";
+%confparam = %$ptr;
+
+# List of pkg to build by default (mandatory)
 $ptr = $config->get("defpkgdir") || die "Unable to find defpkgdir in $conffile";
 %defpkgdir = %$ptr;
 
-# List of additional pkg to build when all is called
+# List of additional pkg to build when all is called (optional)
 $ptr = $config->get("extpkgdir");
-%extpkgdir = %$ptr;
+if (not defined $ptr) {
+    %extpkgdir = ();
+} else {
+    %extpkgdir = %$ptr;
+}
 
-# Valid version names
+# Valid version names (optional)
 $ptr = $config->get("version");
-%version = %$ptr;
+if (not defined $ptr) {
+    %version = ();
+} else {
+    %version = %$ptr;
+}
 
-# List of files to filter
+# List of files to filter (optional)
 $ptr = $config->get("filteredfiles");
-%filteredfiles = %$ptr;
+if (not defined $ptr) {
+    %filteredfiles = ();
+} else {
+    %filteredfiles = %$ptr;
+}
 
 }