← Back to branch summary

~ubuntu-branches/ubuntu/quantal/linux-lowlatency/quantal

« back to all changes in this revision

Viewing changes to debian/scripts/misc/insert-mainline-changes

  • Committer: Package Import Robot
  • Author(s): Alessio Igor Bogani
  • Date: 2011-10-26 11:13:05 UTC
  • Revision ID: package-import@ubuntu.com-20111026111305-04kado7d1u2er2rl
Tags: 3.2.0-16.25
Add new lowlatency kernel flavour

Show diffs side-by-side

added added

removed removed

Lines of Context:
debian/scripts/misc/insert-mainline-changes
 
1
#!/usr/bin/perl
 
2
 
 
3
if ($#ARGV != 2) {
 
4
        warn "Usage: $0 <changelog> <to> <range>\n";
 
5
        die  "       $0 debian.master/changelog v3.2.3 v3.2.2..v3.2.3\n";
 
6
}
 
7
my ($changelog, $to, $range) = @ARGV;
 
8
 
 
9
my @changes = ();
 
10
 
 
11
push(@changes, "\n");
 
12
push(@changes, "  [ Upstream Kernel Changes ]\n\n");
 
13
push(@changes, "  * rebase to $to\n");
 
14
 
 
15
open(LOG, "git log '$range'|") || die "$0: git log failed: - $!\n";
 
16
while (<LOG>) {
 
17
        if (m@BugLink: .*launchpad.net/.*/([0-9]+)\s$@) {
 
18
                push(@changes, "    - LP: #$1\n");
 
19
        }
 
20
}
 
21
close(LOG);
 
22
 
 
23
open(CHANGELOG, "< $changelog") or die "Cannot open changelog";
 
24
open(NEW, "> $changelog.new") or die "Cannot open new changelog";
 
25
 
 
26
$printed = 3;
 
27
while (<CHANGELOG>) {
 
28
        if (/^  CHANGELOG: /) {
 
29
                $printed--;
 
30
                print NEW;
 
31
                if ($printed == 0) {
 
32
                        print NEW @changes;
 
33
                }
 
34
                next;
 
35
        }
 
36
        print NEW;
 
37
}
 
38
 
 
39
close(NEW);
 
40
close(CHANGELOG);
 
41
 
 
42
rename("$changelog.new", "$changelog");