Changeset 285 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Changelog.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/Changelog.pm (modified) (4 diffs)

devel/pb/lib/ProjectBuilder/Changelog.pm

@@ -22 +22 @@
 my $OUTPUT = shift;
 my $doit = shift;
+my $chglog = shift || undef;
 
 my $log = "";
@@ -28 +29 @@
 $ENV{LANG}="C";
 
-return("\n") if ((not (defined $dtype)) || ($dtype eq "") || 
+if ((not (defined $dtype)) || ($dtype eq "") || 
         (not (defined $pkg)) || ($pkg eq "") || 
         (not (defined $pbver)) || ($pbver eq "") || 
@@ -35 +36 @@
         (not (defined $path)) || ($path eq "") || 
         (not (defined $OUTPUT)) || ($OUTPUT eq "") ||
-        (not (defined $doit)) || ($doit eq ""));
+        (not (defined $doit)) || ($doit eq "")) {
+    print $OUTPUT "\n";
+    return;
+}
 
-my $chglog = "$ENV{'PBROOT'}/$path/ChangeLog";
-if ((! -f $chglog) && ($doit eq "yes")) {
+if (((not defined $chglog) || (! -f $chglog)) && ($doit eq "yes")) {
     #print "No ChangeLog file ($chglog) for $pkg\n";
-    return("\n");
+    print $OUTPUT "\n";
+    return;
 }
 
@@ -50 +54 @@
 my ($packager) = pb_conf_get("packager");
 
-# If we don't need to do it, fake something
-if ($doit ne "yes") {
+# If we don't need to do it, or don't have it fake something
+if (((not defined $chglog) || (! -f $chglog)) && ($doit ne "yes")) {
     my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
     $date = strftime("%Y-%m-%d", @date);