testtgi.pl

multi-line Adjunct Communication Server

#!/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");