Changes to "Cookbook" between 2009-11-01 10:48:08 and 2009-11-06 04:05:14

    61     61   <font color="#a52a2a">18 </font><font color="#a52a2a"><b>else</b></font><br>
    62     62   <font color="#a52a2a">19 </font>&nbsp;&nbsp;sudo <font color="#a020f0">$0</font>&nbsp;<font color="#a020f0">$*</font><br>
    63     63   <font color="#a52a2a">20 </font><font color="#a52a2a"><b>fi</b></font><br>
    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         -<nowiki><pre>
           68  +<nowiki>
           69  +<pre>
           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>
           79  +<font color="#a52a2a">&nbsp;5 </font> <font color="#CD5555"><i>Content-Type: text/html</i></font>
           80  +<font color="#a52a2a">&nbsp;6 </font>
           81  +<font color="#a52a2a">&nbsp;7 </font> <font color="#CD5555"><i>Fossils for this server</i></font>
           82  +<font color="#a52a2a">&nbsp;8 </font> <font color="#CD5555"><i>&lt;ul&gt;</i></font>
           83  +<font color="#a52a2a">&nbsp;9 </font> <font color="#CD5555"><b>EOM</b></font>
           84  +<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\
           87  +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>
           95  +<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>
           98  +</pre>
           99  +
          100  +<pre>
    69    101   #!/usr/bin/perl -w
    70    102   my $CGI_BIN = '/Library/WebServer/CGI-Executables';
    71    103   my @files = `grep -l repository:  $CGI_BIN/* `;
    72    104   print &lt;&lt;EOM;
    73    105   Content-Type: text/html
    74    106   
    75    107   Fossils for this server