blob: f5eeb5eab5df32081db0b73e252dc5912ad49762 (
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#!/usr/bin/perl
$dpkglibdir= ".";
$version= '1.3.0'; # This line modified by Makefile
$format='debian';
$changelogfile='debian/changelog';
@parserpath= ("/usr/local/lib/dpkg/parsechangelog",
"$dpkglibdir/parsechangelog");
use POSIX;
use POSIX qw(:errno_h);
push(@INC,$dpkglibdir);
require 'controllib.pl';
sub usageversion {
print STDERR
"Debian GNU/Linux dpkg-source $version. Copyright (C) 1996
Ian Jackson. This is free software; see the GNU General Public Licence
version 2 or later for copying conditions. There is NO warranty.
Usage: dpkg-parsechangelog [<option> ...]
Options: -l<changelogfile> get per-version info from this file
-v<sinceversion> include all changes later than version
-F<changelogformat> force change log format
-L<libdir> look for change log parsers in <libdir>
-h print this message
";
}
@ap=();
while (@ARGV) {
last unless $ARGV[0] =~ m/^-/;
$_= shift(@ARGV);
if (m/^-L/ && length($_)>2) { $libdir=$'; next; }
if (m/^-F([0-9a-z]+)$/) { $force=1; $format=$1; next; }
if (m/^-l/ && length($_)>2) { $changelogfile=$'; next; }
push(@ap,$_);
m/^--$/ && last;
m/^-v/ && next;
&usageerr("unknown option \`$_'");
}
@ARGV && &usageerr("$progname takes no non-option arguments");
$changelogfile= "./$changelogfile" if $changelogfile =~ m/^\s/;
if (!$force) {
open(STDIN,"< $changelogfile") ||
&error("cannot open $changelogfile to find format: $!");
open(P,"tail -40 |") || die "cannot fork: $!\n";
while(<P>) {
next unless m/\schangelog-format:\s+([0-9a-z]+)\W/;
$format=$1;
}
close(P); $? && &subprocerr("tail of $changelogfile");
}
for $pd (@parserpath) {
$pa= "$pd/$format";
if (!stat("$pa")) {
$! == ENOENT || &syserr("failed to check for format parser $pa");
} elsif (!-x _) {
&warn("format parser $pa not executable");
} else {
$pf= $pa;
}
}
defined($pf) || &error("format $pa unknown");
open(STDIN,"< $changelogfile") || die "cannot open $changelogfile: $!\n";
exec($pf,@ap); die "cannot exec format parser: $!\n";
|
