# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/sbin/snappd/scripts/DHCPInterface.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
# @(#)84        1.4  src/bos/usr/sbin/snappd/scripts/DHCPInterface.pl, snapp, bos720 5/31/02 07:49:36

#-----------------------------------------------------------
#-------- Name DHCPInterface.pl
#-----------------------------------------------------------
#-------- This page is the entry point for the configuration
#-------- of DHCP on different Interfaces.
#-----------------------------------------------------------
#-------- Links to Pages: DHCPSEthernet.pl, 
#--------                 DHCP3EEthernet.pl,
#--------                 DHCPTokenRing.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>DHCP Interface Type</TITLE>
 	<W>100</W> 
 	<H>15</H> 
 	<X>20</X> 
 	<Y>5</Y> 

 	<W>150</W>
 	<DY>30</DY>
 	<LABEL>Please Choose Interface Type</LABEL>
 	
 	<W>70</W>
 	<X>10</X>
 	<DY>20</DY>
 	<LABEL>Interface</LABEL>
 	<DX>90</DX>
 	<LABEL># Available</LABEL>
 	
 	<X>10</X>
 	<W>85</W>
 	<DY>20</DY>
 	<BUTTON Name="DHCPSEthernet.pl">Standard Ethernet</BUTTON>
 	<DX>115</DX>
 	<LABEL>$SELength</LABEL>
 	
 	<X>10</X>
 	<DY>20</DY>
 	<BUTTON Name="DHCP3EEthernet.pl">IEEE Ethernet</BUTTON>
 	<DX>115</DX>
 	<LABEL>$EEELength</LABEL>
 	
 	<X>10</X>
 	<DY>20</DY>
 	<BUTTON Name="DHCPTokenRing.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");