"Fossies" - the Fresh Open Source Software Archive

Member "bayonne-1.2.16/data/tgi/testtgi.pl" (3 May 2001, 663 Bytes) of package /linux/misc/old/bayonne-1.2.16.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "testtgi.pl" see the Fossies "Dox" file reference documentation.

    1 #!/usr/bin/perl
    2 #
    3 # Copyright (C) 2000-2001 Open Source Telecom Corporation.
    4 #  
    5 # This file is free software; as a special exception the author gives
    6 # unlimited permission to copy and/or distribute it, with or without 
    7 # modifications, as long as this notice is preserved.
    8 # 
    9 # This program is distributed in the hope that it will be useful, but
   10 # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the
   11 # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
   12 
   13 use lib $ENV{'SERVER_LIBEXEC'};
   14 use TGI;
   15 
   16 $string = $TGI::QUERY{string};
   17 
   18 TGI::set("val1", $string);
   19 TGI::set("val2", "testing");
   20 TGI::set("val3", "1..2..3");
   21 exit 3