HTMLArea: auto-generated examples index
% while (<*.html>) {
% next if /^index.html$/;
-
<% $_ %>
% }
mishoo@infoiasi.ro
Last modified: Sun Feb 1 13:30:39 EET 2004
<%INIT>
my $dir = $m->interp->comp_root;
$dir =~ s{/+$}{}g;
#$dir =~ s{/[^/]+$}{}g;
$dir .= $m->current_comp->dir_path;
chdir $dir;