blob: 9a108ceda1a2514d67663287bd19794616395b81 (
plain)
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
37
38
39
40
|
#!/usr/bin/perl
my $body_path = shift or die "Need a file name to store the release body";
my $ver;
open IN, "configure.ac" or die;
while (<IN>) {
if (m/^[^\#]*AC_INIT\s*\(\s*\[\s*zbar\s*\]\s*,\s*\[(\d+[\.\d]+)/) {
$ver=$1;
last;
}
}
close IN or die;
die if (!$ver);
sub gen_version() {
print "Generating release for version $ver\n";
open IN, "ChangeLog" or return "error opening ChangeLog";
open OUT, ">$body_path" or return "error creating $body_path";
my $start=1;
while (<IN>) {
if ($start) {
print OUT $_;
$start = 0;
next;
}
last if (m/^\S/);
print OUT $_ or return "error writing to $body_path";
}
close OUT or return "error closing $body_path";
return "";
}
my $ret = gen_version();
die($ret) if ($ret ne "");
|
