%once>
my $logger = Log::Log4perl->get_logger('rbc.info.svn');
$logger->debug("call once block");
my @repos =
qw( http://reelboxcenter.ch/reel/reel http://reelboxcenter.ch/reel/baycom http://reelboxcenter.ch/reel/fueri );
%once>
<%attr>
ajax => 1
%attr>
<%args>
$head => 200
$rep_id => 0
%args>
<%init>
my $out = get( "$repos[$rep_id]$head.txt" );
%init>
Reel Testing|
Baycom|
ReelboxCenter
@(500)|
@(1000)|
@(5000)
<% $out %>