#!/usr/bin/perl
#--------------------------------------------------------------------------------
#--------------------------------------------------------------------------------
# Copyright (c) 1999 - 2000, Intel Corporation 
#
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without 
# modification, are permitted provided that the following conditions are met:
#
# 1. Redistributions of source code must retain the above copyright notice, 
#    this list of conditions and the following disclaimer.
#
# 2. Redistributions in binary form must reproduce the above copyright notice,
#    this list of conditions and the following disclaimer in the documentation 
#    and/or other materials provided with the distribution.
#
# 3. Neither the name of Intel Corporation nor the names of its contributors 
#    may be used to endorse or promote products derived from this software 
#    without specific prior written permission.
#
# 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 MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# DISCLAIMED. IN NO EVENT SHALL CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
# PROFITS; OR BUSINESS INTERRUPTION) 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:                                                             **
#   **    Unconfiguration script for ANS (SuSE).                              **
#   **                                                                        **
#   ***************************************************************************/
use general;

@vadapters=`grep -i vadapter /etc/ians/ians.conf`;
foreach $vadapter (@vadapters)
{
    $vadapter=~s/\s*VADAPTER\t//;
    chomp $vadapter;
    setonboot ($vadapter, "no");
    `ifconfig $vadapter down`;
}

@members=`grep -i member /etc/ians/ians.conf`;
foreach $member (@members)
{
    $member=~s/\s*MEMBER\t//;
    chomp $member;
    print "Adapter $member was a member of the ANS configuration.\n";
    print "If you would like it to load on boot please edit /etc/rc.config";
}

for ($i = 1; $i <= 5; $i++)
{
	 `rm -f $LINKSDIR/rc$i.d/S${STARTLEVEL}ans`;
	 `rm -f $LINKSDIR/rc$i.d/K${KILLLEVEL}ans`;
}
`rm -f $SCRIPTDIR/ans`;
`rmmod ians`;

print "\n\nConfiguration of ANS removed succesfully\n";
print "Network configuration restored to the configuration prior to ANS\n";
print "installation. To apply the configuration you must restart the\n";
print "network\n";
