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


#---------------------------------------------------------------------
#--------Network Configuration page for Snapp Program	--------------
#---------------------------------------------------------------------
#--------This page is the entry point for the network 	--------------
#--------Configuration tools available for Snapp	--------------
#---------------------------------------------------------------------
#--------Links to Pages: IPMinConfig.pl, DHCPInterface.pl 	------
#---------------------------------------------------------------------

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

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

print OUTFILE <<EOXML;
<PAGE> 
 	<TITLE>Network Configuration</TITLE>
 	<W>120</W> 
 	<H>15</H> 
 	<X>26</X> 
 	<Y>45</Y> 

 	<LABEL>Please Choose Setup Type</LABEL>
 	
 	<X>20</X>
 	<W>120</W>
 	<DY>30</DY>
 	<BUTTON Name="IPMinConfig.pl">Minimum Configuration</BUTTON> 

 	<DY>25</DY>
 	<BUTTON Name="DHCPInterface.pl">Use DHCP</BUTTON> 

</PAGE>
EOXML

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