mason/homepage/affiliated_sites.mas

   1
   2 <%perl>
   3
   4 use strict;
   5 use CXGN::Tools::File;
   6 use CXGN::VHost;
   7 use File::Spec;
   8
   9 my $vh = CXGN::VHost->new();
  10 my $file = File::Spec->catfile($vh->get_conf('basepath'), 'documents', 'affiliated_sites.txt');
  11
  12 print "";
  13
  14 my $contents = CXGN::Tools::File::read_commented_file($file);
  15
  16 </%perl>
  17
  18 <% $contents %>
  19