Testsuite: case for TLS client tls-on-connect
[exim.git] / test / aux-fixed / dkim / sign.pl
index 1c2a8728095bb5188d825b6fc9842c23ba84d4e8..a08f38f5628db73633fe36512c086c72a89089b8 100644 (file)
@@ -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