Changeset 18 in ProjectBuilder for devel/pb/lib/changelog.pm

Timestamp:

Jul 31, 2007, 12:50:36 AM (17 years ago)

Author:

Bruno Cornec

Message:

cms2build roughly working

File:

• devel/pb/lib/changelog.pm (modified) (4 diffs)

devel/pb/lib/changelog.pm

@@ -17 +17 @@
 my $pbtag = shift;
 my $dsuf = shift;
+my $path = shift;
 my $OUTPUT = shift;
 
@@ -26 +27 @@
 return("\n") if ((not (defined $dtype)) || ($dtype eq "") || 
         (not (defined $pkg)) || ($pkg eq "") || 
+        (not (defined $pbtag)) || ($pbtag eq "") || 
+        (not (defined $dsuf)) || ($dsuf eq "") || 
+        (not (defined $path)) || ($path eq "") || 
         (not (defined $OUTPUT)) || ($OUTPUT eq ""));
 
-my $chglog = "$ENV{'PBROOT'}/$pkg/ChangeLog";
+my $chglog = "$ENV{'PBROOT'}/$path/ChangeLog";
 if (! -f $chglog) {
-    print "Unable to find a ChangeLog file for $pkg\n";
+    print "Unable to find the ChangeLog file ($chglog) for $pkg\n";
     return("\n");
 }
@@ -72 +76 @@
             $ver2 = "$ver$dsuf";
         }
-        print $OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver2\n";
+        print $OUTPUT "* $ndate $confparam{'packager'} $ver2\n";
         print $OUTPUT "- Updated to $ver\n";
         }
@@ -95 +99 @@
 
     if ($dtype eq "deb") {
-        print $OUTPUT " -- Bruno Cornec <bruno\@mondorescue.org>  $n2date\n\n";
+        print $OUTPUT " -- $confparam{'packager'} $n2date\n\n";
         print $OUTPUT "\n";
         }