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

#---------------------------------------------------------------------------
#--------Ping page for Snapp Program		----------------------------
#---------------------------------------------------------------------------
#--------This page retreives the information to ping another IP	------------
#-------Address or Hostname, actual work done in Link		------------
#---------------------------------------------------------------------------
#--------	Links to Pages: IPDoPing.pl, IPStatus.pl	------------
#---------------------------------------------------------------------------

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

#----- start page gen
open(OUTFILE,">/var/snapp/snapp.fres.tmp");
print OUTFILE <<EOXML;
<PAGE>
<TITLE>Ping Test</TITLE>
EOXML

#----- details
print OUTFILE <<EOXML;

<W>100</W>
<H>12</H>
<X>35</X>
<Y>35</Y>
<LABEL>Enter Hostname or</LABEL>
<DY>10</DY>
<LABEL>IP Address to Ping:</LABEL>
<DY>15</DY>
<X>25</X>
<FIELD Name="ToPingValue"></FIELD>


<W>40</W>
<H>12</H>
<X>20</X>
<DY>65</DY>
<BUTTON Name="IPDoPing.pl">OK</BUTTON>
<DX>65</DX>
<BUTTON Name="IPStatus.pl">Cancel</BUTTON>

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