summaryrefslogtreecommitdiff
path: root/LedgerSMB.pm
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 /LedgerSMB.pm
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 'LedgerSMB.pm')
-rwxr-xr-xLedgerSMB.pm12
1 files changed, 6 insertions, 6 deletions
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");
}