fix

1 files changed, 67 insertions, 0 deletions

diff --git a/xerl.buetow.foo/content/Development.xml b/xerl.buetow.foo/content/Development.xml
new file mode 100644
index 0000000..c7ae960
--- /dev/null
+++ b/xerl.buetow.foo/content/Development.xml
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
+<content>
+  <pagetitle>Some programming projects</pagetitle>
+  <textheader>Mailing List</textheader>
+  <text>
+    <noop>Here are some programming projects listed which I programmed in my spare time. Some may be usefull and others may not. Please use the </noop>
+    <namedlink href="http://web.buetow.org/listinfo/dev">Development Mailing List</namedlink> 
+    <noop> for any considerations.</noop>
+  </text>
+  <textheader>Git repository</textheader>
+  <text>
+    <noop>You may go to </noop>
+    <namedlink href="http://git.buetow.org/">gitweb</namedlink> 
+    <noop> for browsing some of the repositories. Please check out each individual project site how to clone a git repository.</noop>
+  </text>
+  <textheader>Deb repository</textheader>
+  <text>Some projects provide packages in .deb format. Please check out each individual project site for available architecture and so on. Basically the debian repository is available via '[deb|deb-src] [http|ftp]://deb.buetow.org/apt REPLACEWITHDISTNAME main'.</text>
+  <text>To trust it please run "curl http://deb.buetow.org/apt/pubkey.gpg | apt-key add -"</text>
+  <textheader>Project list</textheader>
+  <text>
+    <perl>
+      # Ugly but works for now
+      my $hostroot = $config->get_hostroot();
+
+      sub getf ($) { 
+      open my $f, $_[0] or die "$!: $_[0]\n";
+      my @slurp = !!LT!!$f!!GT!!; 
+      close $f; 
+      @slurp;
+      }
+
+      sub nl () { "!!LT!!br /!!GT!!\n" }
+
+      sub list (*) {
+      my $tag = shift;
+      my @found = sort `find $hostroot -name $tag`;
+      my $ret = '';
+
+
+      for my $found (@found) {
+      $found =~ /.*hosts.(.*?).$tag/;   
+      my $host = $1;
+
+      my @content = getf $found;
+
+      $ret .= "!!LT!!b!!GT!!!!LT!!a href=http://$host!!GT!!$host!!LT!!/a!!GT!!!!LT!!/b!!GT!!" . nl;;
+      if (@content) {
+      $ret .= join " ", @content;
+      $ret .= nl;
+      }
+      $ret .= nl; 
+      }
+
+      $ret;
+      }
+
+      my $ret = list PROJECT;
+
+      $ret .= "!!LT!!b!!GT!!!!LT!!i!!GT!!Older projects (not active at the moment):!!LT!!/i!!GT!!!!LT!!/b!!GT!!" . nl x 2;
+      $ret .= list OLDPROJECT;
+      $ret .= "!!LT!!b!!GT!!!!LT!!i!!GT!!Obsolete projects (no work will be done anymore and the software may be broken):!!LT!!/i!!GT!!!!LT!!/b!!GT!!" . nl x 2;
+      $ret .= list OBSOLETEPROJECT;
+
+      $ret;
+    </perl>
+  </text>
+</content>