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

Timestamp:

Aug 12, 2006, 11:31:16 AM (18 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:

• branches/stable/tools/mkchangelog.pl (modified) (3 diffs)

branches/stable/tools/mkchangelog.pl

@@ -58 +58 @@
     }
 }
-print "Using $chglog as input ChangeLog file for $pkg\n";
+#print "Using $chglog as input ChangeLog file for $pkg\n";
 
 open(INPUT,"$chglog") || die "Unable to open $chglog (read)";
 open(OUTPUT,"> $outfile") || die "Unable to open $outfile (write)";
-open(TAG, "$ENV{TOPDIR}/LAST") || die "Unable to open $ENV{TOPDIR}/LAST";
 
-$tmp = <TAG>;
-chomp($tmp);
-my ($tmp2, $tag) = split(/-/, $tmp);
 # Skip first 4 lines
 $tmp = <INPUT>;
@@ -78 +74 @@
     print OUTPUT $tmp;
 }
+
+my $first=1;
 
 # Handle each block separated by newline
@@ -91 +89 @@
     if ($dtype eq "rpm") {
         if ($ver !~ /-/) {
-            $ver2 = "$ver-$tag";
+            if ($first eq 1) {
+                $ver2 = "$ver-$ENV{TAG}"."$ENV{suf}";
+                $first=0;
+            } else {
+                $ver2 = "$ver-1"."$ENV{suf}";
+            }
         } else {
-            $ver2 = $ver;
+            $ver2 = "$ver"."$ENV{suf}";
         }
         print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver2\n";