80 80 <font color="#a52a2a"> 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>
81 81 <font color="#a52a2a"> 12 </font> <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font>
82 82 <font color="#a52a2a"> 13 </font> <font color="#8B008B"><b>next</b></font> <font color="#8B008B"><b>if</b></font> <font color="#CD5555">/~$/</font><font color="#000000">;</font>
83 83 <font color="#a52a2a"> 14 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555">"<li><a href='$_'>$_</a></li>\n"</font><font color="#000000">;</font>
84 84 <font color="#a52a2a"> 15 </font> <font color="#000000">}</font>
85 85 <font color="#a52a2a"> 16 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555">"</ul>\n"</font><font color="#000000">;</font>
86 86 </pre>
87 -
88 -<pre>
89 -#!/usr/bin/perl -w
90 -my $CGI_BIN = '/Library/WebServer/CGI-Executables';
91 -my @files = `grep -l repository: $CGI_BIN/* `;
92 -print <<EOM;
93 -Content-Type: text/html
94 -
95 -Fossils for this server
96 -<ul>
97 -EOM
98 -
99 -for (@files) {
100 - s{.*/}{};
101 - next if /~$/;
102 - print "<li><a href='$_'>$_</a></li>\n";
103 -}
104 -print "</ul>\n";</pre>
105 87 </nowiki>
106 88
107 89 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.
108 90
109 91 <verbatim>
110 92 NameVirtualHost *:80
111 93 <VirtualHost *:80>