git://git.exim.org
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Testsuite: case for TLS client tls-on-connect
[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 1c2a8728095bb5188d825b6fc9842c23ba84d4e8..a08f38f5628db73633fe36512c086c72a89089b8 100644
(file)
--- 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;
use Mail::DKIM::TextWrap; #recommended
use Getopt::Long;
+# default option values
my $method = "simple/simple";
my $method = "simple/simple";
+my $selector = "sel";
+my $keyfile = "aux-fixed/dkim/dkim.private";
+my $algorithm = "rsa-sha1";
GetOptions(
"method=s" => \$method,
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",
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
);
# read an email and pass it into the signer, one line at a time