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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#!/usr/bin/perl -w
=head1 NAME
dh_builddeb - build debian packages
=cut
use strict;
use Debian::Debhelper::Dh_Lib;
=head1 SYNOPSIS
B<dh_builddeb> [S<I<debhelper options>>] [B<--destdir=>I<directory>] [B<--filename=>I<name>] [S<B<--> I<params>>]
=head1 DESCRIPTION
dh_builddeb simply calls L<dpkg-deb(8)> to build a debian package or
packages.
=head1 OPTIONS
=over 4
=item B<--destdir=>I<directory>
Use this if you want the generated .deb files to be put in a directory
other than the default of ".."
=item B<--filename=>I<name>
Use this if you want to force the generated .deb file to have a particular
file name. Does not work well if more than one .deb is generated!
=item B<-u>I<params>
=item B<--> I<params>
Pass I<params> to L<dpkg-deb(1)> when it is used to build the
package.
=back
=cut
init();
# Set the default destination directory.
if (! defined $dh{DESTDIR}) {
$dh{DESTDIR}='..';
}
if (! defined $dh{FILENAME}) {
$dh{FILENAME}='';
}
else {
$dh{FILENAME}="/$dh{FILENAME}";
}
foreach my $package (@{$dh{DOPACKAGES}}) {
my $tmp=tmpdir($package);
if (exists $ENV{DH_ALWAYS_EXCLUDE} && length $ENV{DH_ALWAYS_EXCLUDE}) {
complex_doit("find $tmp -name $_ | xargs rm -rf")
foreach split(":", $ENV{DH_ALWAYS_EXCLUDE});
}
if (! is_udeb($package)) {
doit("dpkg-deb", @{$dh{U_PARAMS}}, "--build", $tmp, $dh{DESTDIR}.$dh{FILENAME});
}
else {
my $filename=$dh{FILENAME};
if (! $filename) {
$filename="/".udeb_filename($package);
}
doit("dpkg-deb", @{$dh{U_PARAMS}}, "--build", $tmp, $dh{DESTDIR}.$filename);
}
}
=head1 SEE ALSO
L<debhelper(7)>
This program is a part of debhelper.
=head1 AUTHOR
Joey Hess <joeyh@debian.org>
=cut
|
