--- /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,
 		);
 
