diff options
Diffstat (limited to 'LedgerSMB/Form.pm')
| -rwxr-xr-x | LedgerSMB/Form.pm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 9f37ad09..e873622d 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -79,11 +79,8 @@ sub new { bless $self, $type; - $self->{path} =~ s#\\#/#g; - if (($self->{path}) && ($self->{path} !~ m#^bin/#) - || ($self->{path} =~ m#(\w*/){2,}#)){ - $self->error("Access Denied"); - } + if ($form->{path} ne 'bin/lynx'){ $form->{path} = 'bin/mozilla';} + if (($self->{script} =~ m#(..|\\|/)#)){ $self->error("Access Denied"); } |