From 32306b5f8ffe4ce594409aa6e89626740b225a39 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 15 Nov 2004 10:35:56 +0000 Subject: import sql-ledger 2.4.4 --- sql-ledger/bin/mozilla/pw.pl | 73 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 sql-ledger/bin/mozilla/pw.pl (limited to 'sql-ledger/bin/mozilla/pw.pl') diff --git a/sql-ledger/bin/mozilla/pw.pl b/sql-ledger/bin/mozilla/pw.pl new file mode 100644 index 000000000..6f7319004 --- /dev/null +++ b/sql-ledger/bin/mozilla/pw.pl @@ -0,0 +1,73 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2004 +# +# Author: Dieter Simader +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== + + +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|
+ +|; + + map { delete $form->{$_} } qw(header script endsession password); + $form->hide_form; + + print qq| +
+ + + +|; + +} + + -- cgit v1.2.1