1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-14 21:47:19 +02:00

* gpgkeys_ldap.c (main, show_help): Kludge to implement standard

GNU options. Factored help printing out.
* gpgkeys_finger.c (main, show_help): Ditto.
* gpgkeys_hkp.c (main, show_help): Ditto.
* gpgkeys_http.c (main, show_help): Ditto.
* gpgkeys_test.in, gpgkeys_mailto.in: Implement --version and --help.
This commit is contained in:
Werner Koch 2004-10-15 12:19:06 +00:00
parent c12b9b1f64
commit e170c54cf8
7 changed files with 137 additions and 14 deletions

View file

@ -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.
@ -20,10 +20,28 @@
# 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))
@ -200,3 +218,8 @@ if($command=~/send/i)
}
}
}
# Local Variables:
# mode:perl
# End: