Changes to "Cookbook" between 2009-11-06 04:11:31 and 2009-11-06 04:13:02

    72     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     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>
    74     74   <font color="#a52a2a">&nbsp;5 </font> <font color="#CD5555"><i>Content-Type: text/html</i></font>
    75     75   <font color="#a52a2a">&nbsp;6 </font>
    76     76   <font color="#a52a2a">&nbsp;7 </font> <font color="#CD5555"><i>Fossils for this server</i></font>
    77     77   <font color="#a52a2a">&nbsp;8 </font> <font color="#CD5555"><i>&lt;ul&gt;</i></font>
    78     78   <font color="#a52a2a">&nbsp;9 </font> <font color="#CD5555"><b>EOM</b></font>
    79         -<font color="#a52a2a">&nbsp;10 </font>0
    80         -<font color="#a52a2a">&nbsp;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>
    81         -<font color="#a52a2a">&nbsp;12 </font>2   <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font>
    82         -<font color="#a52a2a">&nbsp;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>
    83         -<font color="#a52a2a">&nbsp;14 </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>
    84         -<font color="#a52a2a">&nbsp;15 </font>5 <font color="#000000">}</font>
    85         -<font color="#a52a2a">&nbsp;16 </font>6 <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;/ul&gt;\n&quot;</font><font color="#000000">;</font>
           79  +<font color="#a52a2a">&nbsp;10 </font>
           80  +<font color="#a52a2a">&nbsp;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  +<font color="#a52a2a">&nbsp;12 </font>   <font color="#CD5555">s{.*/}{}</font><font color="#000000">;</font>
           82  +<font color="#a52a2a">&nbsp;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  +<font color="#a52a2a">&nbsp;14 </font>   <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>
           84  +<font color="#a52a2a">&nbsp;15 </font> <font color="#000000">}</font>
           85  +<font color="#a52a2a">&nbsp;16 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555">&quot;&lt;/ul&gt;\n&quot;</font><font color="#000000">;</font>
    86     86   </pre>
    87     87   
    88     88   <pre>
    89     89   #!/usr/bin/perl -w
    90     90   my $CGI_BIN = '/Library/WebServer/CGI-Executables';
    91     91   my @files = `grep -l repository:  $CGI_BIN/* `;
    92     92   print &lt;&lt;EOM;