From ac5b087ea2d9ba7428d367aaeb288534158fee9a Mon Sep 17 00:00:00 2001 From: christopherm Date: Fri, 1 Sep 2006 01:16:38 +0000 Subject: Initial Import git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/ledger-smb@1 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/mozilla/pw.pl | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100755 bin/mozilla/pw.pl (limited to 'bin/mozilla/pw.pl') 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||.$locale->text('Session expired!').qq|

| if $s; + + print qq| + + + + + $sessionexpired + +

{script} name=pw> + + + + + + + +
|.$locale->text('Password').qq|
+ +|; + + for (qw(script endsession password)) { delete $form->{$_} } + $form->hide_form; + + print qq| +
+ + + +|; + +} + + -- cgit v1.2.3