# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/sbin/snappd/scripts/IPMinConfig.pl 1.4 
#  
# Licensed Materials - Property of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2000,2002 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
#
#!/usr/bin/perl -T
# @(#)98        1.4  src/bos/usr/sbin/snappd/scripts/IPMinConfig.pl, snapp, bos720 5/31/02 07:50:22

#--------------------------------------------------------------------
#--------Minimum Configuration page for Snapp Program	-------------
#--------------------------------------------------------------------
#--------This page is the entry point for the Minimum 	-------------
#--------Configuration of different Interfaces, Has Links------------
#--------To various Interface Configuration Screens and shows	-----
#--------the number of Available Interfaces for each Type	-----
#--------------------------------------------------------------------
#--------Links to Pages: IPSEthernet.pl, IP3EEthernet.pl,	-----
#--------IPTokenRing.pl 		-----------------------------
#--------------------------------------------------------------------

$ENV{'PATH'} = '/bin:/usr/bin:/usr/sbin';

#gets the Number of Available Standard Ethernet Interfaces
$strSEthernet = `/usr/sbin/lsdev -Cc if | /usr/bin/grep en | /usr/bin/grep Ethernet`;
@nums = split(/\n/, $strSEthernet);
$SELength = @nums;


#gets the Number of Available IEEE Ethernet Interfaces
$strSEthernet = `/usr/sbin/lsdev -Cc if | /usr/bin/grep et | /usr/bin/grep IEEE | /usr/bin/grep Ethernet`;
@nums = split(/\n/, $strSEthernet);
$EEELength = @nums;

#gets the Number of Available Token Ring Interfaces
$strSEthernet = `/usr/sbin/lsdev -Cc if | /usr/bin/grep tr | /usr/bin/grep Token`;
@nums = split(/\n/, $strSEthernet);
$TRLength = @nums;

open(OUTFILE,">/var/snapp/snapp.fres.tmp");

print OUTFILE <<EOXML;
<PAGE> 
 	<TITLE>Minimum Configuration Setup</TITLE>
 	<W>150</W> 
 	<H>15</H> 
 	<X>10</X> 
 	<Y>35</Y> 

 	<LABEL>Please Choose Interface Type:</LABEL>
 	
 	<W>70</W>
 	<DY>20</DY>
 	<LABEL>Interface</LABEL>
 	<DX>90</DX>
 	<LABEL># Available</LABEL>
 	
 	<X>10</X>
 	<W>85</W>
 	<DY>20</DY>
 	<BUTTON Name="IPSEthernet.pl">Standard Ethernet</BUTTON>
 	<DX>115</DX>
 	<LABEL>$SELength</LABEL>
 	
 	<X>10</X>
 	<DY>22</DY>
 	<BUTTON Name="IP3EEthernet.pl">IEEE Ethernet</BUTTON>
 	<DX>115</DX>
 	<LABEL>$EEELength</LABEL>
 	
 	<X>10</X>
 	<DY>22</DY>
 	<BUTTON Name="IPTokenRing.pl">Token Ring</BUTTON>
 	<DX>115</DX>
 	<LABEL>$TRLength</LABEL> 
</PAGE>
EOXML

close(OUTFILE);
system("/usr/bin/cp /var/snapp/snapp.fres.tmp /var/snapp/snapp.fres");