Changeset 782 in MondoRescue for trunk/tools/mkchangelog.pl
- Timestamp:
- Aug 12, 2006, 11:32:32 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/mkchangelog.pl
r729 r782 23 23 my $tmp = ""; 24 24 my $ver = ""; 25 my $ver2 = ""; 25 26 my $date = ""; 26 27 … … 57 58 } 58 59 } 59 print "Using $chglog as input ChangeLog file for $pkg\n";60 #print "Using $chglog as input ChangeLog file for $pkg\n"; 60 61 61 62 open(INPUT,"$chglog") || die "Unable to open $chglog (read)"; 62 63 open(OUTPUT,"> $outfile") || die "Unable to open $outfile (write)"; 64 63 65 # Skip first 4 lines 64 66 $tmp = <INPUT>; … … 73 75 } 74 76 77 my $first=1; 78 75 79 # Handle each block separated by newline 76 80 while (<INPUT>) { 77 81 ($ver, $date) = split(/ /); 82 $ver =~ s/^v//; 78 83 chomp($date); 79 84 $date =~ s/\(([0-9-]+)\)/$1/; … … 83 88 #print "**$ndate**\n"; 84 89 if ($dtype eq "rpm") { 85 print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> VVV-RRR\n"; 90 if ($ver !~ /-/) { 91 if ($first eq 1) { 92 $ver2 = "$ver-$ENV{TAG}"."$ENV{suf}"; 93 $first=0; 94 } else { 95 $ver2 = "$ver-1"."$ENV{suf}"; 96 } 97 } else { 98 $ver2 = "$ver"."$ENV{suf}"; 99 } 100 print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver2\n"; 86 101 print OUTPUT "- Updated to $ver\n"; 87 102 }
Note:
See TracChangeset
for help on using the changeset viewer.