#!/usr/bin/perl #---------------------------------------------------------------------------- # $Header: e:/p/w/playchess/rcs/playchess.cgi 1.2 2003/01/15 16:49:44Z ts init $ #---------------------------------------------------------------------------- # $Log: playchess.cgi $ # Revision 1.2 2003/01/15 16:49:44Z ts # CGI-scripts moved to cgi directory -> relative path # Revision 1.1 2001/09/09 14:22:30Z ts # Initial revision #---------------------------------------------------------------------------- use lib "../cgi-bin"; use CGI::Carp qw(fatalsToBrowser); use PCSession; use Template; use Util; use CGI qw( :standard ); local $cgi = CGI->new(); DBG(__FILE__,__LINE__, $cgi ); local $sobj = PCSession->new( $cgi ); local $sname = $sobj->getValue( 'name' ); local $config = getConfig(); local $tpl = Template->new( "playchess.tpl" ); print $tpl->Expand($sobj); exit(0);