diff options
Diffstat (limited to 'dev.buetow.org/content/home.xml')
| -rw-r--r-- | dev.buetow.org/content/home.xml | 108 |
1 files changed, 53 insertions, 55 deletions
diff --git a/dev.buetow.org/content/home.xml b/dev.buetow.org/content/home.xml index 6a99438..c7ae960 100644 --- a/dev.buetow.org/content/home.xml +++ b/dev.buetow.org/content/home.xml @@ -1,69 +1,67 @@ <?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(); + <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> + # Ugly but works for now + my $hostroot = $config->get_hostroot(); - sub getf ($) { - open my $f, $_[0] or die "$!: $_[0]\n"; - my @slurp = \<$f\>; - close $f; - @slurp; - } + sub getf ($) { + open my $f, $_[0] or die "$!: $_[0]\n"; + my @slurp = !!LT!!$f!!GT!!; + close $f; + @slurp; + } - sub nl () { "\<br /\>\n" } + sub nl () { "!!LT!!br /!!GT!!\n" } - sub list (*) { - my $tag = shift; - my @found = sort `find $hostroot -name $tag`; - my $ret = ''; + sub list (*) { + my $tag = shift; + my @found = sort `find $hostroot -name $tag`; + my $ret = ''; - for my $found (@found) { - $found =~ /.*hosts.(.*?).$tag/; - my $host = $1; + for my $found (@found) { + $found =~ /.*hosts.(.*?).$tag/; + my $host = $1; - my @content = getf $found; + my @content = getf $found; - $ret .= "\<b\>\<a href=http://$host\>$host\</a\>\</b\>" . nl;; - if (@content) { - $ret .= join " ", @content; - $ret .= nl; - } - $ret .= nl; - } + $ret .= "!!LT!!b!!GT!!!!LT!!a href=http://$host!!GT!!$host!!LT!!/a!!GT!!!!LT!!/b!!GT!!" . nl;; + if (@content) { + $ret .= join " ", @content; + $ret .= nl; + } + $ret .= nl; + } - $ret; - } + $ret; + } - my $ret = list PROJECT; + my $ret = list PROJECT; - $ret .= "\<b\>\<i\>Older projects (not active at the moment):\</i\></b\>" . nl x 2; + $ret .= "!!LT!!b!!GT!!!!LT!!i!!GT!!Older projects (not active at the moment):!!LT!!/i!!GT!!!!LT!!/b!!GT!!" . nl x 2; + $ret .= list OLDPROJECT; + $ret .= "!!LT!!b!!GT!!!!LT!!i!!GT!!Obsolete projects (no work will be done anymore and the software may be broken):!!LT!!/i!!GT!!!!LT!!/b!!GT!!" . nl x 2; + $ret .= list OBSOLETEPROJECT; - $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> + $ret; + </perl> + </text> </content> |