The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# Copyright (c) 2000-2004 Sergey Rusakov.  All rights reserved.
%# This program is open source software
%#
%#
%#----------------------------------------------------------------------------
<%perl>
  # only admin may see it
  return if ! $ePortal->isAdmin;
</%perl>

<&| /dialog.mc, width => '100%',
      title => pick_lang(rus => "Ðàçäåë àäìèíèñòðàòîðà", eng => "Administrator's section"),
      title_url => '/admin/index.htm' &>
<& SELF:dialog_content &>
</&>
<& /empty_table.mc, height => 10 &>

%#=== @metags dialog_content ====================================================
<%method dialog_content><%perl>
my $something_wrong;

#
#=== @metags Admin_mode ===================================
#
if ($ePortal->admin_mode) {
  $something_wrong=1;
  </%perl>
  <li><b><% pick_lang(rus => "Âêëþ÷åí ðåæèì àäìèíèñòðàòîðà", eng => "Admin mode is on") %></b>
  <span class="memo">
    <% pick_lang(
        rus => "Ëþáîé ïîëüçîâàòåëü ÿâëÿåòñÿ àäìèíèñòðàòîðîì! ",
        eng => "Any user is administrator") %>
  </span>
  <%perl>
}

#
#=== @metags ePortal_config_parameters
#
if ( !$ePortal->www_server or ! $ePortal->smtp_server or ! $ePortal->mail_domain) {
  $something_wrong=1;
  </%perl>
  <li><b><% pick_lang(
      rus => "Ñåðâåð ñêîíôèãóðèðîâàí íå ïîëíîñòüþ",
      eng => "The server is not configured completely") %></b>
  <span class="memo">
    <% pick_lang(
        rus => "Íåêîòîðûå ôóíêöèè ñåðâåðà íå áóäóò ðàáîòàòü",
        eng => "Some functionality is disabled") %>
  </span>
  <% plink({rus => "Èñïðàâèòü", eng => "Correct it"}, -href => '/admin/ePortal_setup.htm') %>
  <%perl>
}

#
#=== @metags Default_PageView ===================================
#
my $pv = new ePortal::PageView;
if ( ! $pv->restore_default ) {
  $something_wrong=1;
  </%perl>
  <li><b><% pick_lang(
      rus => "Íå ñîçäàíà äîìàøíÿÿ ñòðàíèöà äëÿ âñåõ",
      eng => "Default home page is not exists") %></b>
  <span class="memo">
    <% pick_lang(
        rus => "Íåîáõîäèìî èìåòü õîòÿ áû îäíó äîìàøíþþ ñòðàíèöó äëÿ âñåõ ïîëüçîâàòåëåé",
        eng => "At least one home page should exists") %>
  </span>
  <% plink({rus => "Èñïðàâèòü", eng => "Correct it"}, -href => '/pv/pv_edit.htm?ok_url=/index.htm') %>
  <%perl>
}

#
#=== @metags Any_PageSection ============================================
#
my $ps = new ePortal::PageSection;
$ps->restore_all;
if ( ! $ps->restore_next ) {
  $something_wrong=1;
  </%perl>
  <li><b><% pick_lang(
      rus => "Íåò íè îäíîãî ðàçäåëà äëÿ äîìàøíåé ñòðàíèöû",
      eng => "No home page sections registered") %></b>
  <span class="memo">
    <% pick_lang(
        rus => "Ñ ïîìîùüþ ñåêöèé ôîðìèðóåòñÿ âèä äîìàøíåé ñòðàíèöû",
        eng => "With the help of sections the home page is cunstructed") %>
  </span>
  <% plink({rus => "Èñïðàâèòü", eng => "Correct it"}, -href => '/pv/ps_list.htm') %>
  <%perl>
}

#
#=== @metags Any_user ============================================
#
my $u = new ePortal::epUser;
$u->restore_where(where => "username <> 'admin'");
if ( ! $u->restore_next ) {
  $something_wrong=1;
  </%perl>
  <li><b><% pick_lang(
      rus => "Íå çàðåãèñòðèðîâàíî íè îäíîãî îáû÷íîãî ïîëüçîâàòåëÿ",
      eng => "No users registered yet") %></b>
  <span class="memo">
    <% pick_lang(
        rus => "Íèêòî íå ñìîæåò çàðåãèñòðèðîâàòüñÿ íà ñåðâåðå",
        eng => "Nobody can login to server") %>
  </span>
  <% plink({rus => "Èñïðàâèòü", eng => "Correct it"}, -href => '/admin/users_list.htm') %>
  <%perl>
}

