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

#-----------------------------------------------------------
#-------- Name DHCPSetup.pl
#-----------------------------------------------------------
#-------- This page requests that the user specify when
#-------- they want DHCP to be started.
#-----------------------------------------------------------
#-------- Links to pages: DoDHCPSetup.pl

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

#----- get the user entered data from the command line

$interface = @ARGV[0];

#generate page, this page also includes a link to view the message that was returned
open(OUTFILE,">/var/snapp/snapp.fres.tmp");
print OUTFILE <<EOXML;

<PAGE>
  <TITLE>DHCP Configuration ($interface):</TITLE>
<W>150</W>
<H>15</H>
<X>5</X>
<Y>30</Y>
<DY>5</DY>
<LABEL>DHCP Options: (Optional)</LABEL>
<DY>15</DY>
<DX>15</DX>
<LABEL>Hostname:</LABEL>
<DX>65</DX>
<W>60</W>
<FIELD Name="Option12"></FIELD>

<W>150</W>
<H>12</H>
<X>5</X>
<DY>30</DY>
<LABEL>When Do You Want To Start DHCP ?</LABEL>
<W>120</W>
<X>20</X>
<DY>20</DY>
<BUTTON Name="DoDHCPSetup.pl 2 $interface">Now</BUTTON>
<DY>20</DY>
<BUTTON Name="DoDHCPSetup.pl 4 $interface">Now and at System Restart</BUTTON>

</PAGE>

EOXML


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