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

#---------------------------------------------------------------------------
#--------Display a Message page for Snapp Program	--------------------
#---------------------------------------------------------------------------
#--------This page is displays a message that is located in the	------------
#--------message file (previously saved from a DoSet??.pl page)	------------
#--------Also reformats that page because newlines and spaces had-----------
#--------been removed earlier					------------
#---------------------------------------------------------------------------
#--------Links to Pages: IPDoneSetTokenRing.pl or IPDoneSetEthernet.pl------
#---------------------------------------------------------------------------

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

open(ENFILE, "/var/snapp/snapp.message");
$strToDisplay = <ENFILE>;
close(ENFILE);

open(ENFILE, "/var/snapp/snapp.markers");
$intCounter = <ENFILE>;
close(ENFILE);

@strDisplay = (split ",", $strToDisplay);

if(@strDisplay < 8)	{
	$intCounter = 0;
	$intEndCounter = @strDisplay;
}
else	{
	if(@ARGV[0] == 1)	{
		if($intCounter - 16 > 0)	{
			$intCounter=-16;
		}
		else	{
			$intCounter = 0;
		}
	}
	if(@strDisplay > $intCounter + 8)	{
		$intEndCounter = $intCounter + 8;
	}
	else	{
		if($intCounter > @strDisplay - 8)	{
			$intCounter = @strDisplay - 8;
		}
		else	{
			$intCounter = 0;
		}
		$intEndCounter = @strDisplay;
	}
}
$strToTheLabel = "";
while($intEndCounter > $intCounter)
{
	$strToTheLabel = join "", $strToTheLabel, @strDisplay[$intCounter], "\n";
	if($temp = length(@strDisplay[$intCounter]) > 25)
	{
		while($temp > 25)
		{
			$intEndCounter--;
			$temp =- 25;
		}
	}
	$intCounter++;
}

open(OUTFILE,">/var/snapp/snapp.markers");
print OUTFILE $intEndCounter;
close (OUTFILE);

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

print OUTFILE <<EOXML;
<PAGE> 
 	<TITLE>Display Results</TITLE>
 	 
 	<X>5</X> 
 	<Y>30</Y> 
 	<W>150</W>
 	<H>95</H>
 	<LABEL>$strToTheLabel</LABEL>
 	<X>2</X>
 	<Y>28</Y>
 	<H>95</H>
 	<W>156</W>
 	<HOLLOW/>
 	<BAR/>
 	
 	<X>2</X>
 	<W>50</W>
 	<H>15</H>
 	<Y>130</Y>
 	<BUTTON Name="IPViewMessage.pl 1">Page Up</BUTTON>
 	<DX>55</DX>
 	<W>50</W>
 	<BUTTON Name="IPViewMessage.pl">Page Down</BUTTON>
 	<DX>55</DX>
 	<W>30</W>
 	<BUTTON Name="Home.pl">OK</BUTTON>
 	 

</PAGE>
EOXML

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