… | |
… | |
127 | </body> |
127 | </body> |
128 | </html> |
128 | </html> |
129 | EOF |
129 | EOF |
130 | } |
130 | } |
131 | |
131 | |
|
|
132 | sub res_irc { |
|
|
133 | print "<tr><td><tt class='icon'>IRC</tt></td><td class='rr'>Server <tt><b><a href='http://widget.mibbit.com/?settings=ba7bec4f0f493fde9b226a13c375edbd&server=irc.schmorp.de&channel=%23schmorp&noServerNotices=true&autoConnect=true'>irc.schmorp.de</a></b></tt>, channel <tt>#schmorp</tt>, users <tt>schmorp</tt> and <tt>elmex</tt> <b>(say hi and <i>wait a few minutes</i>)</b></td></tr>\n"; |
|
|
134 | print "<tr><td><tt class='icon'>IRC</tt></td><td class='rr'>Server <tt><b>irc.freenode.net</b></tt>, channel <tt>#schmorp</tt>, users <tt>schmorp</tt> and <tt>elmex</tt></td></tr>\n"; |
|
|
135 | } |
|
|
136 | |
132 | $_ = <DATA>; |
137 | $_ = <DATA>; |
133 | for (;defined $_;) { |
138 | for (;defined $_;) { |
134 | my ($name, @args) = split /\s+/; |
139 | my ($name, @args) = split /\s+/; |
135 | |
140 | |
136 | next unless $name; |
141 | next unless $name; |
… | |
… | |
212 | for (@args) { |
217 | for (@args) { |
213 | if (/list\((.*)\)/) { |
218 | if (/list\((.*)\)/) { |
214 | print "<tr><td><tt class='icon'>LIST</tt></td><td class='rr'><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></td></tr>\n"; |
219 | print "<tr><td><tt class='icon'>LIST</tt></td><td class='rr'><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></td></tr>\n"; |
215 | } |
220 | } |
216 | } |
221 | } |
217 | |
222 | res_irc; |
218 | print "</table>"; |
223 | print "</table>"; |
219 | |
224 | |
220 | if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) { |
225 | if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) { |
221 | print "<h2>Additional Documents</h2><table class='resources'>"; |
226 | print "<h2>Additional Documents</h2><table class='resources'>"; |
222 | |
227 | |
… | |
… | |
257 | <h2>About</h2> |
262 | <h2>About</h2> |
258 | <p class='blurb'>This page briefly documents the Schmorpforge Ta-Sa Software Repository and |
263 | <p class='blurb'>This page briefly documents the Schmorpforge Ta-Sa Software Repository and |
259 | lists all projects available here.</p> |
264 | lists all projects available here.</p> |
260 | |
265 | |
261 | <table class='resources'> |
266 | <table class='resources'> |
262 | <tr><td><tt class='icon'>CVS</tt></td><td class='rr'>All CVS modules can be found <a href="http://cvs.schmorp.de/">here</a>.</td></tr> |
267 | <tr><td><tt class='icon'>CVS</tt></td><td class='rr'>All CVS modules can be browsed <a href="http://cvs.schmorp.de/">here</a></td></tr> |
263 | <tr><td><tt class='icon'>GIT</tt></td><td class='rr'>All GIT repositories can be found <a href="http://git.ta-sa.org/">here</a>.</td></tr> |
268 | <tr><td><tt class='icon'>GIT</tt></td><td class='rr'>All GIT repositories can be found <a href="http://git.ta-sa.org/">here</a></td></tr> |
264 | <tr><td><tt class='icon'>FILE</tt></td><td class='rr'>All file releases can be found <a href="http://dist.schmorp.de/">here</a> or on CPAN (for Perl modules).</td></tr> |
269 | <tr><td><tt class='icon'>FILE</tt></td><td class='rr'>All file releases can be found <a href="http://dist.schmorp.de/">here</a> or on CPAN (for Perl modules)</td></tr> |
265 | <tr><td><tt class='icon'>LIST</tt></td><td class='rr'>All mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a>.</td></tr> |
270 | <tr><td><tt class='icon'>LIST</tt></td><td class='rr'>All mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a></td></tr> |
266 | <!--<tr><td><tt class='icon'>WIKI</tt></td><td class='rr'>The Wiki can be found <a href="http://wiki.schmorp.de/">here</a>.</td></tr>--> |
271 | <!--<tr><td><tt class='icon'>WIKI</tt></td><td class='rr'>The Wiki can be found <a href="http://wiki.schmorp.de/">here</a></td></tr>--> |
|
|
272 | EOF |
|
|
273 | |
|
|
274 | res_irc; |
|
|
275 | |
|
|
276 | print <<EOF; |
267 | </table> |
277 | </table> |
268 | |
278 | |
269 | <h2>Project List</h2> |
279 | <h2>Project List</h2> |
270 | <table class='overview'> |
280 | <table class='overview'> |
271 | EOF |
281 | EOF |