OLD | NEW |
(Empty) | |
| 1 #!/usr/bin/perl |
| 2 |
| 3 if ($#ARGV != 2) { |
| 4 die "Usage: $0 <changelog> <stop at> <start at>\n"; |
| 5 } |
| 6 my ($changelog, $end, $start) = @ARGV; |
| 7 |
| 8 $end =~ s/.*\.//; |
| 9 $start =~ s/.*\.//; |
| 10 |
| 11 my @changes = (); |
| 12 my $output = 0; |
| 13 open(CHG, "<debian.chrome/changelog") || |
| 14 open(CHG, "<debian/changelog") || |
| 15 die "$0: debian/changelog: open failed - $!\n"; |
| 16 while (<CHG>) { |
| 17 if (/^\S+\s+\((.*\.(\d+))\)/) { |
| 18 if ($2 <= $end) { |
| 19 last; |
| 20 } |
| 21 if ($2 == $start) { |
| 22 $output = 1; |
| 23 } |
| 24 if ($output) { |
| 25 push(@changes, "\n [ Ubuntu: $1 ]\n\n"); |
| 26 next; |
| 27 } |
| 28 } |
| 29 next if ($output == 0); |
| 30 |
| 31 next if (/^\s*$/); |
| 32 next if (/^\s--/); |
| 33 next if (/^\s\s[^\*\s]/); |
| 34 |
| 35 push(@changes, $_); |
| 36 } |
| 37 close(CHG); |
| 38 |
| 39 open(CHANGELOG, "< $changelog") or die "Cannot open changelog"; |
| 40 open(NEW, "> $changelog.new") or die "Cannot open new changelog"; |
| 41 |
| 42 $printed = 3; |
| 43 while (<CHANGELOG>) { |
| 44 if (/^ CHANGELOG: /) { |
| 45 $printed--; |
| 46 print NEW; |
| 47 if ($printed == 0) { |
| 48 print NEW @changes; |
| 49 } |
| 50 next; |
| 51 } |
| 52 print NEW; |
| 53 } |
| 54 |
| 55 close(NEW); |
| 56 close(CHANGELOG); |
| 57 |
| 58 rename("$changelog.new", "$changelog"); |
OLD | NEW |