diff options
Diffstat (limited to 'perl-install/network/netconnect.pm')
| -rw-r--r-- | perl-install/network/netconnect.pm | 597 |
1 files changed, 597 insertions, 0 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm new file mode 100644 index 000000000..73a00a64e --- /dev/null +++ b/perl-install/network/netconnect.pm @@ -0,0 +1,597 @@ + +package netconnect; + +use diagnostics; +use strict; +use vars qw($in $install $prefix $isdn_init @isdndata %isdnid2type $connect_file $disconnect_file $connect_prog); + +use common qw(:common :file :functional :system); +use log; +use detect_devices; +use run_program; +use network::netconnect_consts; +use modules; +use any; +use mouse; +use network; +use commands; +#require Data::Dumper; + +use network::tools; + +$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"; + +sub init { ($prefix, $in, $install) = @_ } + +#- intro is called only in standalone. +sub intro { + ($prefix, my $netcnx, $in, $install) = @_; + my ($netc, $mouse, $intf) = ({}, {}, {}); + my $text; + my $connected; + read_net_conf($netcnx, $netc); + if (!$::isWizard) { + if (connected($netc)) { + $text=_("You are currently connected to internet.") . (-e $disconnect_file ? _("\nYou can disconnect or reconfigure your connection.") : _("\nYou can reconfigure your connection.")); + $connected=1; + } else { + $text=_("You are not currently connected to Internet.") . (-e $connect_file ? _("\nYou can connect to Internet or reconfigure your connection.") : _("\nYou can reconfigure your connection.")); + $connected=0; + } + my @l=( + !$connected && -e $connect_file ? { description => _("Connect to Internet"), + c => 1} : (), + $connected && -e $disconnect_file ? { description => _("Disconnect from Internet"), + c => 2} : (), + { description => _("Configure network connection (LAN or Internet)"), + c => 3}, + ); + my $e = $in->ask_from_listf(_("Internet connection & configuration"), + _($text), + sub { $_[0]{description} }, + \@l ); + run_program::rooted($prefix, $connect_prog) if ($e->{c}==1); + run_program::rooted($prefix, $disconnect_file) if ($e->{c}==2); + main($prefix, $netcnx, $netc, $mouse, $in, $intf, $install, 0, 0) if ($e->{c}==3); + } else { + main($prefix, $netcnx, $netc, $mouse, $in, $intf, $install, 0, 0); + } +} + +sub detect { + my ($auto_detect, $net_install) = @_; + my $isdn={}; + require network::isdn; + network::isdn->import; + isdn_detect_backend($isdn); + $auto_detect->{isdn}{$_}=$isdn->{$_} foreach qw(description vendor id driver card_type type); + $auto_detect->{isdn}{description} =~ s/.*\|//; + + any::setup_thiskind_backend('net', undef); + require network::ethernet; + network::ethernet->import; + my @all_cards = conf_network_card_backend ('', undef, undef, undef, undef, undef, undef); + require network::adsl; + network::adsl->import; + map { + ( !$net_install and adsl_detect("", $_->[0]) ) ? $auto_detect->{adsl}=$_->[0] : $auto_detect->{lan}{$_->[0]}=$_->[1]; } @all_cards; + my $modem={}; + require network::modem; + network::modem->import; + modem_detect_backend($modem);#, $mouse); + $modem->{device} and $auto_detect->{modem}=$modem->{device}; +} + +sub main { + ($prefix, my $netcnx, my $netc, my $mouse, $in, my $intf, $install, my $first_time, my $direct_fr) = @_; + $netc->{minus_one}=0; #When one configure an eth in dhcp without gateway + $::isInstall and $in->set_help('configureNetwork'); + my $continue = !(!$::expert && values %$intf > 0 && $first_time); + $::isStandalone and read_net_conf($netcnx, $netc); # REDONDANCE with intro. FIXME + $netc->{NET_DEVICE}=$netcnx->{NET_DEVICE} if $netcnx->{NET_DEVICE}; # REDONDANCE with read_conf. FIXME + $netc->{NET_INTERFACE}=$netcnx->{NET_INTERFACE} if $netcnx->{NET_INTERFACE}; # REDONDANCE with read_conf. FIXME + network::read_all_conf($prefix, $netc ||= {}, $intf ||= {}); +# $in->set_help('') unless $::isStandalone; + +#use network::adsl; +#use network::ethernet; +#use network::isdn; +#use network::modem; + + my $configure_modem = sub { + require network::modem; + network::modem::configure($netcnx, $mouse, $netc); + }; + + my $configure_isdn = sub { + require network::isdn; + network::isdn::configure($netcnx, $netc); + }; + my $configure_adsl = sub { + require network::adsl; + network::adsl::configure($netcnx, $netc); + }; + my $configure_cable = sub { + $::isInstall and $in->set_help('configureNetworkCable'); + $netcnx->{type}='cable'; + # $netcnx->{cable}={}; + # $in->ask_from_entries_ref(_("Cable connection"), + # _("Please enter your host name if you know it. + # Some DHCP servers require the hostname to work. + # Your host name should be a fully-qualified host name, + # such as ``mybox.mylab.myco.com''."), + # [_("Host name:")], [ \$netcnx->{cable}{hostname} ]); + if ($::expert) { + #- dhcpcd, etc are program names; no need to translate them. + my @m=( + { description => "dhcpcd", + c => 1}, + { description => "dhcpxd", + c => 3}, + { description => "dhcp-client", + c => 4}, + ); + if (my $f = $in->ask_from_listf(_("Connect to the Internet"), + _("Which dhcp client do you want to use? +Default is dhcpcd"), + sub { $_[0]{description} }, + \@m )) { + $f->{c}==1 and $netcnx->{dhcp_client}="dhcpcd" and $install->(qw(dhcpcd)); + $f->{c}==3 and $netcnx->{dhcp_client}="dhcpxd" and $install->(qw(dhcpxd)); + $f->{c}==4 and $netcnx->{dhcp_client}="dhcp-client" and $install->(qw(dhcp-client)); + } + } else { + $install->(qw(dhcpcd)); + } + go_ethernet($netc, $intf, 'dhcp', '', '', $first_time); + }; + my $configure_lan = sub { + $::isInstall and $in->set_help('configureNetworkIP'); + network::configureNetwork($prefix, $netc, $in, $intf, $first_time) or return; + network::configureNetwork2($in, $prefix, $netc, $intf, $install); + if ($::isStandalone and $in->ask_yesorno(_("Network configuration"), + _("Do you want to restart the network"), 1)) { + run_program::rooted($prefix, "/etc/rc.d/init.d/network stop"); + if (!run_program::rooted($prefix, "/etc/rc.d/init.d/network start")) { + $in->ask_okcancel(_("Network Configuration"), _("A problem occured while restarting the network: \n\n%s", `/etc/rc.d/init.d/network start`), 0) or return; + } + } + $netc->{NETWORKING} = "yes"; + if ($netc->{GATEWAY}) { + $netcnx->{type}='lan'; + $netcnx->{NET_DEVICE} = $netc->{NET_DEVICE} = ''; + $netcnx->{NET_INTERFACE} = 'lan';#$netc->{NET_INTERFACE}; + } + output "$prefix$connect_file", + qq( +#!/bin/bash +/etc/rc.d/init.d/network restart +); + output "$prefix$disconnect_file", + qq( +#!/bin/bash +/etc/rc.d/init.d/network stop +/sbin/ifup lo +); + chmod 0755, "$prefix$disconnect_file"; + chmod 0755, "$prefix$connect_file"; + $::isStandalone and modules::write_conf($prefix); + 1; + }; + + modules::mergein_conf("$prefix/etc/modules.conf"); + + my $direct_net_install; + if ($first_time && $::isInstall && ($in->{method} eq "ftp" || $in->{method} eq "http" || $in->{method} eq "nfs")) { + (!$::expert or $in->ask_okcancel(_("Network Configuration"), + _("Because you are doing a network installation, your network is already configured. +Click on Ok to keep your configuration, or cancel to reconfigure your Internet & Network connection. +"), 1)) and do { + output "$prefix$connect_file", + qq( +#!/bin/bash +ifup eth0 +); + output "$prefix$disconnect_file", + qq( +#!/bin/bash +ifdown eth0 +); + chmod 0755, "$prefix$disconnect_file"; + chmod 0755, "$prefix$connect_file"; + $direct_net_install = 1; + goto step_5; +}; + } + + $netc->{autodetection}=1; + $netc->{autodetect}={}; + + step_1: + $::Wizard_no_previous=1; + my @profiles=get_profiles(); + $in->ask_from_entries_refH(_("Network Configuration Wizard"), + _("Welcome to The Network Configuration Wizard\n\nWe are about to configure your internet/network connection.\nIf you don't want to use the auto detection, deselect the checkbox.\n"), + [ + if_(@profiles > 1, { label => _("Choose the profile to configure"), val => \$netcnx->{PROFILE}, list => \@profiles }), + { label => _("Use auto detection"), val => \$netc->{autodetection}, type => 'bool' }, + ] + ) or goto step_5; + undef $::Wizard_no_previous; + set_profile($netcnx); + if ($netc->{autodetection}) { + my $w = $in->wait_message(_("Network Configuration Wizard"), _("Detecting devices...")); + detect($netc->{autodetect}, $::isInstall && ($in->{method} eq "ftp" || $in->{method} eq "http" || $in->{method} eq "nfs")); + } + + step_2: + my $set_default; + my %conf; + my @l = ( + [_("Normal modem connection"), $netc->{autodetect}{modem}, __("detected on port %s"), \$conf{modem}], + [_("ISDN connection"), $netc->{autodetect}{isdn}{description}, __("detected %s"), \$conf{isdn}], + [_("DSL (or ADSL) connection"), $netc->{autodetect}{adsl}, __("detected on interface %s"), \$conf{adsl}], + [_("Cable connection"), $netc->{autodetect}{cable}, __("cable connection detected"), \$conf{cable}], + [_("LAN connection"), $netc->{autodetect}{lan}, __("ethernet card(s) detected"), \$conf{lan}] + ); + my $i=0; + map { defined $set_default or do { $_->[1] and $set_default=$i; }; $i++; } @l; + foreach (keys %{$netc->{autodetect}}) { print "plop $_\n" }; +# my $e = $in->ask_from_listf(_("Network Configuration Wizard"), +# _("How do you want to connect to the Internet?"), sub { translate($_[0][0]) . if_($_[0][1], " - " . _ ($_[0][2], $_[0][1])) }, \@l , $l[$set_default] +# ) or goto step_1; + +# my @l2 = map { +#{ +# label => $_[0][0] . if_($_[0][1], " - " . _ ($_[0][2], $_[0][1])), +# val => $_[0][3], type => 'bool'} +# } @l; + my $e = $in->ask_from_entries_refH(_("Network Configuration Wizard"), + _("Choose"), + [ + map { { + label => $_->[0] . if_($_->[1], " - " . _ ($_->[2], $_->[1])), + val => $_->[3], type => 'bool'} } @l + ] + ) or goto step_1; + +# load_conf ($netcnx, $netc, $intf); + + $conf{modem} and do { $configure_modem->() or goto step_2 }; + $conf{isdn} and do { $configure_isdn->() or goto step_2 }; + $conf{adsl} and do { $configure_adsl->() or goto step_2 }; + $conf{cable} and do { $configure_cable->() or goto step_2 }; + $conf{lan} and do { $configure_lan->() or goto step_2 }; + + step_3: + + my $m = _("Congratulation, The network and internet configuration is finished. + +The configuration will now be applied to your system.") . if_($::isStandalone, +_("After that is done, we recommend you to restart your X +environnement to avoid hostname changing problem.")); + if ($::isWizard) { + $::Wizard_no_previous=1; + $::Wizard_finished=1; + $in->ask_okcancel(_("Network Configuration"), $m, 1); + undef $::Wizard_no_previous; + undef $::Wizard_finished; + } else { $in->ask_warn('', $m ); } + + step_5: + + network::configureNetwork2($in, $prefix, $netc, $intf, $install); + + if ($netcnx->{type} =~ /modem/ || $netcnx->{type} =~ /isdn_external/) { + output "$prefix$connect_prog", + qq( +#!/bin/bash +if [ -n "\$DISPLAY" ]; then +if [ -e /usr/bin/kppp ]; then +/usr/bin/kppp & +else +/usr/sbin/net_monitor --connect +fi +else +$connect_file +fi +); + } elsif ($netcnx->{type}) { + output "$prefix$connect_prog", + qq( +#!/bin/bash +if [ -n "\$DISPLAY" ]; then +/usr/sbin/net_monitor --connect +else +$connect_file +fi +); + } else { + output "$prefix$connect_prog", + qq( +#!/bin/bash +/usr/sbin/draknet +); + } + if ($direct_net_install) { + output "$prefix$connect_prog", + qq( +#!/bin/bash +if [ -n "\$DISPLAY" ]; then +/usr/sbin/net_monitor --connect +else +$connect_file +fi +); + } + chmod 0755, "$prefix$connect_prog"; + $netcnx->{$_}=$netc->{$_} foreach qw(NET_DEVICE NET_INTERFACE); + + $netcnx->{NET_INTERFACE} and set_net_conf($netcnx, $netc); + $netcnx->{type} =~ /adsl/ or system("/sbin/chkconfig --del adsl 2> /dev/null"); + save_conf($netcnx, $netc, $intf); + +#- if ($netc->{NET_DEVICE} and $netc->{NETWORKING} ne 'no' and $::isStandalone and $::expert) { +#- exists $netc->{nb_cards} or do { +#- any::setup_thiskind($in, 'net', !$::expert, 1); +#- $netc->{nb_cards} = listlength(detect_devices::getNet()); +#- }; +#- ($netc->{nb_cards} - $netc->{minus_one} - (get_net_device($prefix) =~ /eth.+/ ? 1 : 0) > 0) and $in->ask_okcancel(_("Network Configuration"), +#-_("Now that your Internet connection is configured, +#-your computer can be configured to share its Internet connection. +#-Note: you need a dedicated Network Adapter to set up a Local Area Network (LAN). +#- +#-Would you like to setup the Internet Connection Sharing? +#-"), 1) and system("/usr/sbin/drakgw --direct"); +#- } +} + +sub save_conf { + my ($netcnx, $netc, $intf)=@_; + my $adsl; + my $modem; + my $isdn; + $netcnx->{type} =~ /adsl/ and $adsl=$netcnx->{$netcnx->{type}}; + $netcnx->{type} eq 'isdn_external' || $netcnx->{type} eq 'modem' and $modem=$netcnx->{$netcnx->{type}}; + $netcnx->{type} eq 'isdn_internal' and $isdn=$netcnx->{$netcnx->{type}}; + any::setup_thiskind_backend('net', undef); + my @all_cards = conf_network_card_backend ($prefix, $netc, $intf, undef, undef, undef, undef); + + $intf = { %$intf }; + + output("$prefix/etc/sysconfig/network-scripts/draknet_conf", + "SystemName=" . do { $netc->{HOSTNAME} =~ /([^\.]*)\./; $1 } . " +DomainName=" . do { $netc->{HOSTNAME} =~ /\.(.*)/; $1 } . " +InternetAccessType=" . do { if ($netcnx->{type}) { $netcnx->{type}; } else { $netc->{GATEWAY} ? "lan" : ""; } } . " +InternetInterface=" . ($netc->{GATEWAY} && (!$netcnx->{type} || $netcnx->{type} eq 'lan') ? $netc->{NET_DEVICE} : $netcnx->{NET_INTERFACE}) . " +InternetGateway=$netc->{GATEWAY} +DNSPrimaryIP=$netc->{dnsServer} +DNSSecondaryIP=$netc->{dnsServer2} +DNSThirdIP=$netc->{dnsServer3} +AdminInterface= + +" . join ('', map { +"Eth${_}Known=" . ($intf->{"eth$_"}->{DEVICE} eq "eth$_" ? 'true' : 'false') . " +Eth${_}IP=" . $intf->{"eth$_"}{IPADDR} . " +Eth${_}Mask=" . $intf->{"eth$_"}{NETMASK} . " +Eth${_}Mac= +Eth${_}BootProto=" . $intf->{"eth$_"}{BOOTPROTO} . " +Eth${_}OnBoot=" . $intf->{"eth$_"}{ONBOOT} . " +Eth${_}Hostname=$netc->{HOSTNAME} +Eth${_}HostAlias=" . do { $netc->{HOSTNAME} =~ /([^\.]*)\./; $1 } . " +Eth${_}Driver=$all_cards[$_]->[1] +Eth${_}Irq= +Eth${_}Port= +Eth${_}DHCPClient=" . ($intf->{"eth$_"}{BOOTPROTO} eq 'dhcp' ? $netcnx->{dhcp_client} : '') . " +Eth${_}DHCPServerName=" . ($intf->{"eth$_"}{BOOTPROTO} eq 'dhcp' ? $netc->{HOSTNAME} : '') . "\n" + } (0..9)) . +" + +ISDNDriver=$isdn->{driver} +ISDNDeviceType=$isdn->{type} +ISDNIrq=$isdn->{irq} +ISDNMem=$isdn->{mem} +ISDNIo=$isdn->{io} +ISDNIo0=$isdn->{io0} +ISDNIo1=$isdn->{io1} +ISDNProtocol=$isdn->{protocol} +ISDNCardDescription=$isdn->{description} +ISDNCardVendor=$isdn->{vendor} +ISDNId=$isdn->{id} +ISDNProvider=$netc->{DOMAINNAME2} +ISDNProviderPhone=$isdn->{phone_out} +ISDNProviderDomain=" . do { $netc->{DOMAINNAME2} =~ /\.(.*)/; $1} . " +ISDNProviderDNS1=$netc->{dnsServer2} +ISDNProviderDNS2=$netc->{dnsServer3} +ISDNDialing=$isdn->{dialing_mode} +ISDNHomePhone=$isdn->{phone_in} +ISDNLogin=$isdn->{login} +ISDNPassword=$isdn->{passwd} +ISDNConfirmPassword=$isdn->{passwd2} + +PPPInterfacesList= +PPPDevice=$modem->{device} +PPPDeviceSpeed= +PPPConnectionName=$modem->{connection} +PPPProviderPhone=$modem->{phone} +PPPProviderDomain=$modem->{domain} +PPPProviderDNS1=$modem->{dns1} +PPPProviderDNS2=$modem->{dns2} +PPPLogin=$modem->{connection} +PPPPassword=$modem->{login} +PPPConfirmPassword=$modem->{passwd} +PPPAuthentication=$modem->{auth} +PPPSpecialCommand=" . ($netcnx->{type} eq 'isdn_external' ? $netcnx->{isdn_external}{special_command} : '' ) . " + +ADSLInterfacesList= +ADSLModem=" . q(# Obsolete information. Please don't use it.) . " +ADSLType=" . ($netcnx->{type} =~ /adsl/ ? $netcnx->{type} : '') . " +ADSLProviderDomain=$netc->{DOMAINNAME2} +ADSLProviderDNS1=$netc->{dnsServer2} +ADSLProviderDNS2=$netc->{dnsServer3} +ADSLLogin=$adsl->{login} +ADSLPassword=$adsl->{passwd} +DOMAINNAME2=$netc->{DOMAINNAME2}" + ); + chmod 0600, "$prefix/etc/sysconfig/network-scripts/draknet_conf"; + my $a = $netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default"; + commands::cp("-f", "$prefix/etc/sysconfig/network-scripts/draknet_conf", "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $a); + chmod 0600, "$prefix/etc/sysconfig/network-scripts/draknet_conf"; + chmod 0600, "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $a; + foreach ( ["$prefix$connect_file", "up"], ["$prefix$disconnect_file", "down"], ["$prefix$connect_prog", "prog"] ) { + my $file = "$prefix/etc/sysconfig/network-scripts/net_" . $_->[1] . "." . $a; + -e ($_->[0]) and commands::cp("-f", $_->[0], $file) and chmod 0755, $file; + } +} + +sub set_profile { + my ($netcnx, $profile) = @_; + $profile ||= $netcnx->{PROFILE}; + $profile or return; + my $f = "$prefix/etc/sysconfig/network-scripts/draknet_conf"; + -e ($f . "." . $profile) or return; + $netcnx->{PROFILE}=$profile; + print "changing to $profile\n"; + commands::cp("-f", $f . "." . $profile, $f); + foreach ( ["up", "$prefix$connect_file"], ["down", "$prefix$disconnect_file"], ["prog", "$prefix$connect_prog"]) { + my $c = "$prefix/etc/sysconfig/network-scripts/net_" . $_->[0] . "." . $profile; + -e ($c) and commands::cp("-f", $c, $_->[1]); + } +} + +sub del_profile { + my ($netcnx, $profile) = @_; + $profile or return; + $profile eq "default" and return; + print "deleting $profile\n"; + commands::rm("-f", "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $profile); + commands::rm("-f", "$prefix/etc/sysconfig/network-scripts/net_{up,down,prog}." . $profile); +} + +sub add_profile { + my ($netcnx, $profile) = @_; + $profile or return; + $profile eq "default" and return; + print "creating $profile\n"; + my $cmd1 = "$prefix/etc/sysconfig/network-scripts/draknet_conf." . ($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default"); + my $cmd2 = "$prefix/etc/sysconfig/network-scripts/draknet_conf." . $profile; + commands::cp("-f", $cmd1, $cmd2); +} + +sub get_profiles { + my @a; + my $i=0; + foreach (glob("/etc/sysconfig/network-scripts/draknet_conf.*")) { + s/.*\.//; + $a[$i] = $_; + $i++; + } + @a; +} + +sub load_conf { + my ($netcnx, $netc, $intf)=@_; + my $adsl_pptp={}; + my $adsl_pppoe={}; + my $modem={}; + my $isdn_external={}; + my $isdn={}; + my $system_name; + my $domain_name; + + if (-e "$prefix/etc/sysconfig/network-scripts/draknet_conf") { + foreach (cat_("$prefix/etc/sysconfig/network-scripts/draknet_conf")) { + /^DNSPrimaryIP=(.*)$/ and $netc->{dnsServer} = $1; + /^DNSSecondaryIP=(.*)$/ and $netc->{dnsServer2} = $1; + /^DNSThirdIP=(.*)$/ and $netc->{dnsServer3} = $1; + /^InternetAccessType=(.*)$/ and $netcnx->{type} = $1; + /^InternetInterface=(.*)$/ and $netcnx->{NET_INTERFACE} = $1; + /^InternetGateway=(.*)$/ and $netc->{GATEWAY} = $1; + /^SystemName=(.*)$/ and $system_name = $1; + /^DomainName=(.*)$/ and $domain_name = $1; + /^Eth([0-9])Known=true$/ and $intf->{"eth$1"}->{DEVICE} = "eth$1"; + /^Eth([0-9])IP=(.*)$/ && $intf->{"eth$1"}->{DEVICE} and $intf->{"eth$1"}{IPADDR} = $2; + /^Eth([0-9])Mask=(.*)\n/ && $intf->{"eth$1"}->{DEVICE} and $intf->{"eth$1"}{NETMASK} = $2; + /^Eth([0-9])BootProto=(.*)\n/ && $intf->{"eth$1"}->{DEVICE} and $intf->{"eth$1"}{BOOTPROTO} = $2; + /^Eth([0-9])OnBoot=(.*)\n/ && $intf->{"eth$1"}->{DEVICE} and $intf->{"eth$1"}{ONBOOT} = $2; + /^Eth([0-9])Hostname=(.*)\n/ && $intf->{"eth$1"}->{DEVICE} and $netc->{HOSTNAME} = $2; + /^Eth([0-9])Driver=(.*)\n/ && $intf->{"eth$1"}->{DEVICE} and $intf->{"eth$1"}{driver} = $2; + /^ISDNDriver=(.*)$/ and $isdn->{driver} = $1; + /^ISDNDeviceType=(.*)$/ and $isdn->{type} = $1; + /^ISDNIrq=(.*)/ and $isdn->{irq} = $1; + /^ISDNMem=(.*)$/ and $isdn->{mem} = $1; + /^ISDNIo=(.*)$/ and $isdn->{io} = $1; + /^ISDNIo0=(.*)$/ and $isdn->{io0} = $1; + /^ISDNIo1=(.*)$/ and $isdn->{io1} = $1; + /^ISDNProtocol=(.*)$/ and $isdn->{protocol} = $1; + /^ISDNCardDescription=(.*)$/ and $isdn->{description} = $1; + /^ISDNCardVendor=(.*)$/ and $isdn->{vendor} = $1; + /^ISDNId=(.*)$/ and $isdn->{id} = $1; + /^ISDNProviderPhone=(.*)$/ and $isdn->{phone_out} = $1; + /^ISDNDialing=(.*)$/ and $isdn->{dialing_mode} = $1; + /^ISDNHomePhone=(.*)$/ and $isdn->{phone_in} = $1; + /^ISDNLogin=(.*)$/ and $isdn->{login} = $1; + /^ISDNPassword=(.*)$/ and $isdn->{passwd} = $1; + /^ISDNConfirmPassword=(.*)$/ and $isdn->{passwd2} = $1; + + /^PPPDevice=(.*)$/ and $modem->{device} = $1; + /^PPPConnectionName=(.*)$/ and $modem->{connection} = $1; + /^PPPProviderPhone=(.*)$/ and $modem->{phone} = $1; + /^PPPProviderDomain=(.*)$/ and $modem->{domain} = $1; + /^PPPProviderDNS1=(.*)$/ and $modem->{dns1} = $1; + /^PPPProviderDNS2=(.*)$/ and $modem->{dns2} = $1; + /^PPPLogin=(.*)$/ and $modem->{login} = $1; + /^PPPPassword=(.*)$/ and $modem->{passwd} = $1; + /^PPPAuthentication=(.*)$/ and $modem->{auth} = $1; + if (/^PPPSpecialCommand=(.*)$/) { + $netcnx->{type} eq 'isdn_external' and $netcnx->{$netcnx->{type}}{special_command} = $1; + } + /^ADSLLogin=(.*)$/ and $adsl_pppoe->{login} = $1; + /^ADSLPassword=(.*)$/ and $adsl_pppoe->{passwd} = $1; + /^DOMAINNAME2=(.*)$/ and $netc->{DOMAINNAME2} = $1; + } + } + $system_name && $domain_name and $netc->{HOSTNAME}=join ('.', $system_name, $domain_name); + $adsl_pptp->{$_}=$adsl_pppoe->{$_} foreach ('login', 'passwd', 'passwd2'); + $isdn_external->{$_}=$modem->{$_} foreach ('device', 'connection', 'phone', 'domain', 'dns1', 'dns2', 'login', 'passwd', 'auth'); + $netcnx->{adsl_pptp}=$adsl_pptp; + $netcnx->{adsl_pppoe}=$adsl_pppoe; + $netcnx->{modem}=$modem; + $netcnx->{modem}=$isdn_external; + $netcnx->{isdn_internal}=$isdn; + -e "$prefix/etc/sysconfig/network" and put_in_hash($netc,network::read_conf("$prefix/etc/sysconfig/network")); + foreach (glob_("$prefix/etc/sysconfig/ifcfg-*")) { + my $l = network::read_interface_conf($_); + $intf->{$l->{DEVICE}} = $l; + } + my $file = "$prefix/etc/resolv.conf"; + if (-e $file) { + put_in_hash($netc, network::read_resolv_conf($file)); + } +} + +sub get_net_device { + ${{ getVarsFromSh("/etc/sysconfig/draknet") }}{NET_DEVICE}; +} + +sub read_net_conf { + my ($netcnx, $netc)=@_; + add2hash($netcnx, { getVarsFromSh("$prefix/etc/sysconfig/draknet") }); + $netc->{$_} = $netcnx->{$_} foreach 'NET_DEVICE', 'NET_INTERFACE'; +#- print "type : $netcnx->{type}\n device : $netcnx->{NET_DEVICE}\n interface : $netcnx->{NET_INTERFACE}\n"; + add2hash($netcnx->{$netcnx->{type}}, { getVarsFromSh("$prefix/etc/sysconfig/draknet." . $netcnx->{type}) }); +} + +sub set_net_conf { + my ($netcnx, $netc)=@_; + setVarsInShMode("$prefix/etc/sysconfig/draknet", 0600, $netcnx, "NET_DEVICE", "NET_INTERFACE", "type", "PROFILE" ); + setVarsInShMode("$prefix/etc/sysconfig/draknet." . $netcnx->{type}, 0600, $netcnx->{$netcnx->{type}}); #- doesn't work, don't know why + setVarsInShMode("$prefix/etc/sysconfig/draknet.netc", 0600, $netc); #- doesn't work, don't know why +} + +#--------------------------------------------- +# WONDERFULL pad +#--------------------------------------------- +1; |