#
#=== @metags Applications ==================================================
foreach my $appname ($ePortal->ApplicationsInstalled) {
  my $ap;
  try { $ap = $ePortal->Application($appname); 
      } otherwise {};
  if ( ! $ap ) {
    $something_wrong=1;
    </%perl>
    <li><b><% pick_lang(
        rus => "Ïðèëîæåíèå $appname íå íàñòðîåíî",
        eng => "Applications $appname is not configured") %></b>
    <span class="memo">
      <% pick_lang(
          rus => "Äàííîå ïðèëîæåíèå íå ìîæåò íîðìàëüíî ôóíêöèîíèðîâàòü",
          eng => "This application will not work") %>
    </span>
    <% plink({rus => "Èñïðàâèòü", eng => "Correct it"}, -href => '/admin/index.htm') %>
    <%perl>
  }
}


#
#=== @metags CronJob_JobStatus ==================================================
#
{
  my $cj = new ePortal::CronJob;
  $cj->restore_all;
  while($cj->restore_next) {

    # Check for disabled
    if ( $cj->JobStatus eq 'disabled') {
      $something_wrong = 1;
      </%perl>
      <li><b><% pick_lang(
          rus => "Ïåðèîäè÷åñêîå çàäàíèå " . $cj->Title . " îòêëþ÷åíî",
          eng => "Periodic job " . $cj->Title . " is disabled") %></b>
      <span class="memo">
        <% pick_lang(
            rus => "Äàííîå çàäàíèå íå áóäåò èñïîëíÿòüñÿ",
            eng => "This job will never be executed") %>
      </span>
      <% plink({rus => "Ïðîâåðèòü", eng => "Check it"}, -href => '/admin/CronJob_list.htm') %>
      <%perl>

    # Check for failed
    } elsif ( $cj->LastResult eq 'failed' ) {
      $something_wrong = 1;
      </%perl>
      <li><b><% pick_lang(
          rus => "Ïåðèîäè÷åñêîå çàäàíèå " . $cj->Title . " îòðàáîòàëî ñ îøèáêîé",
          eng => "Periodic job " . $cj->Title . " is failed") %></b>
      <span class="memo">
        <% pick_lang(
            rus => "Çàäàíèå áûëî èñïîëíåíî ñ îøèáêîé",
            eng => "This job is failed to execute") %>
      </span>
      <% plink({rus => "Ïðîâåðèòü", eng => "Check it"}, -href => '/admin/CronJob_list.htm') %>
      <%perl>
    }
  }
}

#
#=== @metags hideinsets ==================================================
#
{
  if ( $ePortal->UserConfig('hideinsets')) {
    $something_wrong = 1;
    </%perl>
    <li><b><% pick_lang(
        rus => "Îòîáðàæåíèå âñòàâîê HTML " . img(src=>"/images/ePortal/html.gif") . " îòêëþ÷åíî",
        eng => "Insets ".img(src=>"/images/ePortal/html.gif")." are hidden") %></b>
    <span class="memo">
      <% pick_lang(
          rus => "Ðåäàêòèðîâàíèå âñòàâîê HTML íå âîçìîæíî",
          eng => "Inset editor is not available") %>
    </span>
    <% plink({rus => "Âêëþ÷èòü", eng => "Turn on"}, -href => '/admin/show_insets.htm') %>
    <%perl>
  }
}

#
#=== @metags perl_no_validation ==================================================
# 
{
  #if ( !$ENV{PERL_NO_VALIDATION} ) {
  if ( $ePortal::DEBUG ) {
    $something_wrong = 1;
    </%perl>
    <li><b><% pick_lang(
        rus => "Âêëþ÷åí ðåæèì îòëàäêè",
        eng => "Debug mode is ON") %></b>
    <span class="memo">
      <% pick_lang(
          rus => "Óñòàíîâèòå ïåðåìåííóþ îêðóæåíèÿ PERL_NO_VALIDATION=1 äëÿ îòêëþ÷åíèÿ ðåæèìà îòëàäêè",
          eng => "Set environment variable PERL_NO_VALIDATION=1 to turn it off") %>
    </span>
    <%perl>
  }
}


#
#=== @metags The_end ===================================================
#
if ( ! $something_wrong ) {
  </%perl>
  <% pick_lang(rus => "Çàìå÷àíèé íåò...", eng => "No significant remarks...") %>
  <%perl>
}
</%perl></%method>