no_comment

1 files changed, 129 insertions, 0 deletions

diff --git a/perl-install/network.pm b/perl-install/network.pm
new file mode 100644
index 000000000..29edb4ff3
--- /dev/null
+++ b/perl-install/network.pm
@@ -0,0 +1,129 @@
+package network;
+
+use diagnostics;
+use strict;
+
+use Socket;
+
+use common qw(:common :file :system);
+use detect_devices;
+use modules;
+use log;
+
+1;
+
+
+sub read_conf {
+    my ($file) = @_;
+    my %netc = getVarsFromSh($file);
+    \%netc;
+}
+
+sub read_interface_conf {
+    my ($file) = @_;
+    my %intf = getVarsFromSh($file) or die "cannot open file $file: $!";
+
+    $intf{BOOTPROTO} ||= 'static';
+    $intf{isPtp} = $intf{NETWORK} eq '255.255.255.255';
+    $intf{isUp} = 1;
+    \%intf;
+}
+
+sub write_conf {
+    my ($file, $netc) = @_;
+
+    add2hash($netc, {
+		     NETWORKING => "yes", 
+		     FORWARD_IPV4 => "false", 
+		     HOSTNAME => "localhost.localdomain",
+		     DOMAINNAME => "localdomain",
+		     });
+		     
+    setVarsInSh($file, $netc, qw(NETWORKING FORWARD_IPV4 HOSTNAME DOMAINNAME GATEWAY GATEWAYDEV));
+}
+
+sub add2hosts {
+    my ($file, $ip, $hostname) = @_;
+    my %l = ($ip => $hostname);
+
+    local *F;
+    if (-e $file) {
+	open F, $file or die "cannot open $file: $!";
+	/\s*(\S+)(.*)/ and $l{$1} = $2 foreach <F>;
+    }
+    log::l("writing host information to $file");
+    open F, ">$file" or die "cannot write $file: $!";
+    while (my ($ip, $v) = each %l) {
+	print F "$ip";
+	if ($v =~ /^\s/) {
+	    print F $v;
+	} else {
+	    print F "\t\t$v";
+	    print F " $1" if $v =~ /(.*?)\./;
+	}
+	print F "\n";
+    }
+}
+
+sub write_resolv_conf {
+    my ($file, $netc) = @_;
+
+    # We always write these, even if they were autoconfigured. Otherwise, the reverse name lookup in the install doesn't work. 
+    unless ($netc->{DOMAINNAME} || $netc->{dnsServers}) {
+	unlink($file);
+	log::l("neither domain name nor dns server are configured");
+	return 0;
+    }
+    my @l = cat_($file);
+
+    local *F;
+    open F, "> $file" or die "cannot write $file: $!";
+    print F "search $netc->{DOMAINNAME}\n" if $netc->{DOMAINNAME};
+    print F "nameserver $_\n" foreach @{$netc->{dnsServers}};
+    print F "#$_" foreach @l;
+
+    #res_init();		# reinit the resolver so DNS changes take affect 
+    1;
+}
+
+sub write_interface_conf {
+    my ($file, $intf) = @_;
+
+    add2hash($intf, { ONBOOT => "yes" });
+    setVarsInSh($file, $intf, qw(DEVICE BOOTPROTO IPADDR NETMASK NETWORK BROADCAST ONBOOT));
+}
+
+
+# The interface/gateway needs to be configured before this will work! 
+sub guessHostname {
+    my ($prefix, $netc, $intf) = @_;
+
+    $intf->{isUp} && $netc->{dnsServers} or return 0;
+    $netc->{HOSTNAME} && $netc->{DOMAINNAME} and return 1;
+
+    write_resolv_conf("$prefix/etc/resolv.conf", $netc);
+
+#    winStatus(40, 3, _("Hostname"), _("Determining host name and domain..."));
+    my $name = gethostbyaddr(Socket::inet_aton($intf->{IPADDR}), AF_INET) or log::l("reverse name lookup failed"), return 0;
+
+    log::l("reverse name lookup worked");
+
+    add2hash($netc, { HOSTNAME => $name, DOMAINNAME => $name =~ /\.(.*)/ });
+    1;
+}
+
+sub addDefaultRoute {
+    my ($netc) = @_;
+    c::addDefaultRoute($netc->{gateway}) if $netc->{gateway} || !$::testing;
+}
+
+sub getAvailableNetDevice {
+    my $device = detect_devices::getNet();
+
+    unless ($device) {
+	modules::load_thiskind('net') or return;
+	$device = detect_devices::getNet();
+    }
+    $device;
+}
+