1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
#!/usr/bin/perl -w =head1 NAME debconf-dbus - Debconf D-Bus service =head1 DESCRIPTION =cut use strict; use Net::DBus; use Net::DBus::Reactor; use Debconf::DBus; my $bus = Net::DBus->find; my $service = $bus->export_service('org.debian.Debconf'); my $object = Debconf::DBus->new($service); Net::DBus::Reactor->main->run; exit 0; |