#!/usr/bin/perl #!C:/server/perl/bin/perl.exe $| = 1; if(-e "C:/server") { use lib 'C:/server/apache/htdocs2/conf/FINALCYPHER/BIN/cypher.v2'; use lib 'C:/server/apache/htdocs2/conf/FINALCYPHER/BIN/cypher'; } else { use lib '/usr/lib/perl5/CAPICORE.v20070222/BIN/cypher.v2'; use lib '/usr/lib/perl5/CAPICORE.v20070222/BIN/cypher'; } use Benchmark; my $t0 = new Benchmark; use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); #use CGI::Cache; use gjm::cms::main; #start_timing(); my $gjm_main_inst=gjm::cms::main->new(); $gjm_main_inst->set_isurlbased('false'); $gjm_main_inst->run('languages.upatras.net|'); #die "cdcdcdcdc"; #stop_timing(); #exit; my $t1 = new Benchmark; my $td = timediff($t1, $t0); # print "//the code took:",timestr($td),"\n"; 1;