<%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 ); <%attr> ajax => 1 <%args> $head => 200 $rep_id => 0 <%init> my $out = get( "$repos[$rep_id]$head.txt" ); Reel Testing| Baycom| ReelboxCenter

@(500)| @(1000)| @(5000)

<% $out %>