1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-02 22:46:30 +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

@ -20,13 +20,29 @@
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION=1;
$|=1;
print STDERR "gpgkeys_test starting\n";
sub VERSION_MESSAGE ()
{
print STDOUT "gpgkeys_test (GnuPG) 1.3.91-cvs\n";
}
sub HELP_MESSAGE ()
{
print STDOUT <<EOT
--help Print this help
--version Print the version
EOT
}
getopts('o:');
print STDERR "gpgkeys_test starting\n";
if(defined($opt_o))
{
print STDERR "Using output file $opt_o\n";
@ -77,3 +93,7 @@ if($command eq "SEND")
}
printf STDERR "gpgkeys_test finished\n";
# Local Variables:
# mode:perl
# End: