drakx - Mageia Installer and base platform for many utilities

diff options

author	Matthias Badaire <mbadaire@mandriva.com>	2001-07-04 19:35:54 +0000
committer	Matthias Badaire <mbadaire@mandriva.com>	2001-07-04 19:35:54 +0000
commit	ff19b12f08a9a15cdbf8cf9363ccb1d64d9d8223 (patch)
tree	806cf012cb7d9a654eb837ebf796386f8173596f /make_boot_img
parent	49179d897c48c131d8e43d1e6da3ef013907f567 (diff)
download	drakx-ff19b12f08a9a15cdbf8cf9363ccb1d64d9d8223.tar drakx-ff19b12f08a9a15cdbf8cf9363ccb1d64d9d8223.tar.gz drakx-ff19b12f08a9a15cdbf8cf9363ccb1d64d9d8223.tar.bz2 drakx-ff19b12f08a9a15cdbf8cf9363ccb1d64d9d8223.tar.xz drakx-ff19b12f08a9a15cdbf8cf9363ccb1d64d9d8223.zip

Ia64 Adaptation

Diffstat (limited to 'make_boot_img')

-rwxr-xr-x

make_boot_img

1 files changed, 27 insertions, 1 deletions

package network::network; # $Id$wir #-###################################################################################### #- misc imports #-###################################################################################### use strict; use Socket; use common; use detect_devices; use run_program; use network::tools; use vars qw(@ISA @EXPORT); use log; my $network_file = "/etc/sysconfig/network"; my $resolv_file = "/etc/resolv.conf"; my $tmdns_file = "/etc/tmdns.conf"; @ISA = qw(Exporter); @EXPORT = qw(addDefaultRoute dns dnsServers gateway guessHostname is_ip is_ip_forbidden masked_ip netmask resolv sethostname); #- $net hash structure #- autodetect #- type #- net_interface #- PROFILE: selected netprofile #- network (/etc/sysconfig/network) : NETWORKING FORWARD_IPV4 NETWORKING_IPV6 HOSTNAME GATEWAY GATEWAYDEV NISDOMAIN #- NETWORKING : networking flag : string : "yes" by default #- FORWARD_IPV4 : forward IP flag : string : "false" by default #- HOSTNAME : hostname : string : "localhost.localdomain" by default #- GATEWAY : gateway #- GATEWAYDEV : gateway interface #- NISDOMAIN : nis domain #- NETWORKING_IPV6 : use IPv6, "yes" or "no" #- IPV6_DEFAULTDEV #- resolv (/etc/resolv.conf): dnsServer, dnsServer2, dnsServer3, DOMAINNAME, DOMAINNAME2, DOMAINNAME3 #- dnsServer : dns server 1 #- dnsServer2 : dns server 2 #- dnsServer3 : dns server 3 : note that we uses the dns1 for the LAN, and the 2 others for the internet conx #- DOMAINNAME : domainname : string : $net->{network}{HOSTNAME} =~ /\.(.*)/ by default #- DOMAINNAME2 : well it's another domainname : have to look further why we used 2 #- adsl: bus, Encapsulation, vpi, vci provider_id, method, login, passwd, ethernet_device, capi_card #- cable: bpalogin, login, passwd #- zeroconf: hostname #- auth: LDAPDOMAIN WINDOMAIN #- ifcfg (/etc/sysconfig/network-scripts/ifcfg-*): #- key : device name #- value : hash containing ifcfg file values, see write_interface_conf() for an exhaustive list #- DHCP_HOSTNAME : If you have a dhcp and want to set the hostname #- IPADDR : IP address #- NETMASK : netmask #- DEVICE : device name #- BOOTPROTO : boot prototype : "bootp" or "dhcp" or "pump" or ... #- IPV6INIT #- IPV6TO4INIT #- MS_DNS1 #- MS_DNS2 #- DOMAIN sub read_conf { my ($file) = @_; +{ getVarsFromSh($file) }; } sub read_resolv_conf_raw { my ($o_file) = @_; my $s = cat_($o_file || $::prefix . $resolv_file); { nameserver => [ $s =~ /^\s*nameserver\s+(\S+)/mg ], search => [ if_($s =~ /^\s*search\s+(.*)/m, split(' ', $1)) ] }; } sub read_resolv_conf { my ($o_file) = @_; my $resolv_conf = read_resolv_conf_raw($o_file); +{ (mapn { $_[0] => $_[1] } [ qw(dnsServer dnsServer2 dnsServer3) ], $resolv_conf->{nameserver}), (mapn { $_[0] => $_[1] } [ qw(DOMAINNAME DOMAINNAME2 DOMAINNAME3) ], $resolv_conf->{search}), }; } sub read_interface_conf { my ($file) = @_; my %intf = getVarsFromSh($file); $intf{BOOTPROTO} ||= 'static'; $intf{isPtp} = $intf{NETWORK} eq '255.255.255.255'; $intf{isUp} = 1; \%intf; } sub read_zeroconf() { cat_($::prefix . $tmdns_file) =~ /^\s*hostname\s*=\s*(\w+)/m && { ZEROCONF_HOSTNAME => $1 }; } sub write_network_conf { my ($net) = @_; if ($net->{network}{HOSTNAME} && $net->{network}{HOSTNAME} =~ /\.(.+)$/) { $net->{resolv}{DOMAINNAME} = $1; } $net->{network}{NETWORKING} = 'yes'; setVarsInSh($::prefix . $network_file, $net->{network}, qw(HOSTNAME NETWORKING GATEWAY GATEWAYDEV NISDOMAIN FORWARD_IPV4 NETWORKING_IPV6 IPV6_DEFAULTDEV)); } sub write_zeroconf { my ($net, $in) = @_; my $zhostname = $net->{zeroconf}{hostname}; my $file = $::prefix . $tmdns_file; if ($zhostname) { $in->do_pkgs->ensure_binary_is_installed('tmdns', 'tmdns', 'auto') if !$in->do_pkgs->is_installed('bind'); $in->do_pkgs->ensure_binary_is_installed('zcip', 'zcip', 'auto'); } #- write blank hostname even if disabled so that drakconnect does not assume zeroconf is enabled eval { substInFile { s/^\s*(hostname)\s*=.*/$1 = $zhostname/ } $file } if $zhostname || -f $file; require services; services::set_status('tmdns', $net->{zeroconf}{hostname}); } sub write_resolv_conf { my ($net) = @_; my $resolv = $net->{resolv}; my $file = $::prefix . $resolv_file; my %new = ( search => [ grep { $_ } uniq(@$resolv{'DOMAINNAME', 'DOMAINNAME2', 'DOMAINNAME3'}) ], nameserver => [ grep { $_ } uniq(@$resolv{'dnsServer', 'dnsServer2', 'dnsServer3'}) ], ); my (%prev, @unknown); foreach (cat_($file)) { s/\s+$//; s/^[#\s]*//; if (my ($key, $val) = /^(search|nameserver)\s+(.*)$/) { push @{$prev{$key}}, $val; } elsif (/^ppp temp entry$/) { } elsif (/\S/) { push @unknown, $_; } } unlink $file if -l $file; #- workaround situation when /etc/resolv.conf is an absolute link to /etc/ppp/resolv.conf or whatever if (@{$new{search}} || @{$new{nameserver}}) { $prev{$_} = [ difference2($prev{$_} || [], $new{$_}) ] foreach keys %new; my @search = do { my @new = if_(@{$new{search}}, "search " . join(' ', @{$new{search}}) . "\n"); my @old = if_(@{$prev{search}}, "# search " . join(' ', @{$prev{search}}) . "\n"); @new, @old; }; my @nameserver = do { my @new = map { "nameserver $_\n" } @{$new{nameserver}}; my @old = map { "# nameserver $_\n" } @{$prev{nameserver}}; @new, @old; }; output_with_perm($file, 0644, @search, @nameserver, (map { "# $_\n" } @unknown), "\n# ppp temp entry\n"); #-res_init(); # reinit the resolver so DNS changes take affect 1; } else { log::explanations("neither domain name nor dns server are configured"); 0; } } sub update_broadcast_and_network { my ($intf) = @_; my @ip = split '\.', $intf->{IPADDR}; my @mask = split '\.', $intf->{NETMASK}; $intf->{BROADCAST} = join('.', mapn { int($_[0]) | ((~int($_[1])) & 255) } \@ip, \@mask);


context:
space:
mode: