* curl-shim.c (curl_easy_perform): Fix compile warning.
[gnupg.git] / keyserver / gpgkeys_mailto.in
index 9086de4..7167c3a 100755 (executable)
@@ -1,6 +1,6 @@
 #!@PERL@ -w
 
-# gpgkeys_mailto - talk to a email keyserver
+# gpgkeys_mailto - talk to a email keyserver 
 # Copyright (C) 2001, 2002 Free Software Foundation, Inc.
 #
 # This file is part of GnuPG.
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 
 use Getopt::Std;
+$Getopt::Std::STANDARD_HELP_VERSION=1;
 $sendmail="@SENDMAIL@ -t";
 
 ###
 
+sub VERSION_MESSAGE ()
+{
+    print STDOUT "gpgkeys_mailto (GnuPG) 1.3.91-cvs\n";
+}
+
+sub HELP_MESSAGE ()
+{
+    print STDOUT <<EOT
+
+--help     Print this help
+--version  Print the version
+-o FILE    Write output to FILE
+EOT
+}
+
+
+
 getopts('o:');
 
 if(defined($opt_o))
@@ -44,7 +62,7 @@ while(<STDIN>)
 {
     last if($_ eq "\n");
 
-    if(/^COMMAND (\w+)/)
+    if(/^COMMAND (\S+)/)
     {
        $command=$1;
     }
@@ -59,7 +77,7 @@ while(<STDIN>)
        $program=$1;
     }
 
-    if(/^OPTION (\w+)/)
+    if(/^OPTION (\S+)/)
     {
        if($1=~/^verbose$/i)
        {
@@ -114,7 +132,7 @@ while(<STDIN>)
 
 # Send response
 
-print "VERSION 0\n";
+print "VERSION 1\n";
 print "OPTION OUTOFBAND\n\n";
 
 # Email keyservers get and search the same way
@@ -175,7 +193,7 @@ if($command=~/send/i)
 
        while(<STDIN>)
        {
-           if(/^KEY (\w+) BEGIN$/)
+           if(/^KEY (\S+) BEGIN$/)
            {
                $key=$1;
                last;
@@ -184,7 +202,7 @@ if($command=~/send/i)
 
        while(<STDIN>)
        {
-           if(/^KEY \w+ END$/)
+           if(/^KEY \S+ END$/)
            {
                last;
            }
@@ -200,3 +218,8 @@ if($command=~/send/i)
        }
     }
 }
+
+
+# Local Variables: 
+# mode:perl
+# End: