%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2001 Sergey Rusakov. All rights reserved. %# This program is free software; you can redistribute it %# and/or modify it under the same terms as Perl itself. %# %# $Revision: 3.6 $ %# $Date: 2003/04/24 05:36:51 $ %# $Header: /home/cvsroot/ePortal/comp_root/admin/index.htm,v 3.6 2003/04/24 05:36:51 ras Exp $ %# %#----------------------------------------------------------------------------

<& /item_caption.mc, title => 'ePortal setup step-by-step' &>

%# %# =========================================================================== %#

<& /item_caption.mc, title => pick_lang(rus => "Пользователии группы", eng => "Users and groups") &>

%# %# =========================================================================== %#

<& /item_caption.mc, title => pick_lang(rus => "Приложения", eng => "Applications") &> <%perl> # All installed as unconfigured my %A = ( map {$_ => 0} $ePortal->ApplicationsInstalled ); # Mark as configured some of them foreach (keys %{ $ePortal->applications }) { $A{$_} = $ePortal->applications->{$_}; } # save config $ePortal->{applications} = \%A; $ePortal->config_save; $ePortal->config_load; foreach my $app_name ($ePortal->ApplicationsInstalled) { % }
<% pick_lang(rus => "Наименование", eng => "Name") %> <% pick_lang(rus => "Действия", eng => "Actions") %> <% pick_lang(rus => "Статус", eng => "Status") %>
<% $app_name %> <% plink(pick_lang(rus => "Настройка", eng => "Setup"), -href => $app_name.'_setup.htm') %> <% plink(pick_lang(rus => "Загрузка каталога", eng => "Load Catalogue"), -href => $app_name.'_catalog.htm') %> <% $ePortal->applications->{$app_name} ? 'Ok!' : 'Not Ok!' %>
%# %# =========================================================================== %#

<& /item_caption.mc, title => pick_lang(rus => "Прочие ссылки", eng => "Other resources") &>