#!/usr/bin/perl # DrakConnect $Id: drakconnect 239447 2008-03-14 12:45:50Z blino $ # Copyright (C) 1999-2006 Mandriva # Damien "Dam's" Krotkine # Damien "poulpy" Chaumette # Thierry Vignaud # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. use lib qw(/usr/lib/libDrakX); # i18n: IMPORTANT: to get correct namespace (drakx-net instead of libDrakX) BEGIN { unshift @::textdomains, 'drakx-net' } use strict; use standalone; #- warning, standalone must be loaded very first, for 'explanations' use interactive; use common; use network::network; use modules; require_root_capability(); $ugtk3::wm_icon = "drakconnect"; my $in = 'interactive'->vnew; my $net = {}; network::network::read_net_conf($net); my $modules_conf = modules::any_conf->read; local $_ = join '', @ARGV; if (/--skip-wizard/) { require network::drakconnect::edit; network::drakconnect::edit::manage($in, $net, $modules_conf); } elsif (/--del/) { require network::drakconnect::delete; network::drakconnect::delete::del_intf($in, $net, $modules_conf); } elsif (/--internet/) { require network::drakconnect::global; network::drakconnect::global::configure_net($in, $net, $modules_conf); } else { # default is to run wizard (--add) require network::netconnect; network::netconnect::safe_main($net, $in, $modules_conf); } $modules_conf->write; $in->exit(0);