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

Comparing cvsroot/schmorpforge/genpage (file contents):
Revision 1.4 by elmex, Tue Apr 29 14:20:16 2008 UTC vs.
Revision 1.5 by elmex, Tue Apr 29 14:46:42 2008 UTC

… …
95 95
96<h2>Blurb</h2> 96<h2>Blurb</h2>
97<p class='blurb'>$desc</p> 97<p class='blurb'>$desc</p>
98<h2>Availability</h2> 98<h2>Availability</h2>
99<ul> 99<ul>
100EOF
101 if (grep /git/, @args) {
102 print <<EOF;
103<li><a href='http://git.ta-sa.org/?p=$name.git;a=summary'>Browse GIT repository '$name'</a></li>
104<li>Read-only GIT checkout:<br />
105 <tt>&#160;git-clone http://git.ta-sa.org/$name.git</tt>
106</li>
107EOF
108 } else {
109 my $modules = $name;
110 $modules = "$1" if grep /modules\((.*)\)/, @args;
111
112 print <<EOF;
100<li><a href='http://cvs.schmorp.de/$name'>Browse CVS module '$name'</a></li> 113<li><a href='http://cvs.schmorp.de/$name'>Browse CVS module '$name'</a></li>
101EOF
102
103 my $modules = $name;
104 $modules = "$1" if grep /modules\((.*)\)/, @args;
105
106 print <<EOF;
107<li>Anonymous CVS checkout:<br /> 114<li>Anonymous CVS checkout:<br />
108 <tt>&#160;cvs -z3 -d :pserver:anonymous\@cvs.schmorp.de/schmorpforge co $modules</tt><p /> 115 <tt>&#160;cvs -z3 -d :pserver:anonymous\@cvs.schmorp.de/schmorpforge co $modules</tt><p />
109 116
110 <small> 117 <small>
111 118
… …
125 132
126 </small> 133 </small>
127 134
128</li> 135</li>
129EOF 136EOF
137 }
130 138
131 print "<li><a href='http://dist.schmorp.de/$name/'>File Releases</a></li>\n" 139 print "<li><a href='http://dist.schmorp.de/$name/'>File Releases</a></li>\n"
132 if grep /dist/, @args; 140 if grep /dist/, @args;
133 print "<li><a href='http://www.cpan.org/modules/by-authors/Marc_Lehmann/'>File Releases (CPAN)</a></li>\n" 141 print "<li><a href='http://www.cpan.org/modules/by-authors/Marc_Lehmann/'>File Releases (CPAN)</a></li>\n"
134 if grep /cpan/, @args; 142 if grep /cpan$/, @args;
143 print "<li><a href='http://www.cpan.org/modules/by-authors/id/E/EL/ELMEX/'>File Releases (CPAN)</a></li>\n"
144 if grep /cpan-elmex/, @args;
135 for (@args) { 145 for (@args) {
136 print "<li><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></li>\n" 146 print "<li><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></li>\n"
137 if /list\((.*)\)/; 147 if /list\((.*)\)/;
138 } 148 }
139 149
… …
153 $desc ||= "<b>Main Manual Page</b>"; 163 $desc ||= "<b>Main Manual Page</b>";
154 print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>"; 164 print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>";
155 165
156 } elsif ($type eq 'git-co') { 166 } elsif ($type eq 'git-co') {
157 print "<li><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></li>"; 167 print "<li><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></li>";
168
158 } elsif ($type eq "git-pod") { 169 } elsif ($type eq "git-pod") {
159 my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); 170 my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
160 $desc ||= "<b>Main Manual Page</b>"; 171 $desc ||= "<b>Main Manual Page</b>";
161 print "<li><a href='http://pod.tst.eu/http://git.ta-sa.org/$name/$file'>$desc</a></li>"; 172 print "<li><a href='http://pod.tst.eu/http://git.ta-sa.org/$name/$file'>$desc</a></li>";
162 173
… …
301 It could be used to write Knuddels clients, bots and even servers 312 It could be used to write Knuddels clients, bots and even servers
302 (although the latter doesn't make much sense, the protocol is rather 313 (although the latter doesn't make much sense, the protocol is rather
303 ugly. If you want to implement your own group communication server, use 314 ugly. If you want to implement your own group communication server, use
304 IRC instead). 315 IRC instead).
305 316
306Net-IRC3 dist cvs-pod(lib/Net/IRC3.pm,) cvs-co(Changes) cvs-co(samples/netirc3cl) cvs-co(samples/netirc3) 317Net-IRC3 cpan-elmex cvs-pod(lib/Net/IRC3.pm,) cvs-co(Changes) cvs-co(samples/netirc3cl) cvs-co(samples/netirc3)
307 This module provides an alternative to the Net-IRC and Net-IRC2 318 This module provides an alternative to the Net-IRC and Net-IRC2
308 modules. Its design rationale is offfering a 100% non-blocking 319 modules. Its design rationale is offfering a 100% non-blocking
309 callback-based interface, RFC-compliant parsing and a lightweight 320 callback-based interface, RFC-compliant parsing and a lightweight
310 approach to modularity and reusability. 321 approach to modularity and reusability.
311 322
… …
683 694
684dhcpping cvs-pod(dhcping.pod,) 695dhcpping cvs-pod(dhcping.pod,)
685 A version of dhcpping enhanced by <a href="mailto:marco@nethype.de">Marco Maisenhelder</a> 696 A version of dhcpping enhanced by <a href="mailto:marco@nethype.de">Marco Maisenhelder</a>
686 to support passing dhcp options. Intended to test dhcp server implementations. 697 to support passing dhcp options. Intended to test dhcp server implementations.
687 698
688AnyEvent-DNS cpan git-pod(lib/AnyEvent/DNS.pm,) git-co(Changes) 699AnyEvent-DNS cpan-elmex git-pod(lib/AnyEvent/DNS.pm,) git-co(Changes)
689 A non-blocking DNS resolver with AnyEvent using Net::DNS. 700 A non-blocking DNS resolver with AnyEvent using Net::DNS.
690 701
691 This Perl module is a simple wrapper around Net::DNS, which provides 702 This Perl module is a simple wrapper around Net::DNS, which provides
692 a non-blocking interface to make DNS queries with Net::DNS. 703 a non-blocking interface to make DNS queries with Net::DNS.
693 704
694AnyEvent-HTTPD cpan git-pod(lib/AnyEvent/HTTPD.pm,) git-co(Changes) 705AnyEvent-HTTPD cpan-elmex git-pod(lib/AnyEvent/HTTPD.pm,) git-co(Changes)
695 A simple and plain event based http web application server Perl module. 706 A simple and plain event based http web application server Perl module.
696 707
697 This is a very basic HTTP server that allows the user/programmer to install 708 This is a very basic HTTP server that allows the user/programmer to install
698 hooks for URL paths to generate the output. It uses AnyEvent to be easily 709 hooks for URL paths to generate the output. It uses AnyEvent to be easily
699 embeddable into other applications. The main objective was to make it 710 embeddable into other applications. The main objective was to make it
700 easier to make simple HTTP frontends in Perl for Perl programs and Perl modules. 711 easier to make simple HTTP frontends in Perl for Perl programs and Perl modules.
701 712
702Object-Event cpan git-pod(lib/Object/Event.pm,) git-co(Changes) 713Object-Event cpan-elmex git-pod(lib/Object/Event.pm,) git-co(Changes)
703 A simple event callback API for Perl. 714 A simple event callback API for Perl.
704 715
705 This is just a very simple event callback registration and call API 716 This is just a very simple event callback registration and call API
706 which new Perl classes can inherit. It's mainly used by Net::XMPP2. 717 which new Perl classes can inherit. It's mainly used by Net::XMPP2.
707 718
708Text-Edit cpan git-pod(lib/Text/Edit.pm,) git-co(Text-Edit.git/Changes) 719Text-Edit cpan-elmex git-pod(lib/Text/Edit.pm,) git-co(Text-Edit.git/Changes)
709 A Perl module which allows editing any text via an editor in a seperate process. 720 A Perl module which allows editing any text via an editor in a seperate process.
710 721
711 A utility Perl module that will start a terminal/editor for you and will 722 A utility Perl module that will start a terminal/editor for you and will
712 wait non-blocking for you to finish editing that file. Very useful to embed 723 wait non-blocking for you to finish editing that file. Very useful to embed
713 content edititing in event based programs that have a AnyEvent compatible 724 content edititing in event based programs that have a AnyEvent compatible

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines