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

#!/usr/bin/perl -T
#---------------------------------------------------------
#-------- Name SetPassword.pl
#---------------------------------------------------------
#-------- This script attempts to set the root password.
#---------------------------------------------------------
#-------- Links to Pages:
#--------     Home.pl
#--------     SetPassword.pl
#---------------------------------------------------------

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

%hshObjectTags=@ARGV;

$newPassword = $hshObjectTags{"NewPassword"};

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

if ("$newPassword" ne "")
{
   `/usr/sbin/snapp/set_passwd $newPassword`;
   $return = $?;
   $return = $return >> 8;
   if ("$return" == 0)
   {
      #print "password set successful\n";
      print OUTFILE <<EOXML;
      <PAGE>
      <TITLE> Successful Password Set:</TITLE>
      <W>100</W>
      <H>15</H>
      <X>48</X>
      <Y>30</Y>
      <DY>20</DY>
      <LABEL>Result: SUCCESS</LABEL>
      <Y>130</Y>
      <X>65</X>
      <W>25</W>
      <BUTTON Name="Home.pl">OK</BUTTON>
      </PAGE>
EOXML
   }
   else
   {
     # This is a fatal error. Retrying won't help, so
     # just return the user to home.
      print OUTFILE <<EOXML;
      <PAGE>
      <TITLE> Failure Setting Password:</TITLE>
      <W>100</W>
      <H>15</H>
      <X>48</X>
      <Y>30</Y>
      <DY>20</DY>
      <LABEL>Result: FAILURE</LABEL>
      <Y>130</Y>
      <X>65</X>
      <W>25</W>
      <BUTTON Name="Home.pl">OK</BUTTON>
      </PAGE>
EOXML

   }

}
else
{
   # This is probably because they entered a null password.
   # Let the user re-enter to password or cancel this function.
   #print "password incorrect. Please try again\n";
   print OUTFILE <<EOXML;
   <PAGE>
   <TITLE> Empty Password:</TITLE>
   <W>150</W>
   <H>15</H>
   <X>5</X>
   <Y>30</Y>
   <DY>5</DY>
   <LABEL>ERROR: You did not enter a password.</LABEL>
   <DY>15</DY>
   <LABEL>Please try again.</LABEL>
  
   <X>34</X>
   <DY>25</DY>
   <LABEL>Root's New password:</LABEL>
   <W>70</W>
   <X>40</X>
   <DY>25</DY>
   <FIELD Name="NewPassword"></FIELD>

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

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

}   


close(OUTFILE);

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