Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use Net::DBus;
- use Data::Dumper;
- my $bus = Net::DBus->system;
- my $service = $bus->get_service("org.freedesktop.systemd1");
- my $object = $service->get_object("/org/freedesktop/systemd1");
- my $job = eval {$object->StartUnit("xinetd.service", 'fail') };
- if ($@) {
- print Dumper($@);
- }
- else {
- print Dumper($job);
- }
- 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement