summaryrefslogtreecommitdiff
path: root/login.pl
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-24 17:42:42 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-24 17:42:42 +0000
commit0af29a7145e05bdc2d89a689ce77cddd97e95ff1 (patch)
tree80bd7f41042e386d5fe87a1696694dcab0859d54 /login.pl
parent4d55c425d6b332832c5e7548e4883ab49716ed38 (diff)
Removing executable bit from documentation
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1001 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'login.pl')
-rwxr-xr-xlogin.pl23
1 files changed, 2 insertions, 21 deletions
diff --git a/login.pl b/login.pl
index ff1cba7e..a9608a18 100755
--- a/login.pl
+++ b/login.pl
@@ -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