mason/homepage/getting_started.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 /homepage/getting_started.mas - a mason component to display a sidebar on the SGN homepage
   7
   8 =head1 DESCRIPTION
   9
  10 Loads and displays the file at 'homepage_files_dir'/getting_started.txt
  11
  12 =head1 AUTHOR
  13
  14 Lukas Mueller <lam87@cornell.edu>
  15
  16 =cut
  17
  18 </%doc>
  19 <%init>
  20 use File::Spec;
  21 </%init>
  22 <%perl>
  23
  24 use strict;
  25
  26 my $file = File::Spec->catfile($c->get_conf('homepage_files_dir'), 'getting_started.txt');
  27
  28 my $contents = "Sidebar contents are not available at the moment.<br /><br />";
  29
  30 eval {
  31   $contents = $m->file($file);
  32 };
  33 if ( $@ && !$c->get_conf('production_server') ) {
  34   $contents .= $@;
  35 }
  36
  37 </%perl>
  38
  39 <% $contents %>