Changes To Cookbook
Not logged in
Home Timeline DownloadDocumentationBranches Tags Tickets Login
Next Previous

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

︙
61
62
63
64
65
66
67
68

































69
70
71
72
73
74
75

61
62
63
64
65
66
67

68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107








-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+








<font color="#a52a2a">18 </font><font color="#a52a2a"><b>else</b></font><br>
<font color="#a52a2a">19 </font>&nbsp;&nbsp;sudo <font color="#a020f0">$0</font>&nbsp;<font color="#a020f0">$*</font><br>
<font color="#a52a2a">20 </font><font color="#a52a2a"><b>fi</b></font><br>
</font></nowiki>

Here is a little perl script to put in your cgi-bin to list all the fossils you are publishing:

<nowiki><pre>
<nowiki>
<pre>
<font color="#a52a2a">&nbsp;1 </font> #!/usr/bin/perl -w
<font color="#a52a2a">&nbsp;2 </font> <font color="#8B008B"><b>my</b></font> <font color="#00688B">$C\
GI_BIN</font> = <font color="#CD5555">&#39;/Library/WebServer/CGI-Executables&#39;</font><font color=\
"#000000">;</font>
<font color="#a52a2a">&nbsp;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">&nbsp;4 </font> <font color="#8B008B"><b>print</b></font> <font color="#CD5555"\
><b>&lt;&lt;EOM</b></font><font color="#000000">;</font>
<font color="#a52a2a">&nbsp;5 </font> <font color="#CD5555"><i>Content-Type: text/html</i></font>
<font color="#a52a2a">&nbsp;6 </font>
<font color="#a52a2a">&nbsp;7 </font> <font color="#CD5555"><i>Fossils for this server</i></font>
<font color="#a52a2a">&nbsp;8 </font> <font color="#CD5555"><i>&lt;ul&gt;</i></font>
<font color="#a52a2a">&nbsp;9 </font> <font color="#CD5555"><b>EOM</b></font>
<font color="#a52a2a">&nbsp;1 </font>0
<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\
nt>
<font color="#a52a2a">&nbsp;1 </font>2   <font color="#CD5555">s{.*/}{}</font><font color="#000000">;\
</font>
<font color="#a52a2a">&nbsp;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">&nbsp;1 </font>4   <font color="#8B008B"><b>print</b></font> <font color="#CD55\
55">&quot;&lt;li&gt;&lt;a href=&#39;$_&#39;&gt;$_&lt;/a&gt;&lt;/li&gt;\n&quot;</font><font color="#00\
0000">;</font>
<font color="#a52a2a">&nbsp;1 </font>5 <font color="#000000">}</font>
<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>
</pre>

<pre>
#!/usr/bin/perl -w
my $CGI_BIN = '/Library/WebServer/CGI-Executables';
my @files = `grep -l repository:  $CGI_BIN/* `;
print &lt;&lt;EOM;
Content-Type: text/html

Fossils for this server
︙
This page was generated in about 0.026s by Fossil version [1205ec86cb] 2025-04-30 16:57:32