#!/usr/bin/perl
package t::CGI ;
use strict ;
use CGI ;
use CGI::Carp qw(fatalsToBrowser) ;
use Inline (
        Java => '/home/patrickl/DEV/Inline-Java/t/counter.java',
        DIRECTORY => '/home/patrickl/DEV/Inline-Java/_Inline_web_test',
        SHARED_JVM => 1,
        NAME => 't::CGI',
) ;
BEGIN {
        $t::CGI::cnt = new t::CGI::counter() ;
}
my $gnb = $t::CGI::cnt->gincr() ;
my $nb = $t::CGI::cnt->incr() ;
my $q = new CGI() ;
print "Content-type: text/html\n\n" ;
print 
        $q->start_html() .
        "Inline-Java " . $Inline::Java::VERSION . "<BR><BR>" .
        "Inline-Java says this page received $gnb hits!<BR>" .
        "Inline-Java says this CGI ($$) served $nb of those hits." .
        $q->end_html() ;             
1 ;