diff options
| author | Jeremy Harris <jgh146exb@wizmail.org> | 2015-12-01 00:01:33 +0000 |
|---|---|---|
| committer | Jeremy Harris <jgh146exb@wizmail.org> | 2015-12-01 19:39:53 +0000 |
| commit | abe1010cc7d7d02629e1c9ca4a00240a44fe041e (patch) | |
| tree | 69317ec2bb554872f5177880f0964c37bf2429ea /test/aux-fixed | |
| parent | 3045f0503a6aacfa5feea1c9b67e7950a8c57ee7 (diff) | |
DKIM: $dkim_key_length visibility variable. Bug 1311
Diffstat (limited to 'test/aux-fixed')
| -rw-r--r-- | test/aux-fixed/dkim/dkim512.private | 9 | ||||
| -rw-r--r-- | test/aux-fixed/dkim/sign.pl | 9 |
2 files changed, 16 insertions, 2 deletions
diff --git a/test/aux-fixed/dkim/dkim512.private b/test/aux-fixed/dkim/dkim512.private new file mode 100644 index 000000000..159852be3 --- /dev/null +++ b/test/aux-fixed/dkim/dkim512.private @@ -0,0 +1,9 @@ +-----BEGIN RSA PRIVATE KEY----- +MIIBOAIBAAJBAL6eAQxd9didJ0/+05iDwJOqT6ly826Vi8aGPecsBiYK5/tAT97f +xXk+dPWMZp9kQxtknEzYjYjAydzf+HQ2yJMCAwEAAQI/d+Dmx+BPvOsYzjZ03HX/ +pt51OxwP/HwQa8oBJGGLfGBJbxdKZoqZu1srifgA9o25x3YrSjfK9zrUgdqJEZRp +AiEA5hUWdth65YX8dNMs93lsV0YkXdYzZ6Yxw6xyBAmpMh8CIQDUFtrIV8EYwgjq +Ck0Un4RXbZleqOljmvhK+t7IBJsjDQIgGSMEqUdNZfYVds37g64IYCCRqI7WXuSR +W0djzX0gtxECIEpwQxWyByoDYFGUj/0/B5oP85aPvmqhR6g5aNvXEgQ5AiBFgvNg +ecXPBzNb52PZWOwH/DyuYE4agI2zLTmTsDJ09Q== +-----END RSA PRIVATE KEY----- diff --git a/test/aux-fixed/dkim/sign.pl b/test/aux-fixed/dkim/sign.pl index 1c2a87280..6220015ae 100644 --- a/test/aux-fixed/dkim/sign.pl +++ b/test/aux-fixed/dkim/sign.pl @@ -2,10 +2,15 @@ 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"; GetOptions( "method=s" => \$method, + "selector=s" => \$selector, + "keyfile=s" => \$keyfile, ); # create a signer object @@ -13,8 +18,8 @@ my $dkim = Mail::DKIM::Signer->new( Algorithm => "rsa-sha1", 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 |