From b1f65772befd38947f5d8f1a4f30c5b17d716e4b Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Mon, 13 Nov 2006 16:56:04 +0000 Subject: [PATCH] bin/lynx wurde nie wirklich unterstuetzt und wird somit entfernt. --- SL/Form.pm | 2 - bin/lynx/menu.pl | 155 ----------------------------------------------- login.pl | 3 - makesymlinks | 4 -- 4 files changed, 164 deletions(-) delete mode 100644 bin/lynx/menu.pl diff --git a/SL/Form.pm b/SL/Form.pm index 1faec58a1..b67ae21ea 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -143,8 +143,6 @@ sub new { my %parameters = _request_to_hash($_); map({ $self->{$_} = $parameters{$_}; } keys(%parameters)); - $self->{menubar} = 1 if $self->{path} =~ /lynx/i; - $self->{action} = lc $self->{action}; $self->{action} =~ s/( |-|,|\#)/_/g; diff --git a/bin/lynx/menu.pl b/bin/lynx/menu.pl deleted file mode 100644 index 655fc2333..000000000 --- a/bin/lynx/menu.pl +++ /dev/null @@ -1,155 +0,0 @@ -###################################################################### -# SQL-Ledger Accounting -# Copyright (c) 2001 -# -# Author: Dieter Simader -# Email: dsimader@sql-ledger.org -# Web: http://www.sql-ledger.org -# -# Contributors: Christopher Browne -# -# 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. -####################################################################### -# -# menu for text based browsers (lynx) -# -# CHANGE LOG: -# DS. 2000-07-04 Created -# DS. 2001-08-07 access control -# CBB 2002-02-09 Refactored HTML out to subroutines -####################################################################### - -$menufile = "menu.ini"; -use SL::Menu; - - -1; -# end of main - - - -sub display { - - $menu = new Menu "$menufile"; - $menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); - $menu = new Menu "$form->{login}_$menufile" if (-f "$form->{login}_$menufile"); - - @menuorder = $menu->access_control(\%myconfig); - - $form->{title} = "SQL-Ledger $form->{version}"; - - $form->header; - - $offset = int (21 - $#menuorder)/2; - - print "
";
-  print "\n" x $offset;
-  print "
"; - - print qq|
|; - - map { print "|; } @menuorder; - - print qq' -
".$menu->menuitem(\%myconfig, \%$form, $_).$locale->text($_).qq|
- - - -'; - - # display the company logo -# $argv = "login=$form->{login}&password=$form->{password}&path=$form->{path}&action=company_logo&noheader=1"; -# exec "./login.pl", $argv; - -} - - -sub section_menu { - - $menu = new Menu "$menufile", $form->{level}; - - # build tiered menus - @menuorder = $menu->access_control(\%myconfig, $form->{level}); - - foreach $item (@menuorder) { - $a = $item; - $item =~ s/^$form->{level}--//; - push @neworder, $a unless ($item =~ /--/); - } - @menuorder = @neworder; - - $level = $form->{level}; - $level =~ s/--/ /g; - - $form->{title} = $locale->text($level); - - $form->header; - - $offset = int (21 - $#menuorder)/2; - print "
";
-  print "\n" x $offset;
-  print "
"; - - print qq|
|; - - foreach $item (@menuorder) { - $label = $item; - $label =~ s/$form->{level}--//g; - - # remove target - $menu->{$item}{target} = ""; - - print ""; - } - - print qq'
".$menu->menuitem(\%myconfig, \%$form, $item, $form->{level}).$locale->text($label)."
- - - -'; - -} - - -sub acc_menu { - - §ion_menu; - -} - - -sub menubar { - $menu = new Menu "$menufile", ""; - - # build menubar - @menuorder = $menu->access_control(\%myconfig, ""); - - @neworder = (); - map { push @neworder, $_ unless ($_ =~ /--/) } @menuorder; - @menuorder = @neworder; - - print "

"; - $form->{script} = "menu.pl"; - - foreach $item (@menuorder) { - $label = $item; - - # remove target - $menu->{$item}{target} = ""; - - print $menu->menuitem(\%myconfig, \%$form, $item, "").$locale->text($label)." | "; - } - -} - diff --git a/login.pl b/login.pl index c1d4df406..376ea98bf 100755 --- a/login.pl +++ b/login.pl @@ -97,9 +97,6 @@ Invalid path!\n"; $form{terminal} = "mozilla"; } - if ($ENV{HTTP_USER_AGENT} =~ /lynx/i) { - $form{terminal} = "lynx"; - } } else { if ($ENV{TERM} =~ /xterm/) { $form{terminal} = "xterm"; diff --git a/makesymlinks b/makesymlinks index eb2a0a949..b5c0b0461 100755 --- a/makesymlinks +++ b/makesymlinks @@ -7,7 +7,3 @@ for i in ap ar bp ca cp ct cn dn gl ic ir is menu oe pe rc rp datev licenses fa ln -vsf am.pl $i.pl done -cd bin/lynx -for i in admin am ap ar arap bp ca cp ct cn dn gl ic io ir is login oe pe rc rp datev licenses fa ustva common; do - ln -vsf ../mozilla/$i.pl $i.pl -done -- 2.20.1