DKIM/DomainKeys signer for CommuniGate CGP free (implemented as a Content-Filtering script)

ïÔ: ÷ÁÌÅÒÁ èÁÒÓÅËÏ <CGatePro_at_mx_ru>
äÁÔÁ: Mon 16 Nov 2009 - 00:37:35 MSK

#!/bin/perl
#
# DKIM/DomainKeys signer for CommuniGate CGP free (implemented as a Content-Filtering script)
#
# Copyright (c) 2005-2007 Valera V.Kharseko. This program is free software.
# You can redistribute it and/or modify it under the terms of the
# GNU Public License as found at http://www.fsf.org/copyleft/gpl.html.
#
# Written by vharseko@xxlive.ru.

use Mail::DKIM::Signer;
use Mail::DKIM::DkSignature;
use Mail::DKIM::TextWrap;

use Getopt::Long;
use Pod::Usage;

my $CustomHeader = "X-DKIM-Signed:"." yes";

sub signer_policy {

	my $dkim = shift;
	$dkim->add_signature(Mail::DKIM::DkSignature->new(
		Algorithm => "rsa-sha1",
		Method    => "simple",
		Headers   => $dkim->headers,
		Domain    => $dkim->message_sender->host,
		Selector  => "default",
		Expiration => time() + 86400,
		Identity   => $dkim->message_sender->address
	));
	
	$dkim->add_signature(Mail::DKIM::Signature->new(
		Algorithm => "rsa-sha1",
		Method    => "relaxed",
		Headers   => $dkim->headers,
		Domain    => $dkim->message_sender->host,
		Selector  => "default",
		Expiration => time() + 86400,
		Identity   => $dkim->message_sender->address
	));
	return;

}

sub Log {

        print "* $_[0]\n";
}
$| = 1;
Log "DKIM is running";Log "";
mkdir "Submitted" if ( !-d "Submitted" ); while (<>) {

	my @line = split( / /, $_ );
	chomp( $line[0] );
	print "$line[0] OK\n"     and next if ( $line[1] =~ /^quit$/i );
	print "$line[0] INTF 3\n" and next if ( $line[1] =~ /^intf$/i );
	print "$line[0] OK\n"     and next if ( $line[1] =~ /^key$/i );
	print "$line[0] FAILURE\n" and next if ( $line[1] !~ /^file$/i );    
	$line[2] =~ s|\\|/|g;              
	chomp( $line[2] );

	Log "DKIM process: $line[2]";
	
	if ( !open( MSG, $line[2] ) ) {
		Log "Error: file not found $line[2]";
		print "$line[0] OK\n";
	}
	else {
		my ( $sender, @recipients );
		#CGP headers
		while (1) {
			$line = <MSG>;
			chomp($line);
			last if ( $line eq '');
			if ( $line =~ /^(\w).+<(.+)>/ ) {
				if ( $1 eq 'P' ) {
					$sender = $2;
				}
				else {
					push @recipients, $2;
				}
			}
		}
		#mail headers and body
		my $EntireMessage="";
		my $dkim = new Mail::DKIM::Signer(Policy => \&signer_policy,KeyFile => "d:/CommuniGate/rsa.private");
		while (<MSG>){
			$EntireMessage=$EntireMessage.$_;
			chomp $_;
			s/\015?$/\015\012/s;
			$dkim->PRINT($_);
		}
		close MSG;
		
		if ( $EntireMessage !~ /$CustomHeader/i ) {
			$dkim->CLOSE;
			Log "DKIM sign for user=".($dkim->message_sender->address)." domain=".($dkim->message_sender->host);
			
			my $signature_dk=($dkim->signatures())[0]->as_string;
			$signature_dk=~s/\s//g;
			Log "$signature_dk";
			
			my $signature_dkim=($dkim->signatures())[1]->as_string;
			$signature_dkim=~s/\s//g;
			Log "$signature_dkim";
						
			my $alertFileName.="Submitted/A".time().int(rand(10000));
			open(SUBM,">$alertFileName.tmp");
			print SUBM "$CustomHeader\n";
			print SUBM "$signature_dk\n";
			print SUBM "$signature_dkim\n";
			print SUBM $EntireMessage;
			close SUBM;
			rename("$alertFileName.tmp","$alertFileName.sub");
			print "$line[0] DISCARD\n";
		}
		else {
			Log "DKIM skip file: $line[2]";	print "$line[0] OK\n";
		}
	}
	open STDOUT, ">&STDOUT";

} ðÏÌÕÞÅÎÏ Sun Nov 15 21:37:48 2009