<%doc>
############################################################################
###    (C)opyright 2003 - 2008 RIPE NCC
###    This file is part of DNSMon
###
###    DNSMon is free software: you can redistribute it and/or modify
###    it under the terms of the GNU General Public License as published by
###    the Free Software Foundation, either version 3 of the License, or
###    (at your option) any later version.
###
###    DNSMon is distributed in the hope that it will be useful,
###    but WITHOUT ANY WARRANTY; without even the implied warranty of
###    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
###    GNU General Public License for more details.
###
###    You should have received a copy of the GNU General Public License
###    along with DNSMon.  If not, see <http://www.gnu.org/licenses/>.
############################################################################

A very simple method to output a menu.
More sophisticated HTML rendering planned sometime.
</%doc>
<%args>
$highlight => ''
@items
</%args>
<%perl>
	my $url = $m->scomp('/lib/url', path => $r->uri);

	print $url;
	my $i=0;
	my @links;

	for($i=0; $i<$#items; $i++) {
		if (($items[$i] eq $highlight) or
			($items[$i+1] eq $url)) {
			push @links, "<a href=\"$items[$i+1]\"><b>$items[$i]</b></a>";
		}
		else  {
			push @links, "<a href=\"$items[$i+1]\">$items[$i]</a>";
		}
		$i++;
	}
</%perl>
<% join(" | ", @links) %>
