sub parse_template {
#-------------------------------------------------------------------------
# Simply parse the template and replace the link loop
#
my ($TEMPLATE,$loop) = @_;
(ref $loop eq 'ARRAY') || return;
my ($loop_content) = $TEMPLATE =~ /<%link_loop%>(.*?)<%end_loop%>/sm;
my $result;
foreach (@$loop) {
my $tmp = $loop_content;
$tmp =~ s/<%\s*(.*?)\s*%>/(exists $_->{$1})?$_->{$1}:'';/seg;
$result .= $tmp;
}
$TEMPLATE =~ s/(<%link_loop%>.*?<%end_loop%>)/$result/sm;
r