From 0af29a7145e05bdc2d89a689ce77cddd97e95ff1 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 24 Mar 2007 17:42:42 +0000
Subject: Removing executable bit from documentation

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1001 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LICENSE       |   0
 LedgerSMB.pm  |  12 ++++++------
 doc/COPYRIGHT |   0
 doc/README    |   0
 doc/faq.html  |   0
 favicon.ico   | Bin
 login.pl      |  23 ++---------------------
 7 files changed, 8 insertions(+), 27 deletions(-)
 mode change 100755 => 100644 LICENSE
 mode change 100755 => 100644 doc/COPYRIGHT
 mode change 100755 => 100644 doc/README
 mode change 100755 => 100644 doc/faq.html
 mode change 100755 => 100644 favicon.ico

diff --git a/LICENSE b/LICENSE
old mode 100755
new mode 100644
diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 37fbe009..ee849723 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -125,17 +125,17 @@ sub new {
 	$self->{action} =~ s/\W/_/g;
 	$self->{action} = lc $self->{action};
 
-	if ($self->{path} =~ /lynx/i){
+
+	if ($self->{path} eq "bin/lynx"){
 		$self->{menubar} = 1; 
 		#menubar will be deprecated, replaced with below
 		$self->{lynx} = 1;
-	}
+		$self->{path} = "bin/lynx";
+	} else {
+		$self->{path} = "bin/mozilla";
 
-	$self->{path} =~ s#\\#/#g;
-	if (($self->{path}) && ($self->{path} !~ m#^bin/#) 
-				|| ($self->{path} =~ m#(\w*/){2,}#)){
-		$self->error("Access Denied");
 	}
+
 	if (($self->{script} =~ m#(..|\\|/)#)){
 		$self->error("Access Denied");
 	}
diff --git a/doc/COPYRIGHT b/doc/COPYRIGHT
old mode 100755
new mode 100644
diff --git a/doc/README b/doc/README
old mode 100755
new mode 100644
diff --git a/doc/faq.html b/doc/faq.html
old mode 100755
new mode 100644
diff --git a/favicon.ico b/favicon.ico
old mode 100755
new mode 100644
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
 
-- 
cgit v1.2.3