[ViewVC] Diff of: cvs/cvsroot/schmorpforge/genpage

Comparing cvsroot/schmorpforge/genpage (file contents):
Revision 1.1 by elmex, Tue Apr 29 11:37:13 2008 UTC vs.
Revision 1.9 by root, Tue Apr 29 15:25:44 2008 UTC

       hr.footer       { display: none; }
       .footer         { font-size: 8pt; border-top: 1px solid red; }
    </style>
 </head>
 <body>
-<p class='back'><a href='/'>Schmorpforge Software Repository</a></p>
+<p class='back'><a href='/'>Schmorpforge Ta-Sa Software Repository</a></p>
 <h1 class="$_[1]">$_[0]</h1>
 <div style="text-align: center; float: right; margin-left: 1em; margin-bottom: 1em">
    <a href="http://www.deliantra.net/">
       <img src="http://www.deliantra.net/images/deliantra.png" border="0" alt="Deliantra Free MMORPG" style="display: inline"/>
       <br />
 <h2>Blurb</h2>
 <p class='blurb'>$desc</p>
 <h2>Availability</h2>
 <ul>
+EOF
+   if (grep /git/, @args) {
+      print <<EOF;
+<li><a href='http://git.ta-sa.org/?p=$name.git;a=summary'>Browse GIT repository '$name'</a></li>
+<li>Read-only GIT checkout:<br />
+   <tt>&#160;git-clone http://git.ta-sa.org/$name.git</tt>
+</li>
+EOF
+   } else {
+      my $modules = $name;
+      $modules = "$1" if grep /modules\((.*)\)/, @args;
+      print <<EOF;
 <li><a href='http://cvs.schmorp.de/$name'>Browse CVS module '$name'</a></li>
-EOF
-   my $modules = $name;
-   $modules = "$1" if grep /modules\((.*)\)/, @args;
-   print <<EOF;
 <li>Anonymous CVS checkout:<br />
    <tt>&#160;cvs -z3 -d :pserver:anonymous\@cvs.schmorp.de/schmorpforge co $modules</tt><p />
    <small>
    </small>
 </li>
 EOF
+   }
    print "<li><a href='http://dist.schmorp.de/$name/'>File Releases</a></li>\n"
       if grep /dist/, @args;
    print "<li><a href='http://www.cpan.org/modules/by-authors/Marc_Lehmann/'>File Releases (CPAN)</a></li>\n"
-      if grep /cpan/, @args;
+      if grep /cpan$/, @args;
+   print "<li><a href='http://www.cpan.org/modules/by-authors/id/E/EL/ELMEX/'>File Releases (CPAN)</a></li>\n"
+      if grep /cpan-elmex/, @args;
    for (@args) {
       print "<li><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></li>\n"
          if /list\((.*)\)/;
    }
    print "</ul>";
-   if (my @files = grep $_, map /(cvs-co|cvs-pod)\((\S+)\)/ && [$1, $2], @args) {
+   if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) {
       print "<h2>Additional Documents</h2><ul>";
       for (@files) {
          my ($type, $arg) = @$_;
          if ($type eq "cvs-co") {
             print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>";
          } elsif ($type eq "cvs-pod") {
             my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
             $desc ||= "<b>Main Manual Page</b>";
             print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>";
+         } elsif ($type eq 'git-co') {
+            print "<li><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></li>";
+         } elsif ($type eq "git-pod") {
+            my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
+            $desc ||= "<b>Main Manual Page</b>";
+            print "<li><a href='http://pod.tst.eu/http://git.ta-sa.org/$name/$file'>$desc</a></li>";
          }
       }
       print "</ul>";
    }
 hdr "Package Index", "bg-bluete";
 print <<EOF;
-<p>This page briefly documents the Schmorpforge Software Repository and
+<p>This page briefly documents the Schmorpforge Ta-Sa Software Repository and
 lists all projects available here.</p>
 <ul>
 <li>All CVS Repositories can be found <a href="http://cvs.schmorp.de/">here</a>.</li>
+<li>All GIT Repositories can be found <a href="http://git.ta-sa.org/">here</a>.</li>
-<li>Most Releases can be found <a href="http://dist.schmorp.de/">here</a> or via CPAN.</li>
+<li>File Releases can be found <a href="http://dist.schmorp.de/">here</a> or on CPAN (for Perl modules).</li>
 <li>All Mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a>.</li>
 </ul>
 <p>Projects listed on this page:</p>
 <table>
 EOF
  It could be used to write Knuddels clients, bots and even servers
  (although the latter doesn't make much sense, the protocol is rather
  ugly. If you want to implement your own group communication server, use
  IRC instead).
-Net-IRC3		dist cvs-pod(lib/Net/IRC3.pm,) cvs-co(Changes) cvs-co(samples/netirc3cl) cvs-co(samples/netirc3)
+Net-IRC3		cpan-elmex cvs-pod(lib/Net/IRC3.pm,) cvs-co(Changes) cvs-co(samples/netirc3cl) cvs-co(samples/netirc3)
  This module provides an alternative to the Net-IRC and Net-IRC2
  modules. Its design rationale is offfering a 100% non-blocking
  callback-based interface, RFC-compliant parsing and a lightweight
  approach to modularity and reusability.
 dhcpping	cvs-pod(dhcping.pod,)
  A version of dhcpping enhanced by <a href="mailto:marco@nethype.de">Marco Maisenhelder</a>
  to support passing dhcp options. Intended to test dhcp server implementations.
+AnyEvent-DNS    cpan-elmex git-pod(lib/AnyEvent/DNS.pm,) git-co(Changes)
+ A non-blocking DNS resolver with AnyEvent using Net::DNS.
+ This Perl module is a simple wrapper around Net::DNS, which provides
+ a non-blocking interface to make DNS queries with Net::DNS.
+AnyEvent-HTTPD cpan-elmex git-pod(lib/AnyEvent/HTTPD.pm,) git-co(Changes)
+ A simple and plain event based http web application server Perl module.
+ This is a very basic HTTP server that allows the user/programmer to install
+ hooks for URL paths to generate the output. It uses AnyEvent to be easily
+ embeddable into other applications. The main objective was to make it
+ easier to make simple HTTP frontends in Perl for Perl programs and Perl modules.
+Object-Event cpan-elmex git-pod(lib/Object/Event.pm,) git-co(Changes)
+ A simple event callback API for Perl.
+ This is just a very simple event callback registration and call API
+ which new Perl classes can inherit. It's mainly used by Net::XMPP2.
+Text-Edit cpan-elmex git-pod(lib/Text/Edit.pm,) git-co(Changes)
+ A Perl module which allows editing any text via an editor in a seperate process.
+ A utility Perl module that will start a terminal/editor for you and will
+ wait non-blocking for you to finish editing that file. Very useful to embed
+ content edititing in event based programs that have a AnyEvent compatible
+ event loop.
+psycpp
+ A project that was aimed to implement a PSYC server in C++.
+ This is a mostly abandoned project at the moment, however, the repository
+ contains interesting C++ code that might be useful to someone, especially
+ the C++ JSON implementation might be of interest. The project is mostly
+ dead at the moment though...

Diff Legend

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

Comparing cvsroot/schmorpforge/genpage (file contents): Revision 1.1 by elmex, Tue Apr 29 11:37:13 2008 UTC vs. Revision 1.9 by root, Tue Apr 29 15:25:44 2008 UTC

Diff Legend

Comparing cvsroot/schmorpforge/genpage (file contents):
Revision 1.1 by elmex, Tue Apr 29 11:37:13 2008 UTC vs.
Revision 1.9 by root, Tue Apr 29 15:25:44 2008 UTC