From 4ded6b97d4456f2f1f52decdf71ae6661e619bbb Mon Sep 17 00:00:00 2001
From: Matt Simerson <matt@tnpi.net>
Date: Sat, 30 Jun 2012 15:40:24 -0400
Subject: [PATCH] added log/show_message, dropped .pl suffix

to be consistent with other QP scripts
---
 log/show_message | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/log/show_message b/log/show_message
index 9ee2ef1..932726a 100755
--- a/log/show_message
+++ b/log/show_message
@@ -5,7 +5,7 @@ use warnings;
 
 use Data::Dumper;
 
-my $QPDIR = get_qp_dir();
+my $QPDIR = '/usr/home/qpsmtpd/smtpd';
 my $logfile = "$QPDIR/log/main/current";
 
 my $is_ip  = 0;
@@ -20,7 +20,7 @@ if ( $search =~ /^(?:[0-9]{1,3}\.){3}[0-9]{1,3}$/ ) {
     $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
     my $ip_matches;