|
@@ -0,0 +1,20 @@
|
|
|
+#!/usr/bin/env perl
|
|
|
+
|
|
|
+use strict;
|
|
|
+use warnings;
|
|
|
+
|
|
|
+use File::Copy;
|
|
|
+use Config::Simple;
|
|
|
+
|
|
|
+# Fix broken out of the box systemd unit for pdns
|
|
|
+my $service_file = "/usr/lib/systemd/system/pdns.service";
|
|
|
+die "Can't find service file $service_file" unless -f $service_file;
|
|
|
+
|
|
|
+my $cfg = Config::Simple->new($service_file);
|
|
|
+
|
|
|
+#$cfg->param("Service.WorkingDirectory", "/var/spool/powerdns");
|
|
|
+my $invocation = "/usr/sbin/pdns_server --guardian=no --daemon=no --logging-facility=1 --log-timestamp=yes --write-pid=no --chroot";
|
|
|
+$cfg->param("Service.ExecStart", $invocation);
|
|
|
+
|
|
|
+File::Copy::copy($service_file, "$service_file.bak");
|
|
|
+$cfg->save();
|