blob: 17686fa731961646993f5af092d6fe8c709b6b6c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
<?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</text>
<code>[deb|deb-src] [http|ftp]://deb.buetow.org/apt REPLACEWITHDISTNAME main</code>
<text>To trust it please run: </text>
<code>curl http://deb.buetow.org/apt/pubkey.gpg | apt-key add -</code>
<textheader>Project list</textheader>
<information>
<text>
<noop>All host's ending with </noop>
<strong>.foo</strong>
<noop> are most likely dev, test or PoCs. Don't expect to find anything usefull there.</noop>
</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>
</text>
</content>
|
