Notice /var/qmail/control dir (Joe Schaefer)

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@509 958fd67b-6ff1-0310-b445-bb7760255be9
2005-07-15 21:13:49 +00:00 · 2005-07-15 21:13:49 +00:00 · 162cf7d132
commit 162cf7d132
parent bcbe2ac25f
1 changed files with 5 additions and 2 deletions
--- a/lib/Apache/Qpsmtpd.pm
+++ b/lib/Apache/Qpsmtpd.pm
@ -90,10 +90,13 @@ 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 {
    my $self = shift;
    return "$self->{qpdir}/plugins";