<%INIT> my $site = "bt"; my $category = "articles"; my $topic = ""; my @results = (); <%ARGS> $folder $file $type => "" $title => "" % @results = $m->comp("/$category/info.mas", folder => $folder, file => $file); <& /header.mas, title => "$folder", category => "$category" &>

<%$title %>

<%perl> (my $handle, my $contents, my $size) = split (/\_/, $file); print <<"_end_of_html";

_end_of_html print "\n"; print " $\"$contents\"$ \n"; print <<"_end_of_html";

	$results[0] Contents \| Articles Main

_end_of_html <& /footer.mas, title => $folder, topic => $topic &>