--- /root/.cpan/build/Mail-DKIM-0.31/scripts/dkimsign.pl 2008-01-24 07:26:43.000000000 -0600 +++ /usr/local/bin/dkimsign.pl 2008-04-21 10:53:41.000000000 -0500 @@ -1,10 +1,14 @@ #!/usr/bin/perl -I../lib # -# Copyright (c) 2005-2007 Messiah College. This program is free software. +# Copyright (c) 2005-2007 Messiah College. This program is free software. # You can redistribute it and/or modify it under the terms of the # GNU Public License as found at http://www.fsf.org/copyleft/gpl.html. # # Written by Jason Long, jlong@messiah.edu. +# Modified by Kyle Wheeler +# +# dkimsign.pl --type=domainkeys --selector=default --key=/etc/domainkeys/memoryhole.net/default --method=nofws < email +# dkimsign.pl --type=dkim --selector=default --key=/etc/domainkeys/memoryhole.net/default --method=relaxed < email use strict; use warnings; @@ -16,6 +20,7 @@ use Pod::Usage; my $type = "dkim"; my $selector = "selector1"; +my $key = "private.key"; my $algorithm = "rsa-sha1"; my $method = "simple"; my $domain; # undef => auto-select domain @@ -32,6 +37,7 @@ GetOptions( "method=s" => \$method, "selector=s" => \$selector, "domain=s" => \$domain, + "key=s" => \$key, "expiration=i" => \$expiration, "identity=s" => \$identity, "key-protocol=s" => \$key_protocol, @@ -61,7 +67,7 @@ my $dkim = new Mail::DKIM::Signer( Algorithm => $algorithm, Method => $method, Selector => $selector, - KeyFile => "private.key", + KeyFile => $key, Debug_Canonicalization => $debugfh, );