summaryrefslogtreecommitdiff
path: root/debian/scripts/misc/insert-changes.pl
diff options
context:
space:
mode:
authorJohn Rigby <john.rigby@linaro.org>2010-09-03 00:03:56 -0600
committerPhilippe Langlais <philippe.langlais@stericsson.com>2012-06-04 19:46:56 +0800
commitf472fbe0319f3417c16d98b1df1b7b88b3a78151 (patch)
treed6bae1bafe1ca21e8062a10072f54aaa3ada2956 /debian/scripts/misc/insert-changes.pl
parentd9357d6650ce38ca31d0cfdbcb041ebc32f10f26 (diff)
LINARO: Add generic linaro packaging
Signed-off-by: John Rigby <john.rigby@linaro.org>
Diffstat (limited to 'debian/scripts/misc/insert-changes.pl')
-rwxr-xr-xdebian/scripts/misc/insert-changes.pl36
1 files changed, 36 insertions, 0 deletions
diff --git a/debian/scripts/misc/insert-changes.pl b/debian/scripts/misc/insert-changes.pl
new file mode 100755
index 00000000000..1c18234727f
--- /dev/null
+++ b/debian/scripts/misc/insert-changes.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w
+
+my $debian;
+$droot = $ARGV[0] if (defined $ARGV[0]);
+$droot = 'debian' if (!defined $droot);
+$debian = $ARGV[1] if (defined $ARGV[1]);
+$debian = 'debian.linaro' if (!defined $debian);
+
+system("make -s -f $droot/rules printchanges > $debian/changes");
+
+open(CHANGELOG, "< $debian/changelog") or die "Cannot open changelog";
+open(CHANGES, "< $debian/changes") or die "Cannot open new changes";
+open(NEW, "> $debian/changelog.new") or die "Cannot open new changelog";
+
+$printed = 0;
+
+while (<CHANGELOG>) {
+ if (/^ CHANGELOG: /) {
+ next if $printed;
+
+ while (<CHANGES>) {
+ print NEW;
+ }
+
+ $printed = 1;
+ } else {
+ print NEW;
+ }
+}
+
+close(NEW);
+close(CHANGES);
+close(CHANGELOG);
+
+rename("$debian/changelog.new", "$debian/changelog");
+unlink("$debian/changes");