Changeset 18 in ProjectBuilder for devel/pb/lib/changelog.pm
- Timestamp:
- Jul 31, 2007, 12:50:36 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/changelog.pm
r17 r18 17 17 my $pbtag = shift; 18 18 my $dsuf = shift; 19 my $path = shift; 19 20 my $OUTPUT = shift; 20 21 … … 26 27 return("\n") if ((not (defined $dtype)) || ($dtype eq "") || 27 28 (not (defined $pkg)) || ($pkg eq "") || 29 (not (defined $pbtag)) || ($pbtag eq "") || 30 (not (defined $dsuf)) || ($dsuf eq "") || 31 (not (defined $path)) || ($path eq "") || 28 32 (not (defined $OUTPUT)) || ($OUTPUT eq "")); 29 33 30 my $chglog = "$ENV{'PBROOT'}/$p kg/ChangeLog";34 my $chglog = "$ENV{'PBROOT'}/$path/ChangeLog"; 31 35 if (! -f $chglog) { 32 print "Unable to find a ChangeLog filefor $pkg\n";36 print "Unable to find the ChangeLog file ($chglog) for $pkg\n"; 33 37 return("\n"); 34 38 } … … 72 76 $ver2 = "$ver$dsuf"; 73 77 } 74 print $OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org>$ver2\n";78 print $OUTPUT "* $ndate $confparam{'packager'} $ver2\n"; 75 79 print $OUTPUT "- Updated to $ver\n"; 76 80 } … … 95 99 96 100 if ($dtype eq "deb") { 97 print $OUTPUT " -- Bruno Cornec <bruno\@mondorescue.org>$n2date\n\n";101 print $OUTPUT " -- $confparam{'packager'} $n2date\n\n"; 98 102 print $OUTPUT "\n"; 99 103 }
Note:
See TracChangeset
for help on using the changeset viewer.