mason/system_message.mas

   1 <%init>
   2 use Path::Class;
   3 </%init>
   4 % my $message = eval { file( $c->get_conf('system_message_file') || '' )->slurp };
   5 % if( $message && $message =~ /\S/ ) {
   6 <div class="devbar">
   7    <span style="color: #922; font-weight: bold">Notice: </span>
   8    <!-- system message active -->
   9    <% $message %>
  10 </div>
  11 % }