#!/usr/bin/perl
################################################################################
# This software program is available to you under a choice of one of two 
# licenses. You may choose to be licensed under either the GNU General Public 
# License 2.0, June 1991, available at http://www.fsf.org/copyleft/gpl.html, 
# or the Intel BSD + Patent License, the text of which follows:
# 
# Recipient has requested a license and Intel Corporation ("Intel") is willing
# to grant a license for the software entitled Linux Intel Advanced Network
# Services (iANS) (the "Licensed Program") being provided by Intel Corporation.
# The following definitions apply to this license:
# 
# "Licensed Patents" means patent claims licensable by Intel Corporation which 
# are necessarily infringed by the use of sale of the Software alone or when 
# combined with the operating system referred to below.
# 
# "Recipient" means the party to whom Intel delivers this Software.
# 
# "Licensee" means Recipient and those third parties that receive a license to 
# any operating system available under the GNU General Public License 2.0 or 
# later.
# 
# Copyright (c) 1999 - 2002 Intel Corporation.
# All rights reserved.
# 
# The license is provided to Recipient and Recipient's Licensees under the 
# following terms.
# 
# Redistribution and use in source and binary forms of the Software, with or 
# without modification, are permitted provided that the following conditions 
# are met:
# 
# Redistributions of source code of the Software may retain the above 
# copyright notice, this list of conditions and the following disclaimer.
# 
# Redistributions in binary form of the Software may reproduce the above 
# copyright notice, this list of conditions and the following disclaimer in 
# the documentation and/or materials provided with the distribution.
# 
# Neither the name of Intel Corporation nor the names of its contributors 
# shall be used to endorse or promote products derived from this Software 
# without specific prior written permission.
# 
# Intel hereby grants Recipient and Licensees a non-exclusive, worldwide, 
# royalty-free patent license under Licensed Patents to make, use, sell, offer 
# to sell, import and otherwise transfer the Software, if any, in source code 
# and object code form. This license shall include changes to the Software 
# that are error corrections or other minor changes to the Software that do 
# not add functionality or features when the Software is incorporated in any 
# version of an operating system that has been distributed under the GNU 
# General Public License 2.0 or later. This patent license shall apply to the 
# combination of the Software and any operating system licensed under the GNU 
# General Public License 2.0 or later if, at the time Intel provides the 
# Software to Recipient, such addition of the Software to the then publicly 
# available versions of such operating systems available under the GNU General 
# Public License 2.0 or later (whether in gold, beta or alpha form) causes 
# such combination to be covered by the Licensed Patents. The patent license 
# shall not apply to any other combinations which include the Software. NO 
# hardware per se is licensed hereunder.
# 
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
# IMPLIED WARRANTIES OF MECHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
# ARE DISCLAIMED. IN NO EVENT SHALL INTEL OR IT CONTRIBUTORS BE LIABLE FOR ANY 
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 
# (INCLUDING, BUT NOT LIMITED, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
# ANY LOSS OF USE; DATA, OR PROFITS; OR BUSINESS INTERUPTION) HOWEVER CAUSED 
# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY OR 
# TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
################################################################################

#   /***************************************************************************
#   **                                                                        **
#   ** INTEL CORPORATION                                                      **
#   **                                                                        **
#   ** This software is supplied under the terms of the license included      **
#   ** above.  All use of this software must be in accordance with the terms  **
#   ** of that license.                                                       **
#   **                                                                        **
#   **  Abstract:                                                             **
#   **    Configuration script for ANS -step 1/3- Base Driver installation    **
#   **    (SuSE).                                                             **
#   **                                                                        **
#   ***************************************************************************/

use general;

# PROBING LOOP - LOAD ALL DRIVERS
print "\n-- Activating all network interfaces.\n\n";
$interfaces=`. /etc/rc.config; DEVS=; for I in \$NETCONFIG; do eval NETDEV=\\\$NETDEV\$I; DEVS="\$DEVS \$NETDEV"; done; echo \$DEVS`;

@interfaces=split(" ", $interfaces);

foreach (@interfaces)
{
	 `ifconfig $_ >& /dev/null`;
}

print "-- Removing all Intel interfaces.\n\n";
print "The configuration utility could now automatically bring down ALL network\n";
print "interfaces, or let you manually select only the interfaces concerning Intel\n";
print "adapters. Would you like the configuration utility to remove all network\n";
print "interfaces automatically? ";

$auto = (options("y", "n") eq "y");
foreach (`\\cat /proc/net/dev`)
{
	 if (s/^\ *(.*):.*$/\1/)
	 {
		  chomp;
		  unless ($auto)
		  {
				print "Remove network interface $_? ";
				$res  = (options("y", "n") eq "y");
		  }
		  `ifconfig $_ down >& /dev/null` if ($res || $auto);
	 }
}


print "\n-- Replacing old Intel drivers with new drivers.\n\n";

foreach (@MODS100)
{
	 remove_module($_);
}
$res1 = system("insmod e100 >& /dev/null");
foreach (@MODS1000)
{
	 remove_module($_);
}
$res2 = system("insmod e1000 >& /dev/null");
die "Unable to install drivers\n" if ($res1 && $res2);

open (OUT, ">>$CONF");
print OUT "#NEXT LINES INSERTED BY IANS CONFIGURATION PROCESS\n";
foreach (`\\ls $PROCDIR`)
{
	 chomp;
	 next unless -d "$PROCDIR/$_";
	 $driver_name = `\\cat $PROCDIR/$_/Driver_Name`;
	 print OUT "alias $_ $driver_name";
}
close(OUT);

die "Unable to install ANS\n" if (system("insmod ians >& /dev/null"));

sub remove_module
{
	 my($mod_name) = @_;
	 my(@file);
	 `rmmod $mod_name >& /dev/null`;
	 @file = `\\cat $CONF`;
	 open (OUT, ">$CONF");
	 foreach $line (@file)
	 {
		  if ($line=~/^[^#]*\b$mod_name\b/)
		  {
				print OUT "#NEXT LINE COMMENTED OUT BY IANS CONFIGURATION PROCESS\n";
				print OUT "#$line\n";
		  }
		  else
		  {
				print OUT $line;
		  }
	 }
	 close(OUT);
}


