Changeset 448 in ProjectBuilder for devel/pb/lib/ProjectBuilder/CMS.pm

Timestamp:

May 26, 2008, 10:41:45 AM (16 years ago)

Author:

Bruno Cornec

Message:

• Fake Changelog for test version
• setupvm improved with init level 3 by default
• still issue for pb on Debian with the devel version name, and the mixed cases for modules unallowed

File:

• devel/pb/lib/ProjectBuilder/CMS.pm (modified) (2 diffs)

devel/pb/lib/ProjectBuilder/CMS.pm

@@ -552 +552 @@
 my $chglog = shift;
 my $authors = shift;
+my $testver = shift || undef;
 
 pb_cms_create_authors($authors,$dest,$scheme);
 
-if ($scheme =~ /^svn/) {
+if ((defined $testver) && (defined $testver->{$ENV{'PBPROJ'}}) && ($testver->{$ENV{'PBPROJ'}} =~ /true/i)) {
     if (! -f "$dest/ChangeLog") {
+        open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog";
+        # We need a minimal version for debian type of build
+        print CL "\n";
+        print CL "\n";
+        print CL "\n";
+        print CL "\n";
+        print CL "1990-01-01  none\n";
+        print CL "\n";
+        print CL "        * test version\n";
+        print CL "\n";
+        close(CL);
+        pb_log(0,"Generating fake ChangeLog for test version\n");
+        open(CL,"> $dest/$ENV{'PBCMSLOGFILE'}") || die "Unable to create $dest/$ENV{'PBCMSLOGFILE'}";
+        close(CL);
+    }
+}
+
+if ($scheme =~ /^svn/) {
+    if (! -f "$dest/ChangeLog") {
+        # In case we have no network, just create an empty one before to allow correct build
+        open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog";
+        close(CL);
         if (-x "/usr/bin/svn2cl") {
-            # In case we have no network, just create an empty one before to allow correct build
-            open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog";
-            close(CL);
             pb_system("/usr/bin/svn2cl --group-by-day --authors=$authors -i -o $dest/ChangeLog $pkgdir","Generating ChangeLog from SVN with svn2cl");
         } else {
@@ -575 +595 @@
     # CVS needs a relative path !
     if (! -f "$dest/ChangeLog") {
+        # In case we have no network, just create an empty one before to allow correct build
+        open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog";
+        close(CL);
         if (-x "/usr/bin/cvs2cl") {
-            # In case we have no network, just create an empty one before to allow correct build
-            open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog";
-            close(CL);
             pb_system("/usr/bin/cvs2cl --group-by-day -U $authors -f $dest/ChangeLog $pkgdir","Generating ChangeLog from CVS with cvs2cl");
         } else {