Changeset 2077 in ProjectBuilder

Timestamp:

Apr 28, 2016, 8:05:36 PM (8 years ago)

Author:

Bruno Cornec

Message:

First attempt to add a Mojolicious web app with swagger providing a RESTful API for pb

Location:

devel

Files:

• pb-modules/lib/ProjectBuilder/Conf.pm (modified) (4 diffs)
• pb-server (added)
• pb-server/api.json (added)
• pb-server/bin (added)
• pb-server/bin/pb-server (added)
• pb-server/lib (added)
• pb-server/lib/ProjectBuilder (added)
• pb-server/lib/ProjectBuilder.pm (added)
• pb-server/lib/ProjectBuilder/Controller (added)
• pb-server/lib/ProjectBuilder/Controller/Conf.pm (added)
• pb-server/lib/ProjectBuilder/Model (added)
• pb-server/lib/ProjectBuilder/Model/Confs.pm (added)
• pb-server/templates (added)
• pb-server/templates/conf (added)
• pb-server/templates/conf/list.html.ep (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_write pb_conf_get pb_conf_get_if pb_conf_print pb_conf_get_all pb_conf_cache);
+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_get_hash pb_conf_cache);
 ($VERSION,$REVISION) = pb_version_init();
 
@@ -115 +115 @@
 my $lh = shift;
 
-# Read the content of the config file and cache it in the %h hash further availble for queries
+# Read the content of the config file and cache it in the %h hash then available for queries
 open(CONF,$cf) || confess "Unable to open $cf";
 while(<CONF>) {
     next if (/^#/);
-    if (/^\s*([A-z0-9-_.]+)\s+([[A-z0-9-_.]+)\s*=\s*(.*)$/) {
+    if (/^\s*([A-z0-9-_.]+)\s+([[A-z0-9-_.\?\[\]\*\+\\]+)\s*=\s*(.*)$/) {
         pb_log(3,"DEBUG: 1:$1 2:$2 3:$3\n");
         $lh->{$1}->{$2}=$3;
@@ -415 +415 @@
 =item B<pb_conf_get_all>
 
-This function returns an array wirh all configuration parameters
+This function returns an array with all configuration parameters
 
 =cut
@@ -422 +422 @@
 
 return(sort keys %$h);
+}
+
+
+=item B<pb_conf_get_hash>
+
+This function returns a pointer to the hash with all configuration parameters
+
+=cut
+
+sub pb_conf_get_hash {
+
+return($h);
 }