bin/lynx wurde nie wirklich unterstuetzt und wird somit entfernt.

diff --git a/SL/Form.pm b/SL/Form.pm
index 1faec58..b67ae21 100644 (file)
--- 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 (file)
index 655fc23..0000000
--- 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 "<pre>";
-  print "\n" x $offset;
-  print "</pre>";
-
-  print qq|<center><table>|;
-
-  map { print "<tr><td>".$menu->menuitem(\%myconfig, \%$form, $_).$locale->text($_).qq|</a></td></tr>|; } @menuorder;
-
-  print qq'
-</table>
-
-</body>
-</html>
-';
-
-  # 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 "<pre>";
-  print "\n" x $offset;
-  print "</pre>";
-  
-  print qq|<center><table>|;
-
-  foreach $item (@menuorder) {
-    $label = $item;
-    $label =~ s/$form->{level}--//g;
-
-    # remove target
-    $menu->{$item}{target} = "";
-
-    print "<tr><td>".$menu->menuitem(\%myconfig, \%$form, $item, $form->{level}).$locale->text($label)."</a></td></tr>";
-  }
-  
-  print qq'</table>
-
-</body>
-</html>
-';
-
-}
-
-
-sub acc_menu {
-  
-  &section_menu;
-  
-}
-
-
-sub menubar {
-  $menu = new Menu "$menufile", "";
-  
-  # build menubar
-  @menuorder = $menu->access_control(\%myconfig, "");
-
-  @neworder = ();
-  map { push @neworder, $_ unless ($_ =~ /--/) } @menuorder;
-  @menuorder = @neworder;
-
-  print "<p>";
-  $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 c1d4df4..376ea98 100755 (executable)
--- 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 eb2a0a9..b5c0b04 100755 (executable)
--- 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