<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"> <html> <head> <title>HTMLArea examples index</title> </head> <body> <h1>HTMLArea: auto-generated examples index</h1> <ul> % while (<*.html>) { % next if /^index.html$/; <li> <a href="<% $_ %>"><% $_ %></a> </li> % } </ul> <hr /> <address>mishoo@infoiasi.ro</address> <!-- hhmts start --> Last modified: Sun Feb 1 13:30:39 EET 2004 <!-- hhmts end --> </body> </html> <%INIT> my $dir = $m->interp->comp_root; $dir =~ s{/+$}{}g; #$dir =~ s{/[^/]+$}{}g; $dir .= $m->current_comp->dir_path; chdir $dir; </%INIT>