testtgi.pl

来自「multi-line Adjunct Communication Server」· PL 代码 · 共 11 行

#!/usr/bin/perl

use lib $ENV{'SERVER_LIBEXEC'};
use TGI;

$string = $TGI::QUERY{string};

TGI::set("val1", $string);
TGI::set("val2", "testing");
TGI::set("val3", "1..2..3");