crypto/external/bsd/netpgp/dist/src/hkpclient/hkpclient.lua

   1 #! /usr/bin/env lua
   2
   3 --
   4 -- Copyright (c) 2010 The NetBSD Foundation, Inc.
   5 -- All rights reserved.
   6 --
   7 -- This code is derived from software contributed to The NetBSD Foundation
   8 -- by Alistair Crooks (agc@netbsd.org)
   9 --
  10 -- Redistribution and use in source and binary forms, with or without
  11 -- modification, are permitted provided that the following conditions
  12 -- are met:
  13 -- 1. Redistributions of source code must retain the above copyright
  14 --    notice, this list of conditions and the following disclaimer.
  15 -- 2. Redistributions in binary form must reproduce the above copyright
  16 --    notice, this list of conditions and the following disclaimer in the
  17 --    documentation and/or other materials provided with the distribution.
  18 --
  19 -- THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20 -- ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21 -- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22 -- PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23 -- BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24 -- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25 -- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26 -- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27 -- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28 -- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29 -- POSSIBILITY OF SUCH DAMAGE.
  30 --
  31
  32 -- a short HKP client
  33
  34 require("cURL")
  35
  36 -- command line args
  37 dofile "optparse.lua"
  38
  39 opt = OptionParser{usage="%prog [options] file", version="20100226"}
  40
  41 opt.add_option{"-V", "--version", action="store_true", dest="version",
  42                         help="--version"}
  43 opt.add_option{"-m", "--mr", action="store_true", dest="mr", help="-m"}
  44 opt.add_option{"-o", "--op", action="store", dest="op", help="-o op"}
  45 opt.add_option{"-p", "--port", action="store", dest="port", help="-p port"}
  46 opt.add_option{"-s", "--server", action="store", dest="server", help="-s server"}
  47
  48 -- parse command line args
  49 options,args = opt.parse_args()
  50
  51 -- set defaults
  52 local server = options.server or "pgp.mit.edu"
  53 local port = options.port or 11371
  54 local op = options.op or "get"
  55 local mr = ""
  56 if options.mr then mr = "&options=mr" end
  57
  58 -- get output stream
  59 f = io.output()
  60
  61 c = cURL.easy_init()
  62
  63 -- setup url
  64 c:setopt_url("http://" .. server .. ":" .. port ..
  65         "/pks/lookup?op=" .. op .. "&search=" .. args[1] .. mr)
  66
  67 -- perform, invokes callbacks
  68 c:perform({writefunction = function(str)
  69                                 f:write(str)
  70                              end})
  71
  72 -- close output file
  73 f:close()
  74