#!/usr/bin/perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html

# Sample xCAT post script for configuring eth1 based on eth0 settings and
# some conventions. 
# This scripts works for both diskfull installs, diskless boots on AIX or Linux.
# the nic is passed as the only argument. All other required attributes are
# passed in as environment variables. These are set in mypostscript.tmpl as follows:
#
# NICNODE - the name of the node minus the NICHOSTNAMESUFFIXES
# NICIPS  - the ip address for this nic
# NICHOSTNAMESUFFIXES - the suffix to combine with the NICNODE for the hostname
# NICTYPES - for configeth - this must be ethernet
# NICCUSTOMSCRIPTS - parsed in confignics to invoke this script if set. (not used here)
# NICNETWORKS - the network this nic is attached to. Must also verify this network is 
#               set in the networks table.
# 

use strict;
use Socket;

my $nic = shift(@ARGV);
my $nicips = $ENV{NICIPS};
my $nicnetworks = $ENV{NICNETWORKS};
my $nichostnamesuffixes = $ENV{NICHOSTNAMESUFFIXES};
my $nicnode = $ENV{NICNODE};
my $net_cnt = $ENV{NETWORKS_LINES};

my $suffix = '';
my $netmask;
my $ipaddr = '';
my $nic_num = '';
my $subnet;
my $nic_net;

system("logger -t xcat -p local4.err  'configeth: NIC:                  $nic'");
system("logger -t xcat -p local4.err  'configeth: NICNETWORKS:          $nicnetworks'");
system("logger -t xcat -p local4.err  'configeth: NICIPS:               $nicips'");
system("logger -t xcat -p local4.err  'configeth: NICHOSTNAMESUFFIXES:  $nichostnamesuffixes'");

# get network or networks for this nic from NICNETWORKS: eth0:1_0_0_0-255_255_0_0,eth1:1_1_0_0
foreach my $networks (split(/,/,$nicnetworks)) {
    my @net = split(/:/,$networks);
    if ($net[0] eq $nic) {
        $nic_net = $net[1];
        last;
    }
}


# Find the matching network for the nic
my $cnt = 1;
my $net_info;

while ( $cnt <= $net_cnt ) {
    $net_info = $ENV{"NETWORKS_LINE$cnt"};
    if ( $net_info =~ /^netname=$nic_net\|\|/ ) {
        $net_info =~ /net=([^\|]*)\|\|/;
        $subnet = $1;
        $net_info =~ /mask=([^\|]*)\|\|/;
        $netmask = $1;
	$cnt = $net_cnt + 1;
    } 
    else {
        $cnt +=1 ; 
    }
}

# check that there is a subnet and netmask set
if ( !(length($subnet) > 0) || !(length($subnet) > 0) ) {
    system("logger -t xcat -p local4.err  'configeth: network subnet or netmask not set.'");
    exit 1;
}

# get ipaddress from $nicips: eth0:1.0.0.1,eth1:1.1.1.1
foreach my $ips (split(/,/,$nicips)) {
    my @ip = split(/:/,$ips);
    if ($ip[0] eq $nic ) {
        $ipaddr = $ip[1];
    }
}

# get nic suffix to create hostname: eth0:-eth0,eth1:-eth1
foreach my $suffixes (split(/,/,$nichostnamesuffixes)) {
    my @nic_suffix = split(/:/,$suffixes);
    if ($nic_suffix[0] eq $nic ) {
        $suffix = $nic_suffix[1];
    }
}

#  Do we really need to set gateway or is there a route that needs to be set
my $gateway;
#$gateway = '1.2.3.254';


my $hostname = "$nicnode$suffix";
#my $ip = &getipaddr($hostname);
#if (!$ip) { system("logger -t xcat -p local4.err  'configeth: cannot resolve $hostname.'"); exit 1; }

