1 files changed, 0 insertions, 69 deletions
diff --git a/dev.buetow.org/content/home.xml b/dev.buetow.org/content/home.xml
deleted file mode 100644
index 6a99438..0000000
--- a/dev.buetow.org/content/home.xml
+++ /dev/null
@@ -1,69 +0,0 @@
-<?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>