A Simple Example

This example shows the simplest possible DomainKeys signature verifier.

require Mail::DomainKeys::Message;
# load a message from a filehandle glob
my $mail = load Mail::DomainKeys::Message(File => \*STDIN) or
  die "unable to load message\n";
# check to make sure the sender has a fully qualified domain    
$mail->senderdomain or
  die "unable to verify message: no sender domain\n";  
# check if the mail is signed by DomainKeys
$mail->signed or
  die "no signature\n";
# check the signature  
if ($mail->verify) {
  print STDERR "signature valid\n";
  exit 0;
}
# the signature was not valid
die "unable to verify signature\n";

This example shows the simplest possible DomainKeys signer.

require Mail::DomainKeys::Message;
require Mail::DomainKeys::Key::Private;
# load the message, or die trying
my $mail = load Mail::DomainKeys::Message(File => \*STDIN) or
  die "unable to load message";
# load the private key, or die trying
my $priv = load Mail::DomainKeys::Key::Private(File => "private.key") or
  die "unable to load key";
# sign the message using the "simple" canonifier and selector "test"  
$mail->sign(Method => "simple", Selector => "test", Private => $priv);
# print out the signature
print $mail->signature->as_string;