From 8892216863adeda2e8cfd199d016ab9141f8e401 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 3 Aug 2001 23:24:26 +0000 Subject: debugging, 128Kb/s ISDN --- perl-install/standalone/net_monitor | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'perl-install/standalone/net_monitor') diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index 4de1bb5d5..dcabf9363 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -27,7 +27,7 @@ use my_gtk qw(:helpers :wrappers); use common; use strict; use network::netconnect; -use globals "network", qw($in $prefix $connect_file $disconnect_file $connect_prog); +use MDK::Common::Globals "network", qw($in $prefix $connect_file $disconnect_file $connect_prog); my ($connect, $default_intf); init Gtk; @@ -57,12 +57,12 @@ my $combo1 = new Gtk::Combo; $combo1->set_popdown_strings (network::netconnect::get_profiles() ); $combo1->entry->set_text($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default"); $combo1->entry->set_editable(0); -globals::init( - in => $in, - prefix => '', - connect_file => "/etc/sysconfig/network-scripts/net_cnx_up", - disconnect_file => "/etc/sysconfig/network-scripts/net_cnx_down", - connect_prog => "/etc/sysconfig/network-scripts/net_cnx_pg" ); +MDK::Common::Globals::init( + in => $in, + prefix => '', + connect_file => "/etc/sysconfig/network-scripts/net_cnx_up", + disconnect_file => "/etc/sysconfig/network-scripts/net_cnx_down", + connect_prog => "/etc/sysconfig/network-scripts/net_cnx_pg" ); gtkadd($window1, gtkpack_(new Gtk::VBox(0,5), -- cgit v1.2.1