<%attr> ajax => 1 <& SELF:display, %ARGS &>
<& SELF:display_form, %ARGS &> <%method display> <%args> $grep => undef $logfile => '/var/log/syslog'; <%perl> my $out = $m->comp("/include/system:logtail", logfile => $logfile, %ARGS); $out =~ s/^\s*//g;
<% $out %>
<%method display_form>
@(Suchen):  
<%filter> use HTML::FillInForm; # auto fill in form fields my $fif = HTML::FillInForm->new(); $_ = $fif->fill( scalarref => \$_, fdat => \%ARGS );