#!/usr/bin/perl # Olivier Blin, 2007 # Licensed under the GPL use strict; use lib qw(/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); network::netcenter::main($in, $net);