summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-09 18:42:24 +0000
committerdamien <damien@mandriva.com>2001-08-09 18:42:24 +0000
commit568af0780b2185388322a11016a230e1fc804dda (patch)
tree51e37a4faf7dd68bdecc95b130f69b06cbb82f4b /perl-install/standalone
parent5ed177619fa333124c522814e6d20aa698d68ae1 (diff)
downloaddrakx-backup-do-not-use-568af0780b2185388322a11016a230e1fc804dda.tar
drakx-backup-do-not-use-568af0780b2185388322a11016a230e1fc804dda.tar.gz
drakx-backup-do-not-use-568af0780b2185388322a11016a230e1fc804dda.tar.bz2
drakx-backup-do-not-use-568af0780b2185388322a11016a230e1fc804dda.tar.xz
drakx-backup-do-not-use-568af0780b2185388322a11016a230e1fc804dda.zip
added missing use
added pixmap for eth. Some factorisation
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draknet48
1 files changed, 24 insertions, 24 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 533b49da2..4e98fa4af 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -28,6 +28,9 @@ use network::tools;
use network;
use c;
use MDK::Common;
+use any;
+use network::isdn;
+use network::adsl;
my $xpm_path="/usr/share/libDrakX/pixmaps";
$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
@@ -241,7 +244,7 @@ $vbox1->pack_start($frame2,1,1,0);
my $vbox2 = new Gtk::VBox(0,0);
$vbox2->set_border_width(5);
$frame2->add($vbox2);
-my $clist1 = new_with_titles Gtk::CList(_("Adapter"), _("Interface"), _("IP address"), _("Protocol"), _("Driver"), _("State"));
+my $clist1 = new_with_titles Gtk::CList("", _("Interface"), _("IP address"), _("Protocol"), _("Driver"), _("State"));
$clist1->set_column_auto_resize($_,1) foreach (0..4);
$clist1->column_titles_passive();
$clist1->set_shadow_type('etched_out');
@@ -249,17 +252,8 @@ $vbox2->pack_start($clist1, 0, 0, 5);
#$scrolled1->add_with_viewport($table2);
my $ip_regexp = qr/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
-foreach my $i (0..$#all_cards) {
- my $ip;
- if (-e "/sbin/ifconfig") {
- local $_=`LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig "eth$i"`;
- /inet addr\:$ip_regexp/; $ip = if_($1 && $2 && $3, "$1.$2.$3.$4");
- $_=`LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig`;
- $state = /eth$i/ ? "up" : "down";
- } else { $ip=$intf->{"eth$_"}{IPADDR}; $state = "n/a"; }
- $clist1->append($_+1, "eth$i", $ip , $intf->{"eth$i"}{BOOTPROTO}, $all_cards[$i]->[1], $state);
- $clist1->set_selectable($i, 0);
-}
+
+build_clist();
my $hbox3 = new Gtk::HBox(0,0);
my $button3 = new Gtk::Button(_("Configure Local Area Network..."));
@@ -352,6 +346,21 @@ dd:
network::netconnect::intro('', $netcnx, $in);
$in->exit(0);
+sub build_clist {
+ foreach my $i (0..$#all_cards) {
+ my $ip;
+ if (-e "/sbin/ifconfig") {
+ local $_=`LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig "eth$i"`;
+ /inet addr\:$ip_regexp/; $ip = if_($1 && $2 && $3, "$1.$2.$3.$4");
+ $_=`LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig`;
+ $state = /eth$i/ ? "up" : "down";
+ } else { $ip=$intf->{"eth$_"}{IPADDR}; $state = "n/a"; }
+ $clist1->append("", "eth$i", $ip , $intf->{"eth$i"}{BOOTPROTO}, $all_cards[$i]->[1], $state);
+ $clist1->set_pixmap ($i, 0, gtkcreate_png("eth_card_mini2.png"));
+
+ $clist1->set_selectable($i, 0);
+ }
+}
sub apply {
$old_profile=$netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default";
@@ -360,8 +369,8 @@ sub apply {
$netcnx->{type} eq 'modem' and any::pppConfig($in, $netcnx->{$netcnx->{type}}, '');
$netcnx->{type} eq 'isdn_internal' and network::isdn::isdn_write_config_backend($netcnx->{$netcnx->{type}}, 1, $netc); #$light
$netcnx->{type} eq 'isdn_external' and any::pppConfig($in, $netcnx->{$netcnx->{type}}, '');
- $netcnx->{type} eq 'adsl_ppoe' and adsl_conf_backend($netcnx->{$netcnx->{type}}, $netc, 'pppoe');
- $netcnx->{type} eq 'adsl_pptp' and adsl_conf_backend($netcnx->{$netcnx->{type}}, $netc, 'pptp');;
+ $netcnx->{type} eq 'adsl_ppoe' and network::adsl::adsl_conf_backend($netcnx->{$netcnx->{type}}, $netc, 'pppoe');
+ $netcnx->{type} eq 'adsl_pptp' and network::adsl::adsl_conf_backend($netcnx->{$netcnx->{type}}, $netc, 'pptp');
network::configureNetwork2($in, $prefix, $netc, $intf);
$netcnx->{type} =~ /adsl/ or system("/sbin/chkconfig --del adsl 2> /dev/null");
@@ -382,16 +391,7 @@ sub update {
$button2->child->set($c ? _("Disconnect...") : _("Connect..."));
$clist1->freeze();
$clist1->clear();
- foreach my $i (0..$#all_cards) {
- my $ip;
- if (-e "/sbin/ifconfig") {
- local $_=`LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig "eth$i"`;
- /inet addr\:$ip_regexp/; $ip = if_($1 && $2 && $3, "$1.$2.$3.$4");
- $state = ethisup($i) ? "up" : "down";
- } else { $ip=$intf->{"eth$i"}{IPADDR}; $state = "n/a"; }
- $clist1->append($i+1, "eth$i", $ip , $intf->{"eth$i"}{BOOTPROTO}, $all_cards[$i]->[1], $state);
- $clist1->set_selectable($i, 0);
- }
+ build_clist();
$clist1->thaw();
$button_del->set_sensitive(network::netconnect::get_profiles() > 1);
$tag = Gtk->timeout_add(5000, \&update);