diff options
| author | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 12:48:30 +0200 |
|---|---|---|
| committer | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 12:48:30 +0200 |
| commit | ab5d0f02bafbb9f266715c756984534ac42b729e (patch) | |
| tree | 0995aef20b7c45a715743706c409dd33b2bb69d3 /dev.buetow.org/content/home.xml | |
| parent | 0cbe4a852a344f0397b57773cb058b7aba8eb2fa (diff) | |
Are you making all this up as you go along?
Diffstat (limited to 'dev.buetow.org/content/home.xml')
| -rw-r--r-- | dev.buetow.org/content/home.xml | 46 |
1 files changed, 1 insertions, 45 deletions
diff --git a/dev.buetow.org/content/home.xml b/dev.buetow.org/content/home.xml index 8d967d0..dbc3ba8 100644 --- a/dev.buetow.org/content/home.xml +++ b/dev.buetow.org/content/home.xml @@ -35,50 +35,6 @@ </text> </information> <text> - <perl> - # Ugly but works for now - my $hostroot = $config->get_hostroot(); - - sub getf ($) { - open my $f, $_[0] or die "$!: $_[0]\n"; - my @slurp = !!LT!!$f!!GT!!; - close $f; - @slurp; - } - - sub nl () { "!!LT!!br /!!GT!!\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 .= "!!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; - } - - my $ret = list PROJECT; - - $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; - </perl> + <includerun>projectlist.inc.pl</includerun> </text> </content> |