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

#---------------------------------------------------------------------
#--------Home page for Snapp Program	------------------------------
#---------------------------------------------------------------------
#--------This page is the entry point for the XML 	--------------
#--------Pages used with the Snapp Program		--------------
#---------------------------------------------------------------------
#--------Links to Pages: SRPasswd.pl, SetPage.pl, IPMain.pl ----------
#---------------------------------------------------------------------

#---------------------------------------------------------------------
#--------Tags Used by XML Parser Include:	----------------------
#---------------------------------------------------------------------
#--------<PAGE> _Some_Number_Of_Tags_ </PAGE> --> Allows -------------
#--------	the Palm to read a Full page * All XML  --------------
#--------	Pages must be included in the middle of these 	------
#--------	tags to be interpreted on the palm correctly 	------
#--------<W>_Number_Value_</W> --> Sets the Width of the Object	------
#--------<DW>_Number_Value_</DW> --> Changes the 'W' value by  	------
#--------	_Number_Value_					------ 
#--------<H>_Number_Value_</H> --> Sets the Height of the Object -----
#--------<DH>_Number_Value_</DH> --> Changes the 'H' value by 	------
#--------	_Number_Value_					------ 	
#--------<X>_Number_Value_</X> --> Sets the postion from the left-----
#-------- 	side of the screen				------
#--------<DX>_Number_Value_</DX> --> Changes the 'X' value by 	------
#--------	_Number_Value_					------
#--------<Y>_Number_Value_</Y> --> Sets the postion from the top -----
#--------	of the screen					------		
#--------<DY>_Number_Value_</DY> --> Changes the 'Y' value by 	------
#--------	_Number_Value_					------
#--------<TITLE>_title_name_</TITLE> --> Sets the Title for the	------
#--------	Page being displayed				------
#--------<BUTTON Name ="_Perl_page_">_Button_Text_</BUTTON> -->	------ 
#--------	creates button which will activate a perl page 	------
#--------	when presses					------
#--------<LABEL>_text_to_be_displayed_</LABEL> --> creates a 	------
#--------	label with specified text			------
#--------<FIELD Name="_value_of_returned_string_">_text_</FIELD>------
#--------	creates a field which will send back an Object 	------
#--------	Tag with the text in the field whenever the next------ 
#--------	page is displayed.  Object Tag is in this format------
#--------	<OBJECT Name="_value_of_returned_string_" 	------
#--------		Value="_Text_in_Field_"></OBJECT>	------
#--------<HOLLOW/> sets Attribute for Bar/Box to Hollow Bar	------
#--------<SOLID/> sets Attribute for Bar/Box to a Solid One	------
#--------<BAR/> creates a Bar/Box				------
#--------<LINE/> creates a line					------
#---------------------------------------------------------------------

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

if(`/usr/bin/ls /var/snapp | /usr/bin/grep snapp.markers`)	{
	`/usr/bin/rm /var/snapp/snapp.markers`;
}
if(`/usr/bin/ls /var/snapp | /usr/bin/grep snapp.message`)	{
	`/usr/bin/rm /var/snapp/snapp.message`;
}

#---Creates A History File to Keep Track of Where the User has been----------------
system ("/usr/bin/rm /var/snapp/snapp.History /var/snapp/snapp.History.tmp 2>/dev/null");
open (HISTORYFILE, ">>/var/snapp/snapp.History");
print HISTORYFILE "/usr/bin/perl /usr/sbin/snapp/Home.pl\n";
close (HISTORYFILE);

#-------------------------------------------------------------------------
#---------------	XML Page Creation	--------------------------
#-------------------------------------------------------------------------
open(OUTFILE,">/var/snapp/snapp.fres.tmp");

if ($#ARGV == 0)
{
   print OUTFILE <<EOXML;
   <PAGE>
   @ARGV[0]
   </PAGE>
EOXML
}

print OUTFILE <<EOXML;
<PAGE> 
<TITLE>Main Screen</TITLE>
<W>100</W> 
<H>15</H> 
<X>30</X> 
<Y>15</Y> 

<DY>40</DY>
<BUTTON Name="SRPassword.pl">Set/Reset Password</BUTTON> 

<DY>25</DY>
<BUTTON Name="SetPage.pl">Set Paging Space</BUTTON> 

<DY>25</DY>
<BUTTON Name="IPMain.pl">Network Setup</BUTTON> 
</PAGE>
EOXML

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