<%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. # <%args> $session $web_agent_id $web_like $start => '0' $max => '50' $event_type => '' <%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> my $return = $m->comp('../internal/head-page.html',title=>'Events screen',session=>$session);
% foreach my $current_line (@results) { % foreach my $current_entry (@{$current_line}) { % } % }
Event ID Agent ID Message
<% $current_entry %>
<%perl> my $endbody = $m->comp('../internal/end-page.html');