diff options
Diffstat (limited to 'LedgerSMB/Form.pm')
-rw-r--r--[-rwxr-xr-x] | LedgerSMB/Form.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index ff436451..e75b3fd4 100755..100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -78,11 +78,16 @@ 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 ($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"; + } + if (($self->{script} =~ m#(..|\\|/)#)){ $self->error("Access Denied"); } |