# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/sbin/snappd/scripts/SRPassword.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 
#
# @(#)85        1.3  src/bos/usr/sbin/snappd/scripts/SRPassword.pl, snapp, bos720 5/31/02 07:51:18
#!/usr/bin/perl -T

#---------------------------------------------------------
#-------- Name SRPassword.pl
#---------------------------------------------------------
#-------- This script checks to see if the root user has a
#-------- password. Then, it sends the appropriate page to
#-------- the palm device to ask for old and new passwords
#---------------------------------------------------------
#-------- Links to Pages:
#--------     Home.pl
#--------     SetPassword.pl
#--------     ResetPassword.pl
#---------------------------------------------------------

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

$return = system('/usr/sbin/snapp/check_for_passwd');

# Return value must be shifted in order for it to be seen 
# correctly.
$return = $return >> 8;


if ("$return" == 0)
{
   # Root has a password. So, user must reset the password
   open(OUTFILE,">/var/snapp/snapp.fres.tmp");
   print OUTFILE <<EOXML;
   <PAGE>
   <TITLE>Verify Old Password</TITLE>
   <W>100</W>
   <H>15</H>
   <X>34</X>
   <Y>15</Y>
   <DY>30</DY>
   <LABEL>Root's Old password:</LABEL>

   <W>70</W>
   <DY>35</DY>
   <X>40</X>
   <FIELD Name="OldPassword"></FIELD>

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

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

   </PAGE>

EOXML

   close(OUTFILE);

}
else
{
   if ("$return" == 1)
   {
      # Root does not have a password. So, user is setting
      # the password.
      open(OUTFILE,">/var/snapp/snapp.fres.tmp");
      print OUTFILE <<EOXML;
      <PAGE>
      <TITLE>Set New Password</TITLE>
      <W>100</W>
      <H>15</H>
      <X>34</X>
      <Y>45</Y>

      <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>
      <Y>130</Y>
      <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);

   }
   else
   {
      # Unable to read the password information for root.
      # We should not proceed from here.
      open(OUTFILE,">/var/snapp/snapp.fres.tmp");
      print OUTFILE <<EOXML;
      <PAGE>
      <TITLE>Error Getting Password Info</TITLE>
      <W>150</W>
      <H>15</H>
      <X>10</X>
      <Y>15</Y>
      <DY>30</DY>
      <LABEL> ERROR: Unable to read root password</LABEL>
      <DY>20</DY>
      <LABEL> information.</LABEL>

      <H>15</H>
      <Y>130</Y>
      <X>60</X>
      <W>30</W>
      <BUTTON Name="Home.pl">OK</BUTTON>

      </PAGE>
EOXML
      close(OUTFILE);
   }
}

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