2004-04-21 00:45:00 +02:00
|
|
|
<!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 />
|
2005-06-18 22:43:14 +02:00
|
|
|
<address>mihai_bazon@yahoo.com</address>
|
2004-04-21 00:45:00 +02:00
|
|
|
<!-- 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>
|
