byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

summarize: check more locations to discover QP dir

Browse Source
This commit is contained in:
Matt Simerson 2012-06-27 20:15:13 -04:00
parent 8fd04a2621
commit 0ca16d61a7
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
log/summarize.pl
View File

@ -3,6 +3,7 @@
use strict;
use warnings;
use Cwd;
use Data::Dumper;
use File::Tail;
@ -276,16 +277,20 @@ sub show_symbol {
sub get_qp_dir {
foreach my $user ( qw/ qpsmtpd smtpd / ) {
my ($homedir) = (getpwnam( $user ))[7] or next;
if ( -d "$homedir/plugins" ) {
return "$homedir";
};
if ( -d "$homedir/smtpd/plugins" ) {
return "$homedir/smtpd";
foreach my $s ( qw/ smtpd qpsmtpd qpsmtpd-dev / ) {
if ( -d "$homedir/smtpd/plugins" ) {
return "$homedir/smtpd";
};
};
};
if ( -d "./plugins" ) {
return Cwd::getcwd();
};
};
sub populate_plugins_from_registry {