@@ -66,37 +66,26 @@ Here is a little perl script to put in your cgi-bin to list all the fossils you are publishing: <nowiki> <pre> <font color="#a52a2a"> 1 </font> #!/usr/bin/perl -w -<font color="#a52a2a"> 2 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">$C\ -GI_BIN</font> = <font color="#CD5555">'/Library/WebServer/CGI-Executables'</font><font color=\ -"#000000">;</font> -<font color="#a52a2a"> 3 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">@f\ -iles</font> = <font color="#CD5555">`grep -l repository: $CGI_BIN/* `</font><font color="#000000">;<\ -/font> -<font color="#a52a2a"> 4 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555"\ -><b><<EOM</b></font><font color="#000000">;</font> +<font color="#a52a2a"> 2 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">$CGI_BIN</font> = <font color="#CD5555">'/Library/WebServer/CGI-Executables'</font><font color="#000000">;</font> +<font color="#a52a2a"> 3 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">@files</font> = <font color="#CD5555">`grep -l repository: $CGI_BIN/* `</font><font color="#000000">;</font> +<font color="#a52a2a"> 4 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555"><b><<EOM</b></font><font color="#000000">;</font> <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">{</fo\ +<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">{</fo\ nt> -<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="#8B008\ -B"><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="#CD55\ -55">"<li><a href='$_'>$_</a></li>\n"</font><font color="#00\ -0000">;</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"> 1 </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';