%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2000-2003 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. %# %# %#---------------------------------------------------------------------------- <& /message.mc &>

<&| /dialog.mc:edit_dialog, obj => $obj, title => pick_lang(rus => "Настройка приложения SquidAcnt", eng => "SquidAcnt application setup"), &> <& SELF:dialog_dbi_fields &> % foreach my $field (qw/daily_limit_t weekly_limit_t mon_limit_t daily_alert_t /) { <& /dialog.mc:field, name => $field &> % } <&| /dialog.mc:cell &> <&| SELF:rus &>Лимиты можно указывать в виде 123 X, где X это K-Кб, M-Мб, G-Гб <&| SELF:eng &>Enter limits in form 123 X, when X is K-Kb, M-Mb, G-Gb <&| /dialog.mc:cell &>


% foreach my $field (qw/access_log/) { <& /dialog.mc:field, name => $field &> % } <&| /dialog.mc:cell &>
% foreach my $field (qw/xacl_read xacl_write/) { <& /dialog.mc:field, name => $field &> % } <& /dialog.mc:buttons &>

<& SELF:custom_dbi_memo &>

%#=== @metags once ========================================================= <%once> my ($obj); %#=== @METAGS cleanup ========================================================= <%cleanup> ($obj) = (); %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Настройка приложения SquidAcnt", eng => "SquidAcnt application setup"} Layout => 'Dialog' %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $obj = $ePortal->Application('SquidAcnt', skip_storage_version_check => 1); $m->comp('SELF:setup_onStartRequest', obj => $obj);