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

Comparing cvsroot/schmorpforge/genpage (file contents):
Revision 1.1 by elmex, Tue Apr 29 11:37:13 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
140 print "</ul>"; 150 print "</ul>";
141 151
142 if (my @files = grep $_, map /(cvs-co|cvs-pod)\((\S+)\)/ && [$1, $2], @args) { 152 if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) {
143 print "<h2>Additional Documents</h2><ul>"; 153 print "<h2>Additional Documents</h2><ul>";
144 154
145 for (@files) { 155 for (@files) {
146 my ($type, $arg) = @$_; 156 my ($type, $arg) = @$_;
147 157
148 if ($type eq "cvs-co") { 158 if ($type eq "cvs-co") {
149 print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>"; 159 print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>";
160
150 } elsif ($type eq "cvs-pod") { 161 } elsif ($type eq "cvs-pod") {
151 my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); 162 my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
152 $desc ||= "<b>Main Manual Page</b>"; 163 $desc ||= "<b>Main Manual Page</b>";
153 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>";
165
166 } elsif ($type eq 'git-co') {
167 print "<li><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></li>";
168
169 } elsif ($type eq "git-pod") {
170 my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
171 $desc ||= "<b>Main Manual Page</b>";
172 print "<li><a href='http://pod.tst.eu/http://git.ta-sa.org/$name/$file'>$desc</a></li>";
173
154 } 174 }
155 } 175 }
156 176
157 print "</ul>"; 177 print "</ul>";
158 } 178 }
… …
292 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
293 (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
294 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
295 IRC instead). 315 IRC instead).
296 316
297Net-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)
298 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
299 modules. Its design rationale is offfering a 100% non-blocking 319 modules. Its design rationale is offfering a 100% non-blocking
300 callback-based interface, RFC-compliant parsing and a lightweight 320 callback-based interface, RFC-compliant parsing and a lightweight
301 approach to modularity and reusability. 321 approach to modularity and reusability.
302 322
… …
674 694
675dhcpping cvs-pod(dhcping.pod,) 695dhcpping cvs-pod(dhcping.pod,)
676 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>
677 to support passing dhcp options. Intended to test dhcp server implementations. 697 to support passing dhcp options. Intended to test dhcp server implementations.
678 698
699AnyEvent-DNS cpan-elmex git-pod(lib/AnyEvent/DNS.pm,) git-co(Changes)
700 A non-blocking DNS resolver with AnyEvent using Net::DNS.
701
702 This Perl module is a simple wrapper around Net::DNS, which provides
703 a non-blocking interface to make DNS queries with Net::DNS.
704
705AnyEvent-HTTPD cpan-elmex git-pod(lib/AnyEvent/HTTPD.pm,) git-co(Changes)
706 A simple and plain event based http web application server Perl module.
707
708 This is a very basic HTTP server that allows the user/programmer to install
709 hooks for URL paths to generate the output. It uses AnyEvent to be easily
710 embeddable into other applications. The main objective was to make it
711 easier to make simple HTTP frontends in Perl for Perl programs and Perl modules.
712
713Object-Event cpan-elmex git-pod(lib/Object/Event.pm,) git-co(Changes)
714 A simple event callback API for Perl.
715
716 This is just a very simple event callback registration and call API
717 which new Perl classes can inherit. It's mainly used by Net::XMPP2.
718
719Text-Edit cpan-elmex git-pod(lib/Text/Edit.pm,) git-co(Text-Edit.git/Changes)
720 A Perl module which allows editing any text via an editor in a seperate process.
721
722 A utility Perl module that will start a terminal/editor for you and will
723 wait non-blocking for you to finish editing that file. Very useful to embed
724 content edititing in event based programs that have a AnyEvent compatible
725 event loop.
726
727psycpp
728 A project that was aimed to implement a PSYC server in C++.
729
730 This is a mostly abandoned project at the moment, however, the repository
731 contains interesting C++ code that might be useful to someone, especially
732 the C++ JSON implementation might be of interest. The project is mostly
733 dead at the moment though...

Diff Legend

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