SF.net SVN: ledger-smb: [1087] branches/1.2/LedgerSMB/Form.pm

[..hidden..]

Revision: 1087
          http://svn.sourceforge.net/ledger-smb/?rev=1087&view=rev
Author:   einhverfr
Date:     2007-04-17 16:31:39 -0700 (Tue, 17 Apr 2007)

Log Message:
-----------
Fixing 'Access Denied' when sending email'

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-04-17 23:24:11 UTC (rev 1086)
+++ branches/1.2/LedgerSMB/Form.pm	2007-04-17 23:31:39 UTC (rev 1087)
@@ -609,7 +609,10 @@
 
     $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");
         }
     }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.