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

Merge pull request #210 from smtpd/dns 

use perl DNS methods instead of shell cmds
This commit is contained in:
Jared Johnson 2015-01-28 17:33:20 -06:00
parent 45bc5cfffc 31dbe00514
commit f5b58d08e8
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
plugins/karma_tool
View File

@ -9,8 +9,10 @@ use Net::IP qw(:PROC);
use POSIX qw(strftime);
use lib 'lib';
use Qpsmtpd::Base;
use Qpsmtpd::DB;
my $base = Qpsmtpd::Base->new();
my $self = bless({args => {db_dir => 'config'},}, 'Karma');
my $command = $ARGV[0];
@ -119,8 +121,7 @@ sub show_ip {
if ($penalty_start_ts) {
$time_human = strftime "%a %b %e %H:%M", localtime $penalty_start_ts;
}
my $hostname = `dig +short -x $ip` || '';
chomp $hostname;
my $hostname = $base->resolve_ptr($ip);
print
" IP Address Penalty Naughty Nice Connects Hostname\n";
printf(" %-18s %24s %3s %3s %3s %-30s\n",
@ -164,8 +165,8 @@ sub main {
}
my $hostname = '';
if ($naughty && $nice) {
#$hostname = `dig +short -x $ip`; chomp $hostname;
# this can be slow, waiting for each IP to resolve
#$hostname = $base->resolve_ptr($ip);
}
printf(" %-18s %24s %3s %3s %3s %30s\n",
$ip, $time_human, $naughty, $nice, $connects, $hostname);

8
plugins/tls_cert
View File

@ -3,15 +3,13 @@
use strict;
use warnings;
# Very basic script to create TLS certificates for qpsmtpd
# create TLS certificates for qpsmtpd
use File::Temp qw/ tempfile tempdir /;
use Getopt::Long;
use Sys::Hostname;
my %opts = ();
chomp (my $hostname = `hostname --fqdn`);
if ($?) {
chomp($hostname = `hostname`);
}
my $hostname = hostname();
print "Using hostname: $hostname\n";
my %defaults = (
C => 'XY',