From 4608e27acf0fb9270dcb2ca694ec6756608136b2 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (Gemeni)" <gemeni@mx.buetow.org>
Date: Sun, 17 Jun 2018 08:48:04 +0100
Subject: some reorg

---
 dev.buetow.org/content/home.xml           | 25 ------------------
 dev.buetow.org/content/projectlist.inc.pl | 42 -------------------------------
 2 files changed, 67 deletions(-)
 delete mode 100644 dev.buetow.org/content/home.xml
 delete mode 100644 dev.buetow.org/content/projectlist.inc.pl

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

diff --git a/dev.buetow.org/content/home.xml b/dev.buetow.org/content/home.xml
deleted file mode 100644
index 606c026..0000000
--- a/dev.buetow.org/content/home.xml
+++ /dev/null
@@ -1,25 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
-<content>
-  <pagetitle>Some programming projects</pagetitle>
-  <textheader>Cgit</textheader>
-  <text>
-    <noop>My Cgit can be found at</noop>
-    <hyperlink>http://cgit.buetow.org</hyperlink>
-  </text>
-  <textheader>Github</textheader>
-  <text>
-    <noop>In parallel to Cgit I keep copies of my stuff at Github. My Github page is</noop>
-    <hyperlink>http://github.com/snonux</hyperlink>
-  </text>
-  <textheader>Project list</textheader>
-  <information>
-    <text>
-      <noop>All hosts containing </noop>
-      <strong>.alpha.buetow.org</strong>
-      <noop> are most likely dev, test or PoCs. Don't expect to find anything usefull there.</noop>
-    </text>
-  </information>
-  <text>
-    <includerun>projectlist.inc.pl</includerun>
-  </text>
-</content>
diff --git a/dev.buetow.org/content/projectlist.inc.pl b/dev.buetow.org/content/projectlist.inc.pl
deleted file mode 100644
index 4d1d4f2..0000000
--- a/dev.buetow.org/content/projectlist.inc.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-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;
-
-return $ret;
-- 
cgit v1.2.3