diff options
| author | Paul Buetow <paul@buetow.org> | 2013-02-03 10:44:49 +0100 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2013-02-03 10:44:49 +0100 |
| commit | 025e15b2ba7f54f87cf409fd7c3dd77746c72858 (patch) | |
| tree | 007c5af4f921aa85665f4db56f6f4309668a5dab /dev.buetow.org/content | |
| parent | fc0acd318710aa0bb566329a36d886b1455c21ec (diff) | |
add hosts
Diffstat (limited to 'dev.buetow.org/content')
| -rw-r--r-- | dev.buetow.org/content/home.xml | 69 |
1 files changed, 69 insertions, 0 deletions
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> |