# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/sbin/snappd/scripts/SetPage.pl 1.5 
#  
# 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
# @(#)11        1.5  src/bos/usr/sbin/snappd/scripts/SetPage.pl, snapp, bos720 5/31/02 07:51:03

#------------------------------------------------------------------
#--------Page Space Setting Page for Snapp Program      -----------
#------------------------------------------------------------------
#--------This page is used to execute the command to change the ---
#--------size of the paging space in use now            -----------
#------------------------------------------------------------------

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

$temp = `/usr/sbin/lsdev -C | /usr/bin/grep Memory`;
$temp =~ /([a-z0-9]+).*/g;
$memoryID = $1;

$temp = `/usr/sbin/lsattr -El $memoryID | /usr/bin/grep Total`;
$temp =~ /[a-z\t\s]+([0-9]+).*/g;
$totalMemSize = $1;

$temp = `/usr/sbin/lsps -s | /usr/bin/grep MB`;
$temp =~ /\s+([0-9]+).*/g;
$pagingSpace = $1;

$temp = `/usr/sbin/lsvg rootvg | /usr/bin/grep "FREE PP"`;
($temp, $temp1) = split(" megabyte", $temp);
($temp1, $temp) = split("FREE PPs", $temp);
$temp =~ s/\s+//g;
$temp =~ /[0-9]+.([0-9]+).*/g;
$rootvgAvailable = $1;

$recoSpace = `/usr/lib/assist/calc_pgspace recommended_ps`;

#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>Manage System Paging Space</TITLE>

<W>150</W>
<H>12</H>
<X>5</X>
<Y>30</Y>
<LABEL>Memory Size(MB): $totalMemSize</LABEL>
<DY>15</DY>
<LABEL>Space Available</LABEL>
<DY>10</DY>
<LABEL>         in rootvg(MB): $rootvgAvailable</LABEL>
<DY>15</DY>
<LABEL>Recommended </LABEL>
<DY>10</DY>
<LABEL>         Paging Space(MB): $recoSpace</LABEL>
<DY>15</DY>
<LABEL>Current Paging Space(MB): $pagingSpace</LABEL>
<DY>15</DY>
<LABEL>New Paging Space(MB):</LABEL>
<DX>95</DX>
<W>55</W>
<FIELD Name="PagingSpace">$recoSpace</FIELD>

<X>10</X>
<Y>130</Y>
<W>60</W>
<H>15</H>
<BUTTON Name="DoSetPage.pl">OK</BUTTON>
<DX>70</DX>
<BUTTON Name="Home.pl">Cancel</BUTTON>

</PAGE>

EOXML


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