qpsmtpd/log/show_message

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $QPDIR   = get_qp_dir();
my $logfile = "$QPDIR/log/main/current";

my $is_ip  = 0;
my $search = $ARGV[0];

if (!$search) {
    die "\nusage: $0 [ ip_address | PID ]\n\n";
}

if ($search =~ /^(?:[0-9]{1,3}\.){3}[0-9]{1,3}$/) {

    #print "it's an IP\n";
    $is_ip++;
}

open my $LOG, '<', $logfile or die "unable to open $logfile\n";

if ($is_ip) {    # look for the connection start message for the IP
    my $ip_matches;
    while (defined(my $line = <$LOG>)) {
        next if !$line;
        my ($tai, $pid, $mess) = split /\s/, $line, 3;
        if ('Connection from ' eq substr($mess, 0, 16)) {
            my ($ip) = (split /\s+/, $mess)[-1];    # IP is last word
            $ip = substr $ip, 1, -1;                # trim off brackets
            if ($ip eq $search) {
                $ip_matches++;
                $search = $pid;
                $is_ip  = 0;
            }
        }
    }
    seek $LOG, 0, 0;
    die "no pid found for ip $search\n" if $is_ip;
    print "showing the last of $ip_matches connnections from $ARGV[0]\n";
}

print "showing QP message PID $search\n";

while (defined(my $line = <$LOG>)) {
    next if !$line;
    my ($tai, $pid, $mess) = split /\s/, $line, 3;
    next if !$pid;
    print $mess if ($pid eq $search);
}
close $LOG;

sub get_qp_dir {
    foreach my $user (qw/ qpsmtpd smtpd /) {
        my ($homedir) = (getpwnam($user))[7] or next;

        if (-d "$homedir/plugins") {
            return "$homedir";
        }
        foreach my $s (qw/ smtpd qpsmtpd qpsmtpd-dev /) {
            if (-d "$homedir/$s/plugins") {
                return "$homedir/$s";
            }
        }
    }
    if (-d "./plugins") {
        return Cwd::getcwd();
    }
}