if ($^O =~ /^aix/i) { 
        if ($ipaddr =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
            runcmd("chdev -l '$nic' -a netaddr=$ipaddr -a netmask=$netmask -a state='up'");
#        } else { #ipv6
#            runcmd("autoconf6 -6i en$nic_num");
        }
}
elsif (($ENV{OSVER} && ($ENV{OSVER} =~ /sles|suse/i)) || (-f "/etc/SuSE-release")) { 
	# Write the info to the ifcfg file
	my $dir = "/etc/sysconfig/network";
	if (!open(FILE, ">$dir/ifcfg-$nic")) { system("logger -t xcat -p local4.err 'configeth: cannot open $dir/ifcfg-$nic.'"); exit 1; }
	# Not sure what is really REQUIRED from below -- copied the eth file from
	# the system
	print FILE "BOOTPROTO=\'static\'\n";
	print FILE "BROADCAST=\'\'\n";
	print FILE "ETHTOOL_OPTIONS=\'\'\n";
	print FILE "IPADDR=\'".$ipaddr."\'\n";
	print FILE "MTU=\'\'\n";
	print FILE "NAME=\'\'\n";
	print FILE "NETMASK=\'".$netmask."\'\n";
	print FILE "NETWORK=\'".$subnet."\'\n";
	print FILE "REMOTE_IPADDR=\'\'\n";
	print FILE "STARTMODE=\'onboot\'\n";
	print FILE "UNIQUE=\'\'\n";
	print FILE "USERCONTROL=\'no\'\n";
	print FILE "_nm_name=\'static-0\'\n";

	close FILE;
	runcmd("ifup $nic");

}
else {
	# Write the info to the ifcfg file
	my $dir = "/etc/sysconfig/network-scripts";
	if (!open(FILE, ">$dir/ifcfg-$nic")) { system("logger -t xcat -p local4.err 'configeth: cannot open $dir/ifcfg-$nic.'"); exit 1; }
	print FILE "DEVICE=$nic\n";
	print FILE "BOOTPROTO=none\n";
	print FILE "IPADDR=$ipaddr\n";
	print FILE "NETMASK=$netmask\n";
	if (defined($gateway)) { print FILE "GATEWAY=$gateway\n"; }
	print FILE "ONBOOT=yes\n";
	close FILE;

	runcmd("$dir/ifup $nic");

}
system("logger -t xcat -p local4.info 'configeth: successfully configured $nic.'");

exit 0;

sub runcmd {
	my $cmd = shift @_;
	$cmd .= ' 2>&1';
	my @output = `$cmd`;
	my $rc = $? >> 8;
	if ($rc) {
		system("logger -t xcat -p local4.err 'configeth: command $cmd failed with rc $rc: " . join('',@output) . "'");
		my $errout= "configeth: command $cmd failed with rc $rc.";
                echo $errout;
		exit $rc;
	}
}

#$master=$ENV{MASTER};
#if ($^O =~ /^aix/i) { }
#elsif (($ENV{OSVER} && ($ENV{OSVER} =~ /fedora/i)) || (-f "/etc/fedora-release")) { }
#elsif (($ENV{OSVER} && ($ENV{OSVER} =~ /sles|suse/i)) || (-f "/etc/SuSE-release")) { }
#$result=`grep "^SYSLOG_DAEMON=" $sysconfig 2>&1`;
#`logger -t xcat "Install: syslog setup"`;


# Take primary node name, add "-eth1" for linux and "-en1" for AIX  and 
#	then reverse resolve to get what ip should be
sub getipaddr()
{
    my ($iporhost) = @_;

    my $socket6support = eval { require Socket6 };

    if (($iporhost =~ /\d+\.\d+\.\d+\.\d+/) || ($iporhost =~ /:/))
    {
        #pass in an ip and only want an ip??
        return $iporhost;
    }

    if ($socket6support) # the getaddrinfo and getnameinfo supports both IPv4 and IPv6
    {
        my ($family, $socket, $protocol, $ip, $name) = Socket6::getaddrinfo($iporhost,0);
        if ($ip)
        {
            return (Socket6::getnameinfo($ip, Socket6::NI_NUMERICHOST()))[0];
        }
       return undef;
    }
    else
    {
         return inet_ntoa(inet_aton($iporhost))
    }
}