git://git.exim.org
/
users
/
heiko
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ARC: add independent-source testcase. Fix signatures by not line-terminating
[users/heiko/exim.git]
/
test
/
aux-fixed
/
dkim
/
sign.pl
diff --git
a/test/aux-fixed/dkim/sign.pl
b/test/aux-fixed/dkim/sign.pl
index 6220015aec08b916087c28f99a5fea60b71adb89..a08f38f5628db73633fe36512c086c72a89089b8 100644
(file)
--- 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 $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,
GetOptions(
"method=s" => \$method,
"selector=s" => \$selector,
"keyfile=s" => \$keyfile,
+ "algorithm=s" => \$algorithm,
);
# create a signer object
my $dkim = Mail::DKIM::Signer->new(
);
# create a signer object
my $dkim = Mail::DKIM::Signer->new(
- Algorithm =>
"rsa-sha1"
,
+ Algorithm =>
$algorithm
,
Method => $method,
Domain => "test.ex",
Selector => $selector,
Method => $method,
Domain => "test.ex",
Selector => $selector,