%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# 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.
%#
%#----------------------------------------------------------------------------
%# Short info about user statistics.
%# 1. Anfo for administrators when the user is blocked
%# 2. Info for user itself when it is blocked and redirected here
%#----------------------------------------------------------------------------
<%perl>
my $app = $ePortal->Application('SquidAcnt');
throw ePortal::Exception::ACL( -operation => 'read', -object => $app)
unless $app->xacl_check_read;
my $user_id = $ARGS{user_id};
# Lookup user object
my $user_obj = $app->SAuser_extended;
$user_obj->restore_where(where => "u.id=?", bind => [$user_id]);
if ( ! $user_obj->restore_next ) {
$m->comp('/message.mc', ErrorMessage => pick_lang(rus => "Ïîëüçîâàòåëü íå íàéäåí", eng => "User not found"));
return;
}
# corresponding group object
my $group_obj = new ePortal::App::SquidAcnt::SAgroup;
$group_obj->restore($user_obj->group_id);
</%perl>
<h1><% $user_obj->Title %></h1>
<br><b><% pick_lang(rus => "Àäðåñ:", eng => "Address:") %></b>
<% $user_obj->address %>
<br><b><% pick_lang(rus => "Áëîêèðîâàí:", eng => "Blocked:") %></b>
<% $user_obj->Blocked ? 'YES': 'no' %>
<br><b><% pick_lang(rus => "Ñðîê äåéñòâèÿ:", eng => "Account expired:") %></b>
<% $user_obj->end_date %>
<table width="90%" border="1">
<% CGI::Tr({},
CGI::th({}, [
' ',
pick_lang(rus => "Äåíü", eng => "Day"),
pick_lang(rus => "Íåäåëÿ", eng => "Week"),
pick_lang(rus => "Ìåñÿö", eng => "Month") ])) %>
<% CGI::Tr({},
CGI::td({}, pick_lang(rus => "Ïîðîã ïðåäóïðåæäåíèÿ", eng => "Warning threshold")),
CGI::td({ -align => 'center'}, [
$app->NiceFormat($user_obj->daily_alert),
' ',
' ' ])) %>
<% CGI::Tr({},
CGI::td({}, pick_lang(rus => "Ëèìèò", eng => "Limit")),
CGI::td({ -align => 'center'}, [
$app->NiceFormat($user_obj->daily_limit),
$app->NiceFormat($user_obj->weekly_limit),
$app->NiceFormat($user_obj->mon_limit) ])) %>
<% CGI::Tr({},
CGI::td({}, pick_lang(rus => "Ôàêòè÷åñêèé òðàôèê", eng => "Traffic")),
CGI::td({ -align => 'center'}, [
$app->NiceFormat($user_obj->daily_traf),
$app->NiceFormat($user_obj->weekly_traf),
$app->NiceFormat($user_obj->mon_traf) ])) %>
</table>
<p>
<% plink( pick_lang(rus => "Ðåäàêòèðîâàòü ïîëüçîâàòåëÿ", eng => "Edit the user"),
-href => href('user_edit.htm', objid => $user_id) ) %>
<% plink( pick_lang(rus => "Ñòàòèñòèêà", eng => "Statistics"),
-href => href('stat_users.htm', ss_period=> 'month', ss_rows => 100, user_id => $user_id) . "#$user_id" ) %>
<p>
%#=== @METAGS attr =========================================================
<%attr>
Title => {rus => "Îïåðàòèâíàÿ èíôîðìàöèÿ î ïîëüçîâàòåëå", eng => "Operational user info"}
</%attr>