Changes to "Cookbook" between 2009-11-06 04:05:14 and 2009-11-06 04:09:03

    64     64   </font></nowiki>
    65     65   
    66     66   Here is a little perl script to put in your cgi-bin to list all the fossils you are publishing:
    67     67   
    68     68   <nowiki>
    69     69   <pre>
    70     70   <font color="#a52a2a">&nbsp;1 </font> #!/usr/bin/perl -w
    71         -<font color="#a52a2a">&nbsp;2 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">$C\
    72         -GI_BIN</font> = <font color="#CD5555">&#39;/Library/WebServer/CGI-Executables&#39;</font><font color=\
    73         -"#000000">;</font>
    74         -<font color="#a52a2a">&nbsp;3 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">@f\
    75         -iles</font> = <font color="#CD5555">`grep -l repository:  $CGI_BIN/* `</font><font color="#000000">;<\
    76         -/font>
    77         -<font color="#a52a2a">&nbsp;4 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555"\
    78         -><b>&lt;&lt;EOM</b></font><font color="#000000">;</font>
           71  +<font color="#a52a2a">&nbsp;2 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">$CGI_BIN</font> = <font color="#CD5555">&#39;/Library/WebServer/CGI-Executables&#39;</font><font color="#000000">;</font>
           72  +<font color="#a52a2a">&nbsp;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>
           73  +<font color="#a52a2a">&nbsp;4 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555"><b>&lt;&lt;EOM</b></font><font color="#000000">;</font>
    79     74   <font color="#a52a2a">&nbsp;5 </font> <font color="#CD5555"><i>Content-Type: text/html</i></font>
    80     75   <font color="#a52a2a">&nbsp;6 </font>
    81     76   <font color="#a52a2a">&nbsp;7 </font> <font color="#CD5555"><i>Fossils for this server</i></font>
    82     77   <font color="#a52a2a">&nbsp;8 </font> <font color="#CD5555"><i>&lt;ul&gt;</i></font>
    83     78   <font color="#a52a2a">&nbsp;9 </font> <font color="#CD5555"><b>EOM</b></font>
    84     79   <font color="#a52a2a">&nbsp;1 </font>0
    85         -<font color="#a52a2a">&nbsp;1 </font>1 <font color="#8B008B"><b>for</b></font> <font color="#000000">\
    86         -(</font><font color="#00688B">@files</font><font color="#000000">)</font> <font color="#000000">{</fo\
           80  +<font color="#a52a2a">&nbsp;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\
    87     81   nt>
    88         -<font color="#a52a2a">&nbsp;1 </font>2   <font color="#CD5555">s{.*/}{}</font><font color="#000000">;\
    89         -</font>
    90         -<font color="#a52a2a">&nbsp;1 </font>3   <font color="#8B008B"><b>next</b></font> <font color="#8B008\
    91         -B"><b>if</b></font> <font color="#CD5555">/~$/</font><font color="#000000">;</font>
    92         -<font color="#a52a2a">&nbsp;1 </font>4   <font color="#8B008B"><b>print</b></font> <font color="#CD55\
    93         -55">&quot;&lt;li&gt;&lt;a href=&#39;$_&#39;&gt;$_&lt;/a&gt;&lt;/li&gt;\n&quot;</font><font color="#00\
    94         -0000">;</font>
           82  +<font color="#a52a2a">&nbsp;1 </font>2   <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font>
           83  +<font color="#a52a2a">&nbsp;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>
           84  +<font color="#a52a2a">&nbsp;1 </font>4   <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>
    95     85   <font color="#a52a2a">&nbsp;1 </font>5 <font color="#000000">}</font>
    96         -<font color="#a52a2a">&nbsp;1 </font>6 <font color="#8B008B"><b>print</b></font> <font color="#CD5555\
    97         -">&quot;&lt;/ul&gt;\n&quot;</font><font color="#000000">;</font>
           86  +<font color="#a52a2a">&nbsp;1 </font>6 <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;/ul&gt;\n&quot;</font><font color="#000000">;</font>
    98     87   </pre>
    99     88   
   100     89   <pre>
   101     90   #!/usr/bin/perl -w
   102     91   my $CGI_BIN = '/Library/WebServer/CGI-Executables';
   103     92   my @files = `grep -l repository:  $CGI_BIN/* `;
   104     93   print &lt;&lt;EOM;