Changeset 775 in MondoRescue for branches/2.0.9/tools/mkchangelog.pl
- Timestamp:
- Aug 9, 2006, 1:02:30 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2.0.9/tools/mkchangelog.pl
r710 r775 23 23 my $tmp = ""; 24 24 my $ver = ""; 25 my $ver2 = ""; 25 26 my $date = ""; 26 27 … … 61 62 open(INPUT,"$chglog") || die "Unable to open $chglog (read)"; 62 63 open(OUTPUT,"> $outfile") || die "Unable to open $outfile (write)"; 64 open(TAG, "$ENV{TOPDIR}/LAST") || die "Unable to open $ENV{TOPDIR}/LAST"; 65 66 $tmp = <TAG>; 67 chomp($tmp); 68 my ($tmp2, $tag) = split(/-/, $tmp); 63 69 # Skip first 4 lines 64 70 $tmp = <INPUT>; … … 76 82 while (<INPUT>) { 77 83 ($ver, $date) = split(/ /); 84 $ver =~ s/^v//; 78 85 chomp($date); 79 86 $date =~ s/\(([0-9-]+)\)/$1/; … … 83 90 #print "**$ndate**\n"; 84 91 if ($dtype eq "rpm") { 85 print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> VVV-RRR\n"; 92 if ($ver !~ /-/) { 93 $ver2 = "$ver-$tag"; 94 } else { 95 $ver2 = $ver; 96 } 97 print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver2\n"; 86 98 print OUTPUT "- Updated to $ver\n"; 87 99 }
Note:
See TracChangeset
for help on using the changeset viewer.