From 987a1477f532e40f07bee7ac01d06bfb99403424 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sun, 10 Sep 2006 20:04:26 +0000 Subject: Updated copyright notices on remaining bin/mozilla files. Centralized Lynx support to merely include most of the files in the bin/mozilla directory git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@59 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/lynx/pw.pl | 91 ++-------------------------------------------------------- 1 file changed, 2 insertions(+), 89 deletions(-) (limited to 'bin/lynx/pw.pl') diff --git a/bin/lynx/pw.pl b/bin/lynx/pw.pl index e2824d8b..0ce64df3 100755 --- a/bin/lynx/pw.pl +++ b/bin/lynx/pw.pl @@ -1,90 +1,3 @@ -#===================================================================== -# LedgerSMB Small Medium Business Accounting - -# Copyright (C) 2006 -# This work contains copyrighted information from a number of sources all used -# with permission. -# -# This file contains source code included with or based on SQL-Ledger which -# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed -# under the GNU General Public License version 2 or, at your option, any later -# version. For a full list including contact information of contributors, -# maintainers, and copyright holders, see the CONTRIBUTORS file. -# -# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork): -# Copyright (c) 2004 -# -# Author: DWS Systems Inc. -# Web: http://www.sql-ledger.org -# -# -# -# Author: DWS Systems Inc. -# Web: http://sourceforge.net/projects/ledger-smb/ -# -# -# 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|
- -|; - - for (qw(script endsession password)) { delete $form->{$_} } - $form->hide_form; - - print qq| -
- - - -|; - -} - +#!/usr/bin/perl +require "bin/mozilla/pw.pl"; -- cgit v1.2.3