mason/homepage/image_of_the_week.mas

   1 <%init>
   2 use File::Slurp qw/slurp/;
   3 use strict;
   4 </%init>
   5 <%perl>
   6 my $url = $c->get_conf('static_datasets_url')."/images/iotw/desc.txt";
   7 my $path = $c->get_conf('static_datasets_path')."/images/iotw/desc.txt";
   8 my $IOTW = "(no image currently available)";
   9 eval {
  10  $IOTW = slurp($path);
  11 };
  12
  13 </%perl>
  14
  15 <!--
  16 <div class="boxbgcolor1" style="margin:0px;">
  17 <div class="boxheading">Image of the week</div><br />
  18 <div class="center">
  19   <span class="tinytype"><% $IOTW %></span>
  20 </div>
  21 </div>
  22 -->
  23
  24 <h4>Featured Image</h4>
  25 <% $IOTW %>