%doc>
#
# $Id: events.html,v 1.1 2001/12/17 13:54:15 adulau Exp $
#
# events is basic dump of events
# Author : Alexandre Dulaunoy
# Copyright (C) 2001 Alexandre Dulaunoy
# Copyright (C) 2001 Conostix S.A. Luxembourg - Alexandre Dulaunoy
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 2 of the License, or (at your
# option) any later version. See .
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
%doc><%args>
$session
$web_agent_id
$web_like
$start => '0'
$max => '50'
$event_type => ''
%args>
<%perl>
#if ($session->{query} eq "")
#{
#$session->{query} = "select event_id,agent_id,message from events";
#}
if ($web_agent_id eq "")
{
if ($event_type eq "")
{
$session->{query}="select event_id,agent_id,message from events where message like '%$web_like%' order by event_id desc limit $max";
}
else
{
$session->{query}="select event_id,agent_id,message from events where message like '%$web_like%' and event_type='$event_type' order by event_id desc limit $max";
}
}
else
{
if ($event_type eq "")
{
$session->{query}="select event_id,agent_id,message from events where agent_id=$web_agent_id order by event_id desc limit $max";
}
else
{
$session->{query}="select event_id,agent_id,message from events where agent_id=$web_agent_id and event_type='$event_type' order by event_id desc limit $max";
}
}
#print $session->{query};
my @results = $m->comp('../internal/sql-query.ipfc',query=>$session->{query});
%perl>
<%perl>
my $return = $m->comp('../internal/head-page.html',title=>'Events screen',session=>$session); %perl>
Event ID | Agent ID | Message |
% foreach my $current_line (@results) {
% foreach my $current_entry (@{$current_line}) {
<% $current_entry %> |
% }
% }
<%perl>
my $endbody = $m->comp('../internal/end-page.html');
%perl>