[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 {