1 |
#!/usr/bin/perl |
2 |
# Olivier Blin, 2007 <oblin@mandriva.com> |
3 |
# Licensed under the GPL |
4 |
|
5 |
use strict; |
6 |
use lib qw(/usr/lib/libDrakX); |
7 |
|
8 |
# i18n: IMPORTANT: to get correct namespace (drakx-net instead of libDrakX) |
9 |
BEGIN { unshift @::textdomains, 'drakx-net' } |
10 |
|
11 |
use common; |
12 |
use standalone; |
13 |
use network::network; |
14 |
use network::monitor; |
15 |
use network::netcenter; |
16 |
use dbus_object; |
17 |
|
18 |
#- Allow multiple instances, but only one per user: |
19 |
is_running('draknetcenter') and die "draknetcenter already running\n"; |
20 |
|
21 |
my $in = 'interactive'->vnew('su'); |
22 |
my $net = {}; |
23 |
network::network::read_net_conf($net); |
24 |
my $dbus; |
25 |
eval { $dbus = dbus_object::system_bus() }; |
26 |
eval { $net->{monitor} = network::monitor->new($dbus) } if $dbus; |
27 |
|
28 |
network::netcenter::main($in, $net, $dbus); |