\{
  if ($NO_FRAMES)
  \{
    $OUT .= <<EOF;
<frameset rows="68,*" cols="*" frameborder="NO" border="0" framespacing="0">
  <frame src="/server-manager/header.htm" name="header" scrolling="NO" noresize >
  <frameset rows="*" cols="192,*" framespacing="0" frameborder="NO" border="0">
    <frame src="/server-manager/navigation" name="navigation" scrolling="auto" noresize>
    <frame src="/server-manager/initial.cgi" name="main">
  </frameset>
</frameset>

</FRAMESET>

<NOFRAMES>
EOF
  \}
  else
  \{
     my $panel = "Server manager";
     my $img = "server-manager.jpg";

     $OUT .= <<EOF;
<body>
EOF
  \}

  if( $ENV\{REQUEST_URI\} =~ m/(server-manager)/) \{

    $DB = esmith::ConfigDB->open();
    $OUT .= qq(<div class="sme-error"><h5>
      Warning: you have not yet changed the default system password.</h5></div>)
      unless ($DB->get('PasswordSet')->value eq "yes");

    $OUT .= qq(<div class="sme-error"><h5>
      Warning: a reconfigure and reboot is required before proceeding! Failure to do so now
      may leave your system in an unknown state!</h5></div>)
      if ($DB->get('bootstrap-console') and $DB->get('bootstrap-console')->prop('Run') eq 'yes') ||
         ($DB->get('UnsavedChanges') and $DB->get('UnsavedChanges')->value eq 'yes');

    # SME v8 End of Life message
    use POSIX qw(strftime);
    my $curdate = strftime '%Y%m%d', localtime;
    $OUT .= qq(<div class="sme-error"><h5>
      URGENT NOTICE: As per March 31st 2017, SME Server 8 is obsolete, and potentially INSECURE. NO support will be offered for any issue found with this installed version.
      Please migrate IMMEDIATELY to Koozali SME Server 9 or higher version. Failure to upgrade may lead to the compromise of this server.
      </br>Please, consult <a href="https://wiki.contribs.org/SME_Server:Download" target="_blank">https://wiki.contribs.org/SME_Server:Download</a> to get last available version.</h5></div>) 
      if  ( "$curdate"  >= "20170331");

    $OUT;

  \}

\}
