perl-install/pixmaps/langs/lang-ku.png

package network::network; # $Id$wir

#-######################################################################################
#- misc imports
#-######################################################################################

use strict;

use Socket;
use common;
use detect_devices;
use run_program;
use any;
use vars qw(@ISA @EXPORT);
use log;


@ISA = qw(Exporter);
@EXPORT = qw(resolv configureNetworkIntf netmask dns is_ip masked_ip findIntf addDefaultRoute read_all_conf dnsServers guessHostname configureNetworkNet read_resolv_conf read_interface_conf add2hosts gateway configureNetwork2 write_conf sethostname down_it read_conf write_resolv_conf up_it);

#-######################################################################################
#- Functions
#-######################################################################################
sub read_conf {
    my ($file) = @_;
    { getVarsFromSh($file) }
}

sub read_resolv_conf {
    my ($file) = @_;
    my @l = map { if_(/^\s*nameserver\s+(\S+)/, $1) } cat_($file);

    my %netc = mapn { $_[0] => $_[1] } [ qw(dnsServer dnsServer2 dnsServer3) ], \@l;
    \%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 read_tmdns_conf {
    my ($file) = @_;
    local *F; open F, $file or die "cannot open file $file: $!";
    local $_;
    my %outf;

    while (<F>) {
	($outf{ZEROCONF_HOSTNAME}) = /^\s*hostname\s*=\s*(\w+)/ and return \%outf;
    }
    
    \%outf;
}

sub up_it {
    my ($prefix, $intfs) = @_;
    $_->{isUp} and return foreach values %$intfs;
    my $f = "/etc/resolv.conf"; symlink "$prefix/$f", $f;
ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 a8 00 00 00 0f 08 06 00 00 00 70 52 84	.PNG........IHDR.............pR.
0020	e2 00 00 01 b7 49 44 41 54 78 9c ed d8 3d 68 15 41 10 c0 f1 9f e1 f9 62 21 9a 42 04 49 11 04 ab	.....IDATx...=h.A......b!.B.I...
0040	14 82 11 04 bb 07 a2 98 2a 56 11 44 44 04 4b 11 ec 6c c4 46 10 44 51 8b 04 b5 b2 b0 48 61 63 91	........*V.DD.K..l.F.DQ.....Hac.
0060	56 ac d2 88 16 51 2b 11 b1 50 fc 00 45 b1 30 0a b1 d8 0b ef dc dc c9 91 10 de d3 cc bf b9 9b d9	V....Q+..P..E.0.................
0080	9d d9 29 86 99 d9 a5 3f d8 8b 3b d8 de eb 40 82 fe 62 a0 47 e7 76 b0 88 21 6c c2 5d 0c 62 ba 47	..)....?..;...@..b.G.v..!l.].b.G
00a0	f1 04 7d ca 00 8e 48 c9 b2 ab a4 6f e1 36 be 61 7c 8d 63 b8 84 19 9c 28 e4 63 6b 7c 5e f0 8f 91	..}...H....o.6.a\|.c....(.ck\|^...
00c0	27 e8 66 cc e2 2d c6 56 e9 7b b0 46 df d1 ad a0 41 50 4b de e2 77 e0 11 46 b0 1f 4f 0a 7d c7 f2	'.f..-.V.{.F....APK..w..F..O.}..
00e0	84 ca 75 4b f2 71 cc 4b d5 f7 0c 36 e2 1a 3e e1 3b 1e 60 38 3b b7 ca 7f 10 68 95 fe 47 71 13 af	..uK.q.K...6..>.;.`8;....h..Gq..
0100	71 00 5f 56 e8 f3 2c 26 f0 4a aa c6 d7 71 14 27 a5 84 1f 2f 74 41 d0 88 a5 16 ff 03 73 68 57 ec	q._V..,&.J...q.'.../tA......shW.
0120	e9 68 5e 41 0f 96 f6 0c 61 01 a7 33 7f 57 6b 6c a3 82 06 7f 50 6e f1 f7 b1 0f a7 56 e9 73 be f4	.h^A....a..3.Wkl....Pn.....V.s..
0140	3f 2a b5 f8 87 d9 9e 5c 0e 82 4a ca 2d fe 02 9e 62 4a aa 64 97 4b 6b 8b 15 b6 1b 6a 7c fe aa d0	?*.....\..J.-...bJ.d.Kk....j\|...
0160	2d 64 f2 cf a6 01 06 eb 9b 56 26 5f c1 67 dc c2 56 9c 2f f4 5f 8b ef 16 dd d9 74 67 03 ff 2f a4	-d.......V&_.g..V./._.....tg../.
0180	84 1d c3 9b 92 7e cf 4a 82 0d d6 27 55 ef a0 93 52 d5 9b 92 c6 80 36 3e e2 62 b1 3e 8c 67 aa e7	.....~.J...'U...R.....6>.b.>.g..
01a0	c8 6d 99 ff 69 3c d7 bd b9 ef c6 bb 1a db 98 41 83 65 54 25 28 1c 96 9e 85 ee 49 95 f6 10 5e e2	.m..i<.........A.eT%(.....I...^.
01c0	03 1e e3 9c 66 09 da c6 0d bc 97 6e f6 73 7f b1 8d 04 0d 82 20 08 82 20 f8 ff f9 0d b1 5f 5b 5c	....f......n.s..............._[\
01e0	05 64 11 3a 00 00 00 00 49 45 4e 44 ae 42 60 82	.d.:....IEND.B`.