[debhelper-devel] [debhelper] 01/04: dh_systemd_enable: refactor unit installation logic into a subroutine
Niels Thykier
nthykier at moszumanska.debian.org
Sat Sep 16 09:25:33 UTC 2017
This is an automated email from the git hooks/post-receive script.
nthykier pushed a commit to branch master
in repository debhelper.
commit 3f3b3b8072155e978f885ecff80bef1672597804
Author: Felipe Sateler <fsateler at debian.org>
Date: Sat Oct 22 21:15:26 2016 -0300
dh_systemd_enable: refactor unit installation logic into a subroutine
Signed-off-by: Niels Thykier <niels at thykier.net>
---
dh_systemd_enable | 64 ++++++++++++++-----------------------------------------
1 file changed, 16 insertions(+), 48 deletions(-)
diff --git a/dh_systemd_enable b/dh_systemd_enable
index c06f3c0..b1ba5a6 100755
--- a/dh_systemd_enable
+++ b/dh_systemd_enable
@@ -108,6 +108,15 @@ sub contains_install_section {
return 0;
}
+sub install_unit {
+ my ($package, $script, $pkgsuffix, $path, $installsuffix) = @_;
+ $installsuffix = $installsuffix || $pkgsuffix;
+ my $unit = pkgfile($package, $pkgsuffix);
+ return if $unit eq '';
+ install_dir($path);
+ install_file($unit, "${path}/${script}.${installsuffix}");
+}
+
# PROMISE: DH NOOP WITHOUT tmp(lib/systemd/system) mount path service socket target tmpfile
foreach my $package (@{$dh{DOPACKAGES}}) {
@@ -144,54 +153,13 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
$script=$package;
}
- my $service=pkgfile($package,"service");
- if ($service ne '') {
- my $path="$tmpdir/lib/systemd/system";
- install_dir($path);
-
- install_file($service, "$path/$script.service");
- }
-
- my $template=pkgfile("$package@","service");
- if ($template ne '') {
- my $path="$tmpdir/lib/systemd/system";
- install_dir($path);
- install_file($template, "$path/$script at .service");
- }
-
- my $target=pkgfile($package,"target");
- if ($target ne '') {
- my $path="$tmpdir/lib/systemd/system";
- install_dir($path);
- install_file($target, "$path/$script.target");
- }
-
- my $socket=pkgfile($package,"socket");
- if ($socket ne '') {
- my $path="$tmpdir/lib/systemd/system";
- install_dir($path);
- install_file($socket, "$path/$script.socket");
- }
-
- my $tmpfile=pkgfile($package,"tmpfile");
- if ($tmpfile ne '') {
- my $path="$tmpdir/usr/lib/tmpfiles.d";
- install_dir($path);
- install_file($tmpfile, "$path/$script.conf");
- }
-
- my $mount=pkgfile($package,"mount");
- if ($mount ne '') {
- my $path="$tmpdir/lib/systemd/system";
- install_dir($path);
- install_file($mount, "$path/$script.mount");
- }
-
- my $pathunit=pkgfile($package,"path");
- if ($pathunit ne '') {
- my $path="$tmpdir/lib/systemd/system";
- install_dir($path);
- install_file($pathunit, "$path/$script.path");
+ foreach my $suffix ('', '@') {
+ install_unit("$package$suffix", $script, 'service', "$tmpdir/lib/systemd/system");
+ install_unit("$package$suffix", $script, 'target', "$tmpdir/lib/systemd/system");
+ install_unit("$package$suffix", $script, 'socket', "$tmpdir/lib/systemd/system");
+ install_unit("$package$suffix", $script, 'mount', "$tmpdir/lib/systemd/system") if $suffix eq '';
+ install_unit("$package$suffix", $script, 'path', "$tmpdir/lib/systemd/system");
+ install_unit("$package$suffix", $script, 'tmpfile', "$tmpdir/usr/lib/tmpfiles.d", 'conf') if $suffix eq '';
}
find({
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debhelper/debhelper.git
More information about the debhelper-devel
mailing list