X-Git-Url: https://git.exim.org/users/heiko/exim.git/blobdiff_plain/6a11a9e618a72b8d96aecb2ad9aa300b98f8d991..649c209e19281edd67beee84e9e60b0849f84554:/test/aux-fixed/dkim/sign.pl diff --git a/test/aux-fixed/dkim/sign.pl b/test/aux-fixed/dkim/sign.pl index 1c2a87280..a08f38f56 100644 --- a/test/aux-fixed/dkim/sign.pl +++ b/test/aux-fixed/dkim/sign.pl @@ -2,19 +2,26 @@ use Mail::DKIM::Signer; use Mail::DKIM::TextWrap; #recommended use Getopt::Long; +# default option values my $method = "simple/simple"; +my $selector = "sel"; +my $keyfile = "aux-fixed/dkim/dkim.private"; +my $algorithm = "rsa-sha1"; GetOptions( "method=s" => \$method, + "selector=s" => \$selector, + "keyfile=s" => \$keyfile, + "algorithm=s" => \$algorithm, ); # create a signer object my $dkim = Mail::DKIM::Signer->new( - Algorithm => "rsa-sha1", + Algorithm => $algorithm, Method => $method, Domain => "test.ex", - Selector => "sel", - KeyFile => "aux-fixed/dkim/dkim.private", + Selector => $selector, + KeyFile => $keyfile, ); # read an email and pass it into the signer, one line at a time