echo.pl

来自「ncbi源码」· PL 代码 · 共 93 行

#!/usr/local/bin/perl

# $Id: echo.pl,v 1000.0 2003/10/31 21:38:10 gouriano Exp $
#
# Author:  Josh Cherry
#
# ask gbench for some arguments and echo them back

use CGI;

$qs = <STDIN>;
$query = new CGI($qs);

#if a get info call...
if ($query->param('action') eq "info") {
    print '
   PluginInfo ::= {
      ver-major 0,
      ver-minor 0,
      ver-revision 0,
      ver-build-date "",
      class-name "echo.pl",
      menu-item "Test scripts/echo in perl",
      tooltip "echo arguments we are handed",
      commands algo {
        {
          command 3,
          args {
            {
              name "locs",
              desc "Locations to evaluate",
              data array {
                object {
                  docaddr "(nil)",
                  objaddr "(nil)",
                  subtype "Seq-loc"
                }
              }
            },
            {
              name "integers",
              desc "Some Integers",
              data array {
                integer 1
              }
            },
            {
              name "string",
              desc "A string",
              data single string ""
            },
            {
              name "double",
              desc "A double",
              data single double { 6, 10, -1 }
            }
          }
        }
      }
    }
   '
} else {  # otherwise, run
    print "$qs\n";
}


# ===========================================================================
# $Log: echo.pl,v $
# Revision 1000.0  2003/10/31 21:38:10  gouriano
# PRODUCTION: IMPORTED [ORIGINAL] Dev-tree R1.3
#
# Revision 1.3  2003/10/29 20:12:05  jcherry
# Reflect new spec for plugin args
#
# Revision 1.2  2003/10/07 13:47:03  dicuccio
# Renamed CPluginURL* to CPluginValue*
#
# Revision 1.1  2003/07/28 18:24:31  jcherry
# Initial version
#
# ===========================================================================


# 
#  ===========================================================================
#  PRODUCTION $Log: echo.pl,v $
#  PRODUCTION Revision 1000.0  2003/10/31 21:38:10  gouriano
#  PRODUCTION PRODUCTION: IMPORTED [ORIGINAL] Dev-tree R1.3
#  PRODUCTION
#  ===========================================================================
#