%#============================================================================
%# 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>