diff options
author | christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-01 01:16:38 +0000 |
---|---|---|
committer | christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-01 01:16:38 +0000 |
commit | ac5b087ea2d9ba7428d367aaeb288534158fee9a (patch) | |
tree | 2dbe0bdea0b653a215ba9ddfdf627cb57855050d /bin/mozilla/pw.pl |
Initial Import
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/ledger-smb@1 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/mozilla/pw.pl')
-rwxr-xr-x | bin/mozilla/pw.pl | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/bin/mozilla/pw.pl b/bin/mozilla/pw.pl new file mode 100755 index 00000000..1b219c8e --- /dev/null +++ b/bin/mozilla/pw.pl @@ -0,0 +1,62 @@ +#===================================================================== +# LedgerSMB +# Small Medium Business Accounting software +# +# See COPYRIGHT file for copyright information +#====================================================================== +# +# This file has NOT undergone whitespace cleanup. +# +#====================================================================== + + +1; +# end of main + + +sub getpassword { + my ($s) = @_; + + $form->{endsession} = 1; + $form->header; + + $sessionexpired = qq|<b><font color=red><blink>|.$locale->text('Session expired!').qq|</blink></font></b><p>| if $s; + + print qq| +<script language="JavaScript" type="text/javascript"> +<!-- +function sf(){ + document.pw.password.focus(); +} +// End --> +</script> + +<body onload="sf()"> + + $sessionexpired + +<form method=post action=$form->{script} name=pw> + +<table> + <tr> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input type=password name=password size=30></td> + <td><input type=submit value="|.$locale->text('Continue').qq|"></td> + </tr> +</table> + +|; + + for (qw(script endsession password)) { delete $form->{$_} } + $form->hide_form; + + print qq| +</form> + +</body> +</html> +|; + +} + + |