diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-24 17:42:42 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-24 17:42:42 +0000 |
commit | 0af29a7145e05bdc2d89a689ce77cddd97e95ff1 (patch) | |
tree | 80bd7f41042e386d5fe87a1696694dcab0859d54 /LedgerSMB.pm | |
parent | 4d55c425d6b332832c5e7548e4883ab49716ed38 (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-x | LedgerSMB.pm | 12 |
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"); } |