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

Comparing cvsroot/schmorpforge/genpage (file contents):
Revision 1.3 by elmex, Tue Apr 29 13:48:13 2008 UTC vs.
Revision 1.11 by elmex, Wed Apr 30 07:51:27 2008 UTC

… …
41 hr.footer { display: none; } 41 hr.footer { display: none; }
42 .footer { font-size: 8pt; border-top: 1px solid red; } 42 .footer { font-size: 8pt; border-top: 1px solid red; }
43 </style> 43 </style>
44</head> 44</head>
45<body> 45<body>
46<p class='back'><a href='/'>Schmorpforge Software Repository</a></p> 46<p class='back'><a href='/'>Schmorpforge Ta-Sa Software Repository</a></p>
47<h1 class="$_[1]">$_[0]</h1> 47<h1 class="$_[1]">$_[0]</h1>
48<div style="text-align: center; float: right; margin-left: 1em; margin-bottom: 1em"> 48<div style="text-align: center; float: right; margin-left: 1em; margin-bottom: 1em">
49 <a href="http://www.deliantra.net/"> 49 <a href="http://www.deliantra.net/">
50 <img src="http://www.deliantra.net/images/deliantra.png" border="0" alt="Deliantra Free MMORPG" style="display: inline"/> 50 <img src="http://www.deliantra.net/images/deliantra.png" border="0" alt="Deliantra Free MMORPG" style="display: inline"/>
51 <br /> 51 <br />
… …
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|git-co)\((\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
154 } elsif ($type eq 'git-co') { 166 } elsif ($type eq 'git-co') {
155 my ($project, $file) = $arg =~ /^([^.]+).git\/(.*)$/ ? ($1, $2) : $arg;
156 print "<li><a href='http://git.ta-sa.org/res/gitco.cgi/$project/$file'>$file</a></li>"; 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
157 } 174 }
158 } 175 }
159 176
160 print "</ul>"; 177 print "</ul>";
161 } 178 }
… …
167 184
168hdr "Package Index", "bg-bluete"; 185hdr "Package Index", "bg-bluete";
169 186
170print <<EOF; 187print <<EOF;
171 188
172<p>This page briefly documents the Schmorpforge Software Repository and 189<p>This page briefly documents the Schmorpforge Ta-Sa Software Repository and
173lists all projects available here.</p> 190lists all projects available here.</p>
174 191
175<ul> 192<ul>
176<li>All CVS Repositories can be found <a href="http://cvs.schmorp.de/">here</a>.</li> 193<li>All CVS Repositories can be found <a href="http://cvs.schmorp.de/">here</a>.</li>
194<li>All GIT Repositories can be found <a href="http://git.ta-sa.org/">here</a>.</li>
177<li>Most Releases can be found <a href="http://dist.schmorp.de/">here</a> or via CPAN.</li> 195<li>File Releases can be found <a href="http://dist.schmorp.de/">here</a> or on CPAN (for Perl modules).</li>
178<li>All Mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a>.</li> 196<li>All Mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a>.</li>
197<li>The Wiki can be found <a href="http://wiki.schmorp.de/">here</a>.</li>
179</ul> 198</ul>
180<p>Projects listed on this page:</p> 199<p>Projects listed on this page:</p>
181<table> 200<table>
182EOF 201EOF
183 202
… …
295 It could be used to write Knuddels clients, bots and even servers 314 It could be used to write Knuddels clients, bots and even servers
296 (although the latter doesn't make much sense, the protocol is rather 315 (although the latter doesn't make much sense, the protocol is rather
297 ugly. If you want to implement your own group communication server, use 316 ugly. If you want to implement your own group communication server, use
298 IRC instead). 317 IRC instead).
299 318
300Net-IRC3 dist cvs-pod(lib/Net/IRC3.pm,) cvs-co(Changes) cvs-co(samples/netirc3cl) cvs-co(samples/netirc3) 319Net-IRC3 cpan-elmex cvs-pod(lib/Net/IRC3.pm,) cvs-co(Changes) cvs-co(samples/netirc3cl) cvs-co(samples/netirc3)
301 This module provides an alternative to the Net-IRC and Net-IRC2 320 This module provides an alternative to the Net-IRC and Net-IRC2
302 modules. Its design rationale is offfering a 100% non-blocking 321 modules. Its design rationale is offfering a 100% non-blocking
303 callback-based interface, RFC-compliant parsing and a lightweight 322 callback-based interface, RFC-compliant parsing and a lightweight
304 approach to modularity and reusability. 323 approach to modularity and reusability.
305 324
… …
677 696
678dhcpping cvs-pod(dhcping.pod,) 697dhcpping cvs-pod(dhcping.pod,)
679 A version of dhcpping enhanced by <a href="mailto:marco@nethype.de">Marco Maisenhelder</a> 698 A version of dhcpping enhanced by <a href="mailto:marco@nethype.de">Marco Maisenhelder</a>
680 to support passing dhcp options. Intended to test dhcp server implementations. 699 to support passing dhcp options. Intended to test dhcp server implementations.
681 700
682AnyEvent-DNS cpan git-co(AnyEvent-DNS.git/Changes) 701AnyEvent-DNS cpan-elmex git-pod(lib/AnyEvent/DNS.pm,) git-co(Changes)
683 A non-blocking DNS resolver with AnyEvent using Net::DNS. 702 A non-blocking DNS resolver with AnyEvent using Net::DNS.
684 703
685 This Perl module is a simple wrapper around Net::DNS, which provides 704 This Perl module is a simple wrapper around Net::DNS, which provides
686 a non-blocking interface to make DNS queries with Net::DNS. 705 a non-blocking interface to make DNS queries with Net::DNS.
687 706
688AnyEvent-HTTPD cpan git-co(AnyEvent-HTTPD.git/Changes) 707AnyEvent-HTTPD cpan-elmex git-pod(lib/AnyEvent/HTTPD.pm,) git-co(Changes)
689 A simple and plain event based http web application server Perl module. 708 A simple and plain event based http web application server Perl module.
690 709
691 This is a very basic HTTP server that allows the user/programmer to install 710 This is a very basic HTTP server that allows the user/programmer to install
692 hooks for URL paths to generate the output. It uses AnyEvent to be easily 711 hooks for URL paths to generate the output. It uses AnyEvent to be easily
693 embeddable into other applications. The main objective was to make it 712 embeddable into other applications. The main objective was to make it
694 easier to make simple HTTP frontends in Perl for Perl programs and Perl modules. 713 easier to make simple HTTP frontends in Perl for Perl programs and Perl modules.
695 714
696Object-Event cpan git-co(Object-Event.git/Changes) 715Object-Event cpan-elmex git-pod(lib/Object/Event.pm,) git-co(Changes)
697 A simple event callback API for Perl. 716 A simple event callback API for Perl.
698 717
699 This is just a very simple event callback registration and call API 718 This is just a very simple event callback registration and call API
700 which new Perl classes can inherit. It's mainly used by Net::XMPP2. 719 which new Perl classes can inherit. It's mainly used by Net::XMPP2.
701 720
702Text-Edit cpan git-co(Text-Edit.git/Changes) 721AnyEvent-EditText cpan-elmex git-pod(lib/AnyEvent/EditText.pm,) git-co(Changes)
703 A Perl module which allows editing any text via an editor in a seperate process. 722 A Perl module which allows editing any text via an editor in a seperate process.
704 723
705 A utility Perl module that will start a terminal/editor for you and will 724 A utility Perl module that will start a terminal/editor for you and will
706 wait non-blocking for you to finish editing that file. Very useful to embed 725 wait non-blocking for you to finish editing that file. Very useful to embed
707 content edititing in event based programs that have a AnyEvent compatible 726 content edititing in event based programs that have a AnyEvent compatible

Diff Legend

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