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

added log/show_message, dropped .pl suffix

Browse Source 
to be consistent with other QP scripts
This commit is contained in:
Matt Simerson 2012-06-30 15:40:24 -04:00
parent 01d7c7e228
commit 4ded6b97d4
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 = get_qp_dir(); my $QPDIR = '/usr/home/qpsmtpd/smtpd';
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 or die "unable to open $logfile\n"; open my $LOG, '<', $logfile;
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;