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.4 by elmex, Tue Apr 29 14:20:16 2008 UTC

… …
137 if /list\((.*)\)/; 137 if /list\((.*)\)/;
138 } 138 }
139 139
140 print "</ul>"; 140 print "</ul>";
141 141
142 if (my @files = grep $_, map /(cvs-co|cvs-pod|git-co)\((\S+)\)/ && [$1, $2], @args) { 142 if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) {
143 print "<h2>Additional Documents</h2><ul>"; 143 print "<h2>Additional Documents</h2><ul>";
144 144
145 for (@files) { 145 for (@files) {
146 my ($type, $arg) = @$_; 146 my ($type, $arg) = @$_;
147 147
148 if ($type eq "cvs-co") { 148 if ($type eq "cvs-co") {
149 print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>"; 149 print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>";
150
150 } elsif ($type eq "cvs-pod") { 151 } elsif ($type eq "cvs-pod") {
151 my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); 152 my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
152 $desc ||= "<b>Main Manual Page</b>"; 153 $desc ||= "<b>Main Manual Page</b>";
153 print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>"; 154 print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>";
155
154 } elsif ($type eq 'git-co') { 156 } 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>"; 157 print "<li><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></li>";
158 } elsif ($type eq "git-pod") {
159 my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
160 $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>";
162
157 } 163 }
158 } 164 }
159 165
160 print "</ul>"; 166 print "</ul>";
161 } 167 }
… …
677 683
678dhcpping cvs-pod(dhcping.pod,) 684dhcpping cvs-pod(dhcping.pod,)
679 A version of dhcpping enhanced by <a href="mailto:marco@nethype.de">Marco Maisenhelder</a> 685 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. 686 to support passing dhcp options. Intended to test dhcp server implementations.
681 687
682AnyEvent-DNS cpan git-co(AnyEvent-DNS.git/Changes) 688AnyEvent-DNS cpan git-pod(lib/AnyEvent/DNS.pm,) git-co(Changes)
683 A non-blocking DNS resolver with AnyEvent using Net::DNS. 689 A non-blocking DNS resolver with AnyEvent using Net::DNS.
684 690
685 This Perl module is a simple wrapper around Net::DNS, which provides 691 This Perl module is a simple wrapper around Net::DNS, which provides
686 a non-blocking interface to make DNS queries with Net::DNS. 692 a non-blocking interface to make DNS queries with Net::DNS.
687 693
688AnyEvent-HTTPD cpan git-co(AnyEvent-HTTPD.git/Changes) 694AnyEvent-HTTPD cpan git-pod(lib/AnyEvent/HTTPD.pm,) git-co(Changes)
689 A simple and plain event based http web application server Perl module. 695 A simple and plain event based http web application server Perl module.
690 696
691 This is a very basic HTTP server that allows the user/programmer to install 697 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 698 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 699 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. 700 easier to make simple HTTP frontends in Perl for Perl programs and Perl modules.
695 701
696Object-Event cpan git-co(Object-Event.git/Changes) 702Object-Event cpan git-pod(lib/Object/Event.pm,) git-co(Changes)
697 A simple event callback API for Perl. 703 A simple event callback API for Perl.
698 704
699 This is just a very simple event callback registration and call API 705 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. 706 which new Perl classes can inherit. It's mainly used by Net::XMPP2.
701 707
702Text-Edit cpan git-co(Text-Edit.git/Changes) 708Text-Edit cpan git-pod(lib/Text/Edit.pm,) git-co(Text-Edit.git/Changes)
703 A Perl module which allows editing any text via an editor in a seperate process. 709 A Perl module which allows editing any text via an editor in a seperate process.
704 710
705 A utility Perl module that will start a terminal/editor for you and will 711 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 712 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 713 content edititing in event based programs that have a AnyEvent compatible

Diff Legend

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