Changeset 781 in MondoRescue for branches/stable/tools/mkchangelog.pl
- Timestamp:
- Aug 12, 2006, 11:31:16 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/tools/mkchangelog.pl
r774 r781 58 58 } 59 59 } 60 print "Using $chglog as input ChangeLog file for $pkg\n";60 #print "Using $chglog as input ChangeLog file for $pkg\n"; 61 61 62 62 open(INPUT,"$chglog") || die "Unable to open $chglog (read)"; 63 63 open(OUTPUT,"> $outfile") || die "Unable to open $outfile (write)"; 64 open(TAG, "$ENV{TOPDIR}/LAST") || die "Unable to open $ENV{TOPDIR}/LAST";65 64 66 $tmp = <TAG>;67 chomp($tmp);68 my ($tmp2, $tag) = split(/-/, $tmp);69 65 # Skip first 4 lines 70 66 $tmp = <INPUT>; … … 78 74 print OUTPUT $tmp; 79 75 } 76 77 my $first=1; 80 78 81 79 # Handle each block separated by newline … … 91 89 if ($dtype eq "rpm") { 92 90 if ($ver !~ /-/) { 93 $ver2 = "$ver-$tag"; 91 if ($first eq 1) { 92 $ver2 = "$ver-$ENV{TAG}"."$ENV{suf}"; 93 $first=0; 94 } else { 95 $ver2 = "$ver-1"."$ENV{suf}"; 96 } 94 97 } else { 95 $ver2 = $ver;98 $ver2 = "$ver"."$ENV{suf}"; 96 99 } 97 100 print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver2\n";
Note:
See TracChangeset
for help on using the changeset viewer.