Changeset 781 in MondoRescue for branches/stable/tools/mkchangelog.pl


Ignore:
Timestamp:
Aug 12, 2006, 11:31:16 AM (14 years ago)
Author:
Bruno Cornec
Message:
  • Gentoo build now correct
  • 4 articles kept on frontpage
  • New announces made
  • Build process optimized agin and again :-)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/stable/tools/mkchangelog.pl

    r774 r781  
    5858    }
    5959}
    60 print "Using $chglog as input ChangeLog file for $pkg\n";
     60#print "Using $chglog as input ChangeLog file for $pkg\n";
    6161
    6262open(INPUT,"$chglog") || die "Unable to open $chglog (read)";
    6363open(OUTPUT,"> $outfile") || die "Unable to open $outfile (write)";
    64 open(TAG, "$ENV{TOPDIR}/LAST") || die "Unable to open $ENV{TOPDIR}/LAST";
    6564
    66 $tmp = <TAG>;
    67 chomp($tmp);
    68 my ($tmp2, $tag) = split(/-/, $tmp);
    6965# Skip first 4 lines
    7066$tmp = <INPUT>;
     
    7874    print OUTPUT $tmp;
    7975}
     76
     77my $first=1;
    8078
    8179# Handle each block separated by newline
     
    9189    if ($dtype eq "rpm") {
    9290        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            }
    9497        } else {
    95             $ver2 = $ver;
     98            $ver2 = "$ver"."$ENV{suf}";
    9699        }
    97100        print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver2\n";
Note: See TracChangeset for help on using the changeset viewer.