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

log/show_message: fixed QP dir detection

Browse Source
This commit is contained in:
Matt Simerson 2012-06-30 19:04:42 -04:00
parent 3159d32e60
commit 1ff8581219
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
log/show_message
View File

@ -5,7 +5,7 @@ use warnings;
use Data::Dumper; use Data::Dumper;
my $QPDIR = '/usr/home/qpsmtpd/smtpd'; my $QPDIR = get_qp_dir();
my $logfile = "$QPDIR/log/main/current"; my $logfile = "$QPDIR/log/main/current";
my $is_ip = 0; my $is_ip = 0;
@ -20,7 +20,7 @@ if ( $search =~ /^(?:[0-9]{1,3}\.){3}[0-9]{1,3}$/ ) {
$is_ip++; $is_ip++;
}; };
open my $LOG, '<', $logfile; open my $LOG, '<', $logfile or die "unable to open $logfile\n";
if ( $is_ip ) { # look for the connection start message for the IP if ( $is_ip ) { # look for the connection start message for the IP
my $ip_matches; my $ip_matches;