mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-12-02 12:54:18 +01:00
30 lines
567 B
HTML
30 lines
567 B
HTML
|
<!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>
|