@@ -74,17 +74,17 @@ <font color="#a52a2a"> 5 </font> <font color="#CD5555"><i>Content-Type: text/html</i></font> <font color="#a52a2a"> 6 </font> <font color="#a52a2a"> 7 </font> <font color="#CD5555"><i>Fossils for this server</i></font> <font color="#a52a2a"> 8 </font> <font color="#CD5555"><i><ul></i></font> <font color="#a52a2a"> 9 </font> <font color="#CD5555"><b>EOM</b></font> -<font color="#a52a2a"> 1 </font>0 -<font color="#a52a2a"> 1 </font>1 <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"> 1 </font>2 <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font> -<font color="#a52a2a"> 1 </font>3 <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"> 1 </font>4 <font color="#8B008B"><b>print</b></font> <font color="#CD5555">"<li><a href='$_'>$_</a></li>\n"</font><font color="#000000">;</font> -<font color="#a52a2a"> 1 </font>5 <font color="#000000">}</font> -<font color="#a52a2a"> 1 </font>6 <font color="#8B008B"><b>print</b></font> <font color="#CD5555">"</ul>\n"</font><font color="#000000">;</font> +<font color="#a52a2a"> 10 </font>0 +<font color="#a52a2a"> 11 </font>1 <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"> 12 </font>2 <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font> +<font color="#a52a2a"> 13 </font>3 <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"> 14 </font>4 <font color="#8B008B"><b>print</b></font> <font color="#CD5555">"<li><a href='$_'>$_</a></li>\n"</font><font color="#000000">;</font> +<font color="#a52a2a"> 15 </font>5 <font color="#000000">}</font> +<font color="#a52a2a"> 16 </font>6 <font color="#8B008B"><b>print</b></font> <font color="#CD5555">"</ul>\n"</font><font color="#000000">;</font> </pre> <pre> #!/usr/bin/perl -w my $CGI_BIN = '/Library/WebServer/CGI-Executables';