#!/usr/bin/perl # Olivier Blin, 2007 # Licensed under the GPL use strict; use lib qw(lib /usr/lib/libDrakX); # i18n: IMPORTANT: to get correct namespace (drakx-net instead of libDrakX) BEGIN { unshift @::textdomains, 'drakx-net' } use standalone; use network::network; use network::netcenter; my $in = 'interactive'->vnew('su'); my $net = {}; network::network::read_net_conf($net); my $dbus; eval { $dbus = dbus_object::system_bus() }; network::netcenter::main($in, $net, $dbus);