#!/usr/bin/kaptain
#
# whois grammar (C) 2000 by Schneelocke, Schneelocke@gmx.net 
# released under the GNU General Public license, version 2
# http://www.fsf.org/copyleft/gpl.txt
#

start "whois" -> command buttons;
buttons:horizontal -> @action(command)="OK" @close="Cancel";

command :framed -> "whois " opt hosttoquery moreopt object ;

opt "Options" -> verbose ;

hosttoquery "Host to query" -> byhand | ! gtld ;
byhand "Select by hand" -> host port ;
gtld "Use www.crsnic.net to find registrar for a GTLD subdomain" -> "-C " ;

host -> usehost | ! @ ;
usehost "Use specified host" -> "-h " @string " ";

port -> useport | ! @ ;
useport "Use specified port" -> "-p " @integer " ";

verbose -> beverbose | ! @ ;
beverbose "Verbose mode" -> "-V " ;

moreopt "Server flags" -> passmoreopts | ! @ ;
passmoreopts "Flags to pass to RIPE-like server" -> @string ;

object "Object to query for" -> @string ;
 