From 025e15b2ba7f54f87cf409fd7c3dd77746c72858 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sun, 3 Feb 2013 10:44:49 +0100
Subject: add hosts

---
 dev.buetow.org/content/home.xml | 69 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 dev.buetow.org/content/home.xml

(limited to 'dev.buetow.org/content')

diff --git a/dev.buetow.org/content/home.xml b/dev.buetow.org/content/home.xml
new file mode 100644
index 0000000..6a99438
--- /dev/null
+++ b/dev.buetow.org/content/home.xml
@@ -0,0 +1,69 @@
+<?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>
+		my $hostroot = $config->get_hostroot();
+
+	  	sub getf ($) { 
+	  		open my $f, $_[0] or die "$!: $_[0]\n";
+	  		my @slurp = \<$f\>; 
+	  		close $f; 
+	  		@slurp;
+	  	}
+
+		sub nl () { "\<br /\>\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 .= "\<b\>\<a href=http://$host\>$host\</a\>\</b\>" . nl;;
+				if (@content) {
+					$ret .= join " ", @content;
+					$ret .= nl;
+				}
+				$ret .= nl;	
+			}
+
+			$ret;
+		}
+
+		my $ret = list PROJECT;
+
+		$ret .= "\<b\>\<i\>Older projects (not active at the moment):\</i\></b\>" . nl x 2;
+
+		$ret .= list OLDPROJECT;
+
+		$ret .= "\<b\>\<i\>Obsolete projects (no work will be done anymore and the software may be broken):\</i\></b\>" . nl x 2;
+
+		$ret .= list OBSOLETEPROJECT;
+
+		$ret;
+	  </perl>
+	</text>
+</content>
-- 
cgit v1.2.3