debian/scripts/misc/insert-changes.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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.master' 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");