mason/homepage/oldevents.mas

   1 <%once>
   2 use strict;
   3 use File::Spec;
   4 </%once>
   5
   6 <%perl>
   7
   8 my $file =File::Spec->catfile($c->get_conf('homepage_files_dir'), "events.txt");
   9
  10 my $news = qq { <p class="boxbgcolor5"><br />The past and present SOL events are currently unavailable due to a server problem. We apologize for any inconvenience. Please check back later.<br /><br /></p><br /><br /> };
  11
  12 eval {
  13   $news = $m->file($file);
  14 };
  15
  16
  17 </%perl>
  18
  19 <& /page/page_title.mas, title=>'Past and present SOL Events' &>
  20
  21 <% $news %>