cgi-bin/community/feature/index.pl

   1 use strict;
   2 use warnings;
   3
   4 use CXGN::Page;
   5 use CatalystX::GlobalContext '$c';
   6 use File::Slurp qw/slurp/;
   7
   8 my $documents_folder = $c->get_conf('basepath') . $c->get_conf('documents_subdir');
   9 my $page = CXGN::Page->new('Featured SOL Community Labs','john');
  10 my $LABS = slurp("$documents_folder/labs.txt")||'';
  11 $page->header();
  12 print $LABS;
  13 $page->footer();