cgi-bin/oldloci.pl

   1
   2 use strict;
   3 use CXGN::MasonFactory;
   4
   5 my $m = CXGN::MasonFactory->new();
   6
   7 $m->exec('/homepage/oldloci.mas');
   8
   9 # use strict;
  10 # use CXGN::Tools::File;
  11 # use CXGN::Page;
  12 # use CXGN::VHost;
  13 # my $vhost_conf=CXGN::VHost->new();
  14 # my $documents_folder=$vhost_conf->get_conf('basepath').$vhost_conf->get_conf('documents_subdir');
  15 # my $page=CXGN::Page->new('SOL Loci','Naama');
  16 # my $LOCI=CXGN::Tools::File::file_contents("$documents_folder/loci.txt")||'';
  17 # $page->header('SOL Loci','SOL Loci');
  18 # print $LOCI;
  19 # $page->footer();