summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-09 22:39:41 +0000
committerdamien <damien@mandriva.com>2001-08-09 22:39:41 +0000
commitd0e835b7ffa1d2e1fbe0b0b3d4cf1f43db83343f (patch)
treea398444d7635149fadb8d75ab59251f05cbbcf1c /perl-install/network
parent568af0780b2185388322a11016a230e1fc804dda (diff)
downloaddrakx-d0e835b7ffa1d2e1fbe0b0b3d4cf1f43db83343f.tar
drakx-d0e835b7ffa1d2e1fbe0b0b3d4cf1f43db83343f.tar.gz
drakx-d0e835b7ffa1d2e1fbe0b0b3d4cf1f43db83343f.tar.bz2
drakx-d0e835b7ffa1d2e1fbe0b0b3d4cf1f43db83343f.tar.xz
drakx-d0e835b7ffa1d2e1fbe0b0b3d4cf1f43db83343f.zip
added useless function type2interface for future use
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/tools.pm15
1 files changed, 13 insertions, 2 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index ecd1f1974..2129313c2 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -6,7 +6,7 @@ use vars qw(@ISA @EXPORT);
use MDK::Common::Globals "network", qw($in $prefix $disconnect_file $connect_prog $connect_file $disconnect_file);
@ISA = qw(Exporter);
-@EXPORT = qw(write_cnx_script write_secret_backend ask_connect_now connect_backend disconnect_backend read_providers_backend ask_info2 connected disconnected);
+@EXPORT = qw(write_cnx_script write_secret_backend ask_connect_now connect_backend disconnect_backend read_providers_backend ask_info2 type2interface connected disconnected);
@EXPORT_OK = qw($in);
sub write_cnx_script {
@@ -88,6 +88,17 @@ sub ask_info2 {
1;
}
-sub connected { gethostbyname("www.mandrakesoft.com") ? 1 : 0; }
+sub type2interface {
+ my ($i) = @_;
+ $i=~/$_->[0]/ and return $_->[1] foreach (
+ [ modem => 'ppp'],
+ [ isdn_internal => 'ippp'],
+ [ isdn_external => 'ppp'],
+ [ adsl => 'ppp'],
+ [ cable => 'eth'],
+ [ lan => 'eth']);
+}
+
+sub connected { gethostbyname("www.mandrakesoft.com") ? 1 : 0 }
sub disconnected { }