diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-17 19:59:30 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-17 19:59:30 +0000 |
commit | 011419bef76f02065d3ddb403248c43091529527 (patch) | |
tree | 1091efcc6bce783efbbb1a477c9cbe57b997996a | |
parent | aedecad9fb390118e16be424e2b546b488ab9083 (diff) |
forgot to copy a file over. THis completes the previous ?path=/bin/lynx patch
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@927 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-x | login.pl | 23 |
1 files changed, 2 insertions, 21 deletions
@@ -86,28 +86,9 @@ $script = substr($0, $pos + 1); # exit; #} +$ARGV[0] = $_; +require "bin/$script"; -if ($form{path}) { - - if ($form{path} ne 'bin/lynx'){ $form{path} = 'bin/mozilla';} - - $ARGV[0] = "$_&script=$script"; - require "bin/$script"; - -} else { - - $form{terminal} = "lynx"; - - if ($ENV{HTTP_USER_AGENT} !~ /lynx/i) { - $form{terminal} = "mozilla"; - } - - $ARGV[0] = "path=bin/$form{terminal}&script=$script"; - map { $ARGV[0] .= "&${_}=$form{$_}" } keys %form; - - require "bin/$script"; - -} # end of main |