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