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

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

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

print OUTFILE <<EOXML;
<PAGE> 
  <TITLE>Root Authentication:</TITLE>
  <W>150</W> 
  <H>15</H> 
  <X>10</X> 
  <Y>15</Y> 

  <DY>20</DY>
  <LABEL>You entered an invalid password.</LABEL>
  <DY>15</DY>
  <LABEL>Please reenter root password:</LABEL>
  <W>70</W>
  <DY>35</DY>
  <X>40</X>
  <FIELD Name="AuthPassword"></FIELD>

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

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

</PAGE>
EOXML

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