diff options
author | Anas Nashif <anas.nashif@intel.com> | 2013-03-27 09:15:23 -0700 |
---|---|---|
committer | Anas Nashif <anas.nashif@intel.com> | 2013-03-27 09:15:23 -0700 |
commit | 6576640b55777bd811a12a188b9b1f3c63653799 (patch) | |
tree | 7dab5ece3a5bf7ed238e8b0824194ce01b61121e /keyserver/gpg2keys_test.in | |
download | gpg2-6576640b55777bd811a12a188b9b1f3c63653799.tar.gz gpg2-6576640b55777bd811a12a188b9b1f3c63653799.tar.bz2 gpg2-6576640b55777bd811a12a188b9b1f3c63653799.zip |
Imported Upstream version 2.0.19upstream/2.0.19
Diffstat (limited to 'keyserver/gpg2keys_test.in')
-rwxr-xr-x | keyserver/gpg2keys_test.in | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/keyserver/gpg2keys_test.in b/keyserver/gpg2keys_test.in new file mode 100755 index 0000000..9f2c0b6 --- /dev/null +++ b/keyserver/gpg2keys_test.in @@ -0,0 +1,97 @@ +#!@PERL@ + +# gpg2keys_test - keyserver code tester +# Copyright (C) 2001 Free Software Foundation, Inc. +# +# This file is part of GnuPG. +# +# GnuPG is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# GnuPG is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, see <http://www.gnu.org/licenses/>. +use Getopt::Std; +$Getopt::Std::STANDARD_HELP_VERSION=1; + +$|=1; + +sub VERSION_MESSAGE () +{ + print STDOUT "gpg2keys_test (GnuPG) @VERSION@\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"; + open(STDOUT,">$opt_o") || die "Can't open output file $opt_o\n"; +} + +if(@ARGV) +{ + print STDERR "Using input file $ARGV[0]\n"; + open(STDIN,$ARGV[0]) || die "Can't open input file $ARGV[0]\n"; +} + +# Get the command block + +print STDERR "Command block:\n"; + +while(<STDIN>) +{ + last if($_ eq "\n"); + print STDERR "--command-> $_"; + + if(/^COMMAND (\w+)/) + { + $command=$1; + } +} + +# Get the keylist block + +print STDERR "Keylist block:\n"; + +while(<STDIN>) +{ + last if($_ eq "\n"); + print STDERR "--keylist-> $_"; +} + +# If it's a SEND, then get the key material + +if($command eq "SEND") +{ + print STDERR "Key material to send:\n"; + + while(<STDIN>) + { + print STDERR "$_"; + } +} + +printf STDERR "gpgkeys_test finished\n"; + +# Local Variables: +# mode:perl +# End: |