<:
# grab the page information passed in
my $page_string = "$(page)";
# if the page info is not blank, process it
if ($page_string ne "") {
# first, print some red text
print "Page Path - ";
# split the line on the colon in case we are passing more
# than one piece of information as in:
# href1:text1:href2:text2:final text
# loop through, building the link
my @page = split(/:/, $page_string);
while (@page > 1) {
my $href = "$(ROOT)" . shift(@page);
my $text = shift(@page);
print "
$text - ";
}
print "$page[0]";
} else {
print "No bread crumbs!\n";
}
:>