diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-07 14:47:07 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-07 14:47:07 +0200 |
| commit | 2b410702314b5db36b7e637cb2634282665744a6 (patch) | |
| tree | c1d01447daf39eb11a3ba4c014abce875185b4ab /dev.buetow.org/content/home.xml | |
| parent | 0fb842ac162015a4c1ed1e598f6c6cef012e0a5f (diff) | |
new dev site
Diffstat (limited to 'dev.buetow.org/content/home.xml')
| -rw-r--r-- | dev.buetow.org/content/home.xml | 69 |
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> |