ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/schmorpforge/genpage
(Generate patch)

Comparing cvsroot/schmorpforge/genpage (file contents):
Revision 1.126 by root, Thu Jan 18 10:49:35 2018 UTC vs.
Revision 1.127 by root, Sat Oct 27 09:22:30 2018 UTC

200 200
201<div class='section section-resources'> 201<div class='section section-resources'>
202<h2>Resources</h2> 202<h2>Resources</h2>
203<table class='resources'> 203<table class='resources'>
204EOF 204EOF
205
206 for (grep /^res/, @args) {
207 /^resource\(([^,]+),{{(.*?)}}\)$/ or die "$_: no resource\n";
208 print <<EOF;
209<tr><td><tt class="icon">$1</tt></td><td class='rr'>$2</li></tr>
210EOF
211 }
212
213 print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='https://ftpmirror.gnu.org/gnu/$name/'>File Releases (GNU)</a></td></tr>\n"
214 if grep /dist-gnu/, @args;
215 print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://dist.schmorp.de/$name/'>File Releases</a></td></tr>\n"
216 if grep /dist(?!-)/, @args;
217 print "<tr><td><tt class='icon'>CPAN</tt></td><td class='rr'><a href='http://www.cpan.org/modules/by-authors/id/M/ML/MLEHMANN/'>File Releases (CPAN)</a></td></tr>\n"
218 if grep /cpan$/, @args;
219
205 if (grep /git/, @args) { 220 if (grep /git/, @args) {
206 print <<EOF; 221 print <<EOF;
207<tr><td><tt class="icon">GIT</tt></td><td class='rr'><a href='http://git.ta-sa.org/git/$name/'>Browsable GIT repository '$name'</a></li></tr> 222<tr><td><tt class="icon">GIT</tt></td><td class='rr'><a href='http://git.ta-sa.org/git/$name/'>Browsable GIT repository '$name'</a></li></tr>
208<tr><td><tt class="icon">GIT</tt></td><td class='rr'>Read-only GIT checkout: <tt>&#160;git-clone http://git.ta-sa.org/$name.git</tt> 223<tr><td><tt class="icon">GIT</tt></td><td class='rr'>Read-only GIT checkout: <tt>&#160;git-clone http://git.ta-sa.org/$name.git</tt>
209</td></tr> 224</td></tr>
229 } 244 }
230 } 245 }
231 246
232 my @irc; 247 my @irc;
233 248
234 print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://dist.schmorp.de/$name/'>File Releases</a></td></tr>\n" 249 my $perlname = $name =~ s/-/::/gr;
235 if grep /dist(?!-)/, @args; 250
236 print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://ftp.gnu.org/gnu/$name/'>File Releases</a></td></tr>\n" 251 print "<tr><td><tt class='icon'>METACPAN</tt></td><td class='rr'><a href='https://metacpan.org/pod/$perlname'>MetaCPAN page</a></td></tr>\n"
237 if grep /dist-gnu/, @args;
238 print "<tr><td><tt class='icon'>CPAN</tt></td><td class='rr'><a href='http://www.cpan.org/modules/by-authors/id/M/ML/MLEHMANN/'>File Releases (CPAN)</a></td></tr>\n"
239 if grep /cpan$/, @args; 252 if grep /cpan$/, @args;
240 print "<tr><td><tt class='icon'>CPAN</tt></td><td class='rr'><a href='http://www.cpan.org/modules/by-authors/id/E/EL/ELMEX/'>File Releases (CPAN)</a></td></tr>\n"
241 if grep /cpan-elmex/, @args;
242 for (@args) { 253 for (@args) {
243 if (/list\((.*?)\)/) { 254 if (/list\((.*?)\)/) {
244 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"; 255 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";
245 } 256 }
246 if (/irc\((.*?)\)/) { 257 if (/irc\((.*?)\)/) {
254 } 265 }
255 266
256 print "</table>"; 267 print "</table>";
257 268
258 if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) { 269 if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) {
259 print "</div><div class='section section-documents'><h2>Additional Documents</h2><table class='resources'>"; 270 print "</div><div class='section section-documents'><h2>Package Documention</h2><table class='resources'>";
260 271
261 for (@files) { 272 for (@files) {
262 my ($type, $arg) = @$_; 273 my ($type, $arg) = @$_;
263 274
264 if ($type eq "cvs-co") { 275 if ($type eq "cvs-co") {
804 The caller is responsible for authentication management, cookies (if 815 The caller is responsible for authentication management, cookies (if
805 the simplistic implementation in this module doesn't suffice), referer 816 the simplistic implementation in this module doesn't suffice), referer
806 and other high-level protocol details for which this module offers only 817 and other high-level protocol details for which this module offers only
807 limited support. 818 limited support.
808 819
820AnyEvent-WebDriver cpan cvs-pod(WebDriver.pm,) cvs-co(Changes) list(anyevent) irc(anyevent)
821 A thin wrapper around the <a href="https://www.w3.org/TR/webdriver1/">W3C WebDriver</a> protocol
822 (<a href="https://www.seleniumhq.org/">"Selenium"</a> browser remote control)
823
824 This module implements a relatively thin but easy to use wrapper around the
825 raw <a href="https://www.w3.org/TR/webdriver1/">W3C WebDriver</a> protocol
826 (think <a href="https://www.seleniumhq.org/">"Selenium"</a>, that let's you remote control
827 popular browsers such as Firefox, Chromium, Safari, IE and the like.
828
809AnyEvent-MP cpan cvs-pod(MP.pm,) cvs-pod(MP/Intro.pod,Introduction/Tutorial) cvs-pod(bin/aemp,Config-Uility) cvs-pod(MP/Kernel.pm) cvs-pod(MP/Global.pm) cvs-pod(MP/Transport.pm) cvs-pod(MP/DataConn.pm) cvs-pod(MP/LogCatcher.pm) cvs-co(Changes) list(anyevent) irc(anyevent) 829AnyEvent-MP cpan cvs-pod(MP.pm,) cvs-pod(MP/Intro.pod,Introduction/Tutorial) cvs-pod(bin/aemp,Config-Uility) cvs-pod(MP/Kernel.pm) cvs-pod(MP/Global.pm) cvs-pod(MP/Transport.pm) cvs-pod(MP/DataConn.pm) cvs-pod(MP/LogCatcher.pm) cvs-co(Changes) list(anyevent) irc(anyevent)
810 This Perl module (-family) implements a simple message passing framework for Perl. 830 This Perl module (-family) implements a simple message passing framework for Perl.
811 831
812 Despite its simplicity, you can securely message other processes running 832 Despite its simplicity, you can securely message other processes running
813 on the same or other hosts. 833 on the same or other hosts.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines