Changeset 2300 in ProjectBuilder

Timestamp:

Sep 6, 2017, 2:57:47 AM (7 years ago)

Author:

Bruno Cornec

Message:

Automate convversion of pburl into pbprojurl in update_v0 and add an error if pbconfurl not found

Location:

devel

Files:

• pb-modules/lib/ProjectBuilder/Conf.pm (modified) (1 diff)
• pb/lib/ProjectBuilder/CMS.pm (modified) (1 diff)

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

@@ -575 +575 @@
             if (not defined $lh1->{$param}) {
                 pb_log(2,"Converting parameter $param\n");
-                print DEST "$param:\n";
+                my $param2 = $param;
+                # param pburl in v0 is now pbprojurl in v1
+                $param2 =~ s/pburl/pbprojurl/;
+                print DEST "$param2:\n";
                 foreach my $k (keys %{$lh0->{$param}}) {
                     pb_log(2,"Handling key $k\n");

devel/pb/lib/ProjectBuilder/CMS.pm

@@ -66 +66 @@
 
 my ($pbprojurl) = pb_conf_get("pbprojurl");
+confess "Undefined pbprojurl for $ENV{'PBPROJ'}\n" if ((not defined $pbprojurl) or (not defined $pbprojurl->{$ENV{'PBPROJ'}}));
 pb_log(2,"DEBUG: Project URL of $ENV{'PBPROJ'}: $pbprojurl->{$ENV{'PBPROJ'}}\n");
 my ($scheme, $account, $host, $port, $path) = pb_get_uri($pbprojurl->{$ENV{'PBPROJ'}});