Changeset 285 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Base.pm

Timestamp:

Nov 15, 2007, 12:04:08 AM (16 years ago)

Author:

Bruno Cornec

Message:

Adds support of NEWS, AUTHORS, svn|cvs.log, ChangeLog files and changelog info from single files under pbconf

File:

• devel/pb/lib/ProjectBuilder/Base.pm (modified) (6 diffs)

devel/pb/lib/ProjectBuilder/Base.pm

@@ -803 +803 @@
     $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; svnversion .)`;
     chomp($ENV{'PBREVISION'});
-    $ENV{'PBCMSLOG'}="svn log";
     $ENV{'PBCMSLOGFILE'}="svn.log";
 } elsif ($cms->{$proj} eq "flat") {
     $ENV{'PBREVISION'}="flat";
-    $ENV{'PBCMSLOG'}="/bin/true";
     $ENV{'PBCMSLOGFILE'}="flat.log";
 } elsif ($cms->{$proj} eq "cvs") {
@@ -814 +812 @@
     #chomp($ENV{'PBREVISION'});
     $ENV{'PBREVISION'}="CVS";
-    $ENV{'PBCMSLOG'}="cvs log";
     $ENV{'PBCMSLOGFILE'}="cvs.log";
     #
@@ -868 +865 @@
 }
 
+
+sub pb_create_authors {
+
+my $authors=shift;
+my $dest=shift;
+my $cms=shift;
+
+return if ((not defined $authors) || (! -f $authors));
+open(AUT,$authors) || die "Unable to open $authors";
+open(DAUTH,"> $dest/AUTHORS") || die "Unable to create $dest/AUTHORS";
+print DAUTH "Authors of the project are:\n";
+print DAUTH "===========================\n";
+while (<AUT>) {
+    my ($nick,$gcos) = split(/:/);
+    print DAUTH "$gcos";
+    print DAUTH " ($nick under $cms)\n" if (defined $cms);
+}
+close(DAUTH);
+close(AUTH);
+}
+
 sub pb_cms_log {
 my $cms = shift;
 my $pkgdir = shift;
-my $destfile = shift;
+my $dest = shift;
+my $authors = shift;
+
+pb_create_authors($authors,$dest,$cms->{$ENV{'PBPROJ'}});
 
 if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
-    pb_system("svn log -v $pkgdir > $destfile","Extracting log info from SVN");
+    pb_system("svn log -v $pkgdir > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from SVN");
+    if ((-x "/usr/bin/svn2cl") && (! -f $dest/ChangeLog)) {
+        pb_system("/usr/bin/svn2cl --group-by-day --authors=$authors -i -o $dest/ChangeLog $pkgdir","Generating ChangeLog from SVN");
+    }
 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") {
     # Nothing to do
@@ -880 +904 @@
     my $tmp=basename($pkgdir);
     # CVS needs a relative path !
-    pb_system("cvs log $tmp > $destfile","Extracting log info from CVS");
+    pb_system("cvs log $tmp > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from CVS");
+    if ((-x "/usr/bin/svn2cl") && (! -f $dest/ChangeLog)) {
+        pb_system("/usr/bin/cvs2cl --group-by-day -U $authors -f $dest/ChangeLog $pkgdir","Generating ChangeLog from SVN");
+    }
 } else {
     die "cms $cms->{$ENV{'PBPROJ'}} unknown";
@@ -1055 +1082 @@
 my $extpkgdir = shift;
 my $pbpackager = shift;
+my $chglog = shift || undef;
 
 # For the moment not dynamic
@@ -1079 +1107 @@
             my $p = $defpkgdir->{$pbpkg};
             $p = $extpkgdir->{$pbpkg} if (not defined $p);
-            pb_changelog($dtype, $pbpkg, $pbver, $pbtag, $pbsuf, $p, \*DEST, $tmp);
+            pb_changelog($dtype, $pbpkg, $pbver, $pbtag, $pbsuf, $p, \*DEST, $tmp, $chglog);
             $tmp = "";
         }