[svn:qpsmtpd] rev 510 - trunk/lib/Apache

[email protected] 15 Jul 2005 21:15:44 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: msergeant
Date: Fri Jul 15 14:15:44 2005
New Revision: 510

Modified:
   trunk/lib/Apache/Qpsmtpd.pm
Log:
Notice /var/qmail/control dir (Joe Schaefer)


Modified: trunk/lib/Apache/Qpsmtpd.pm
==============================================================================
--- trunk/lib/Apache/Qpsmtpd.pm	(original)
+++ trunk/lib/Apache/Qpsmtpd.pm	Fri Jul 15 14:15:44 2005
@@ -90,8 +90,10 @@ sub run {
 }
 
 sub config_dir {
-    my $self = shift;
-    return "$self->{qpdir}/config";
+    my ($self, $config) = @_;
+    -e "$_/$config" and return $_
+        for "$self->{qpdir}/config";
+    return "/var/qmail/control";
 }
 
 sub plugin_dir {