diff options
| author | Paul Buetow (Gemeni) <gemeni@mx.buetow.org> | 2018-06-17 08:48:04 +0100 |
|---|---|---|
| committer | Paul Buetow (Gemeni) <gemeni@mx.buetow.org> | 2018-06-17 08:48:04 +0100 |
| commit | 4608e27acf0fb9270dcb2ca694ec6756608136b2 (patch) | |
| tree | 90693a2f6e2f108cd4b2ba9c878ce7d17f1e1058 /dev.buetow.org/content | |
| parent | 49a00262846468dac08b391392483da7ab0f1752 (diff) | |
some reorg
Diffstat (limited to 'dev.buetow.org/content')
| -rw-r--r-- | dev.buetow.org/content/home.xml | 25 | ||||
| -rw-r--r-- | dev.buetow.org/content/projectlist.inc.pl | 42 |
2 files changed, 0 insertions, 67 deletions
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; |