1234567891011121314151617181920 |
- #!/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();
|