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

#!/usr/bin/perl -T
#---------------------------------------------------------
#-------- Name VerifyPassword.pl
#---------------------------------------------------------
#-------- This script verifies the root password and
#-------- asks for the new root password.
#---------------------------------------------------------
#-------- Links to Pages:
#--------     Home.pl
#--------     SetPassword.pl
#---------------------------------------------------------

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

%hshObjectTags=@ARGV;

$oldPassword = $hshObjectTags{"OldPassword"};

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

`/usr/sbin/snapp/verify_passwd $oldPassword`;
$return = $?;
$return = $return >> 8;
if ("$return" == 0)
{
   # Password was correct. Prompt for the new password.

   print OUTFILE <<EOXML;
   <PAGE>
   <TITLE>Set New Password</TITLE>
   <W>100</W>
   <H>15</H>
   <X>34</X>
   <Y>15</Y>

   <DY>30</DY>
   <LABEL>Root's New password</LABEL>
   <W>70</W>
   <X>40</X>
   <DY>35</DY>
   <FIELD Name="NewPassword"></FIELD>

   <X>35</X>
   <Y>75</Y>
   <H>20</H>
   <W>80</W>
   <HOLLOW/>
   <BAR/>

   <H>15</H>
   <DY>45</DY>
   <X>10</X>
   <W>60</W>
   <BUTTON Name="SetPassword.pl">OK</BUTTON>
   <DX>70</DX>
   <BUTTON Name="Home.pl">Cancel</BUTTON>

   </PAGE>
EOXML

   
}
else
{
   # Password was not correct. Go back to home page.
   print OUTFILE <<EOXML;
   <PAGE>
   <TITLE> Invalid Password:</TITLE>
   <W>150</W>
   <H>15</H>
   <X>30</X>
   <Y>40</Y>
   <LABEL>ERROR: Invalid password.</LABEL>
   <DY>15</DY>
   <LABEL>Unable to set or reset</LABEL>
   <DY>15</DY>
   <LABEL>root's password</LABEL>
 
   <H>15</H>
   <Y>130</Y>
   <X>65</X>
   <W>25</W>
   <BUTTON Name="Home.pl">OK</BUTTON>
   </PAGE>
EOXML
}

close(OUTFILE);

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