X-Git-Url: https://git.exim.org/exim.git/blobdiff_plain/abe1010cc7d7d02629e1c9ca4a00240a44fe041e..8eb8355567a56d3be58aae59741a60824a105110:/test/aux-fixed/dkim/sign.pl diff --git a/test/aux-fixed/dkim/sign.pl b/test/aux-fixed/dkim/sign.pl index 6220015ae..a08f38f56 100644 --- a/test/aux-fixed/dkim/sign.pl +++ b/test/aux-fixed/dkim/sign.pl @@ -6,16 +6,18 @@ use Getopt::Long; 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 => $selector,