<font color="#a52a2a">&nbsp;11 </font> <font color="#8B008B"><b>for</b></font> <font color="#000000">(</font><font color="#00688B">@files</font><font color="#000000">)</font> <font color="#000000">{</font>
<font color="#a52a2a">&nbsp;12 </font>   <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;13 </font>   <font color="#8B008B"><b>next</b></font> <font color="#8B008B"><b>if</b></font> <font color="#CD5555">/~$/</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;14 </font>   <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;li&gt;&lt;a href=&#39;$_&#39;&gt;$_&lt;/a&gt;&lt;/li&gt;\n&quot;</font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;15 </font> <font color="#000000">}</font>
<font color="#a52a2a">&nbsp;16 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;/ul&gt;\n&quot;</font><font color="#000000">;</font>
</pre>

<pre>
#!/usr/bin/perl -w
my $CGI_BIN = '/Library/WebServer/CGI-Executables';
my @files = `grep -l repository:  $CGI_BIN/* `;
print &lt;&lt;EOM;
Content-Type: text/html

Fossils for this server
&lt;ul>
EOM

for (@files) {
  s{.*/}{};
  next if /~$/;
  print "&lt;li>&lt;a href='$_'>$_&lt;/a>&lt;/li>\n";
}
print "&lt;/ul>\n";</pre>
</nowiki>

The following <cite>apache2</cite> configuration can be used to run the root of a web site with fossil, but still allow other services / documents to be reached via specific URLs. Replace "code.autonomo.us" with your site's name and "dclark@pobox.com" with your email.

<verbatim>
NameVirtualHost *:80
<VirtualHost *:80>