#!/usr/bin/perl

use strict;
use IO::File;

my $rblcheck = "/path/to/rblecheck";
my $rblcheck_opts = "-t -c -s rbl.maps.vix.com -s dul.maps.vix.com -s relays.radparker.com";
my $logfiledir = "/path/to/logfiledir";

&main;

sub _random_string
{
	my $chars = shift;

	my $fh = new IO::File("</dev/urandom")
		or die "could not open /dev/urandom for reading";

	my $buf; sysread($fh, $buf, int($chars/2));
	my @bytes = unpack("C*", $buf);
	my $crypt = sprintf("%02x" x scalar(@bytes), @bytes);

	return $crypt;
}

sub main
{
	my @execlist = @ARGV;
	my $ipaddr = $ENV{'TCPREMOTEIP'};
#$ipaddr ="127.0.0.2";

	my $rblsays = ` $rblcheck $rblcheck_opts $ipaddr; echo "rv:\$?" `;

	if ( $rblsays !~ /rv:0$/ )
	{
		my $logfilename = sprintf("%s/%010d_%s", $logfiledir, scalar(time), _random_string(8));
		print STDERR "this connection has an RBL positive, logging to $logfilename\n";
		open STDERR, ">$logfilename" or warn "could not open logfile ($logfilename)";
		print STDERR "$ipaddr\n\n";
		print STDERR "$rblsays\n";
		print STDERR "recordio of smtp conversation follows line\n---------------------\n";
		exec "recordio", @execlist;
		die "exec failed";
	}
	else
	{
		exec @execlist;
		die "exec failed";
	}

}