summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-22 19:58:06 +0000
committerdamien <damien@mandriva.com>2001-07-22 19:58:06 +0000
commit21d632055bbe913d53c3324d7465a38621d6d79e (patch)
tree7c77561c2e33fd8c52c4fa8cc75e4364bbf0f5eb /perl-install/standalone
parent62549c2cc589b26db909835e4ceb4a71c3e93630 (diff)
downloaddrakx-21d632055bbe913d53c3324d7465a38621d6d79e.tar
drakx-21d632055bbe913d53c3324d7465a38621d6d79e.tar.gz
drakx-21d632055bbe913d53c3324d7465a38621d6d79e.tar.bz2
drakx-21d632055bbe913d53c3324d7465a38621d6d79e.tar.xz
drakx-21d632055bbe913d53c3324d7465a38621d6d79e.zip
big work on isdn. Not finished
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/net_monitor12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 54faa40d9..294265eb9 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -26,7 +26,7 @@ use my_gtk qw(:helpers :wrappers);
#-use Data::Dumper;
use common qw(:common :file :functional :system);
use strict;
-use netconnect;
+use network::netconnect;
my ($connect, $default_intf);
init Gtk;
@@ -110,16 +110,16 @@ sub connection {
my $tag2 = Gtk->timeout_add(10000, sub {
Gtk->timeout_remove($tag);
$statusbar->pop(1);
- $statusbar->push(1, $isconnected2 ? ( netconnect::connected('', $netc) ?
+ $statusbar->push(1, $isconnected2 ? ( network::netconnect::connected('', $netc) ?
_("Disconnection from Internet failed.") :
_("Disconnection from Internet complete.")) :
- ( netconnect::connected('', $netc) ?
+ ( network::netconnect::connected('', $netc) ?
_("Connection complete.") :
_("Connection failed.\nVerify your configuration in the Mandrake Control Center."))
);
my $tag3 = Gtk->timeout_add(10000, sub {
$statusbar->pop(1);
- $statusbar->push(1, netconnect::connected('', $netc) ? _("Connected") : _("Not connected"));
+ $statusbar->push(1, network::netconnect::connected('', $netc) ? _("Connected") : _("Not connected"));
0;
});
$button_connect->set_sensitive(1);
@@ -217,11 +217,11 @@ sub update {
}
@interfaces = @intfs;
my $netc={};
- if(netconnect::connected('', $netc) == !$isconnected) {
+ if(network::netconnect::connected('', $netc) == !$isconnected) {
$isconnected = $isconnected ? 0 : 1;
$label_c->set($isconnected ? _("Disconnect") : _("Connect"));
$statusbar->pop(1);
- $statusbar->push(1, netconnect::connected('', $netc) ? _("Connected") : _("Not connected"));
+ $statusbar->push(1, network::netconnect::connected('', $netc) ? _("Connected") : _("Not connected"));
$isconnected ? $pix_c->set($pix_c_map, $pix_c_mask) : $pix_c->set($pix_d_map, $pix_d_mask);
}
$time_tag2 = Gtk->timeout_add(5000, \&update);