diff options
-rwxr-xr-x | LedgerSMB/Form.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index c5410ab0..bb0a5ab7 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -609,7 +609,10 @@ sub parse_template { $self->{cwd} = Cwd::getcwd(); for (qw(IN OUT)) { - if ( $self->{$_} =~ m#[:/\\]# ) { + if ( $self->{$_} =~ m#[:/\\]# and + ($self->{$_} != $LedgerSMB::Sysconfig::sendmail and ($_ eq 'OUT'))) + { + $self->error("Access denied"); } } |