/usr/bin/dh_systemd_enable is in dh-systemd 1.22.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 | #!/usr/bin/perl -w
=head1 NAME
dh_systemd_enable - enable/disable systemd unit files
=cut
use strict;
use Debian::Debhelper::Dh_Lib;
use File::Find;
use Text::ParseWords qw(shellwords); # in core since Perl 5
=head1 SYNOPSIS
B<dh_systemd_enable> [S<I<debhelper options>>] [B<--no-enable>] [B<--name=>I<name>] [S<I<unit file> ...>]
=head1 DESCRIPTION
B<dh_systemd_enable> is a debhelper program that is responsible for enabling
and disabling systemd unit files.
In the simple case, it finds all unit files installed by a package (e.g.
bacula-fd.service) and enables them. It is not necessary that the machine
actually runs systemd during package installation time, enabling happens on all
machines in order to be able to switch from sysvinit to systemd and back.
In the complex case, you can call B<dh_systemd_enable> and B<dh_systemd_start>
manually (by overwriting the debian/rules targets) and specify flags per unit
file. An example is colord, which ships colord.service, a dbus-activated
service without an [Install] section. This service file cannot be enabled or
disabled (a state called "static" by systemd) because it has no
[Install] section. Therefore, running dh_systemd_enable does not make sense.
For only generating blocks for specific service files, you need to pass them as
arguments, e.g. B<dh_systemd_enable quota.service> and B<dh_systemd_enable
--name=quotarpc quotarpc.service>.
=head1 FILES
=over 4
=item debian/I<package>.service
If this exists, it is installed into lib/systemd/system/I<package>.service in
the package build directory.
=item debian/I<package>.tmpfile
If this exists, it is installed into usr/lib/tmpfiles.d/I<package>.conf in the
package build directory. (The tmpfiles.d mechanism is currently only used
by systemd.)
=back
=head1 OPTIONS
=over 4
=item B<--no-enable>
Just disable the service(s) on purge, but do not enable them by default.
=item B<--name=>I<name>
Install the service file as I<name.service> instead of the default filename,
which is the I<package.service>. When this parameter is used,
B<dh_systemd_enable> looks for and installs files named
F<debian/package.name.service> instead of the usual F<debian/package.service>.
=back
=head1 NOTES
Note that this command is not idempotent. L<dh_prep(1)> should be called
between invocations of this command (with the same arguments). Otherwise, it
may cause multiple instances of the same text to be added to maintainer
scripts.
Note that B<dh_systemd_enable> should be run before B<dh_installinit>.
The default sequence in B<dh> does the right thing, this note is only relevant
when you are calling B<dh_systemd_enable> manually.
=cut
init(options => {
"no-enable" => \$dh{NO_ENABLE},
});
sub contains_install_section {
my ($unit_path) = @_;
my $fh;
if (!open($fh, '<', $unit_path)) {
warning("Cannot open($unit_path) for extracting the Also= line(s)");
return;
}
while (my $line = <$fh>) {
chomp($line);
return 1 if $line =~ /^\s*\[Install\]$/i;
}
close($fh);
return 0;
}
foreach my $package (@{$dh{DOPACKAGES}}) {
my $tmpdir = tmpdir($package);
my @installed_units;
my @units;
# XXX: This is duplicated in dh_installinit, which is unfortunate.
# We do need the service files before running dh_installinit though,
# every other solution makes things much worse for all the maintainers.
# Figure out what filename to install it as.
my $script;
my $jobfile=$package;
if (defined $dh{NAME}) {
$jobfile=$script=$dh{NAME};
}
elsif ($dh{D_FLAG}) {
# -d on the command line sets D_FLAG. We will
# remove a trailing 'd' from the package name and
# use that as the name.
$script=$package;
if ($script=~m/(.*)d$/) {
$jobfile=$script=$1;
}
else {
warning("\"$package\" has no final d' in its name, but -d was specified.");
}
}
elsif ($dh{INIT_SCRIPT}) {
$script=$dh{INIT_SCRIPT};
}
else {
$script=$package;
}
my $service=pkgfile($package,"service");
if ($service ne '') {
my $path="$tmpdir/lib/systemd/system";
if (! -d "$path") {
doit("install","-d","$path");
}
doit("install","-p","-m644",$service,"$path/$script.service");
}
my $socket=pkgfile($package,"socket");
if ($socket ne '') {
my $path="$tmpdir/lib/systemd/system";
if (! -d "$path") {
doit("install","-d","$path");
}
doit("install","-p","-m644",$socket,"$path/$script.socket");
}
my $tmpfile=pkgfile($package,"tmpfile");
if ($tmpfile ne '') {
my $path="$tmpdir/usr/lib/tmpfiles.d";
if (! -d "$path") {
doit("install","-d","$path");
}
doit("install","-p","-m644",$tmpfile,"$path/$script.conf");
}
find({
wanted => sub {
my $name = $File::Find::name;
return unless -f $name;
# Skip symbolic links, their only legitimate use is for
# adding an alias, e.g. linking smartmontools.service
# -> smartd.service.
return if -l $name;
return unless $name =~ m,^$tmpdir/lib/systemd/system/[^/]+$,;
push @installed_units, $name;
},
no_chdir => 1,
}, $tmpdir);
# Handle either only the unit files which were passed as arguments or
# all unit files that are installed in this package.
my @args = @ARGV > 0 ? @ARGV : @installed_units;
for my $name (@args) {
my $base = basename($name);
# Try to make the path absolute, so that the user can call
# dh_installsystemd bacula-fd.service
if ($base eq $name) {
# NB: This works because @installed_units contains
# files from precisely one directory.
my ($full) = grep { basename($_) eq $base } @installed_units;
if (defined($full)) {
$name = $full;
} else {
warning(qq|Could not find "$name" in the /lib/systemd/system directory of $package. | .
qq|This could be a typo, or using Also= with a service file from another package. | .
qq|Please check carefully that this message is harmless.|);
}
}
# Skip template service files like e.g. getty@.service.
# Enabling, disabling, starting or stopping those services
# without specifying the instance (e.g. getty@ttyS0.service) is
# not useful.
if ($name =~ /\@/) {
next;
}
# Skip unit files that don’t have an [Install] section.
next unless contains_install_section($name);
push @units, $name;
}
next if @units == 0;
my $unitargs = join(" ", map { basename($_) } @units);
for my $unit (@units) {
my $base = basename($unit);
if ($dh{NO_ENABLE}) {
autoscript($package, "postinst", "postinst-systemd-dont-enable", "s/#UNITFILE#/$base/");
} else {
autoscript($package, "postinst", "postinst-systemd-enable", "s/#UNITFILE#/$base/");
}
}
autoscript($package, "postrm", "postrm-systemd", "s/#UNITFILES#/$unitargs/");
# init-system-helpers ships deb-systemd-helper which we use in our
# autoscripts
addsubstvar($package, "misc:Depends", "init-system-helpers (>= 1.18~)");
}
=head1 SEE ALSO
L<dh_systemd_start(1)>, L<debhelper(7)>
=head1 AUTHORS
pkg-systemd-maintainers@lists.alioth.debian.org
=cut
|