Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
I have to parse sendmail maillog to get the DKIM-Signature headers. So I decided to extend the Perl Module: Parse::Syslog::Mail;
to handle DKIM-Signature headers {we use dkim for encyption).
This module includes:
I am trying to find out whether a ruleset exists for the DKIM-Signature header, and if not, where I go to find the other rulesets and add one.if (exists $mail{ruleset} and exists $mail{arg1}) { $mail{ruleset} eq 'check_mail' and $mail{from} = $mail{arg1}; $mail{ruleset} eq 'check_rcpt' and $mail{to} = $mail{arg1}; $mail{ruleset} eq 'check_relay' and $mail{relay} = $mail{arg1};
Below is what the DKIM-Signature header looks like, I need to get the domain "d=" and selector "s=" from this DKIM-Signature header:
Any help would be much appreciated!Nov 27 15:08:23 sender03 sendmail[1016]: lARN8MsF001016: Milter insert (1): header: DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple;\n\td=yahoo.com; s=1319567451;
|
|---|