blob: 6a99438c62baec36a5dd9b43635697d88c9233fa (
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
|
<?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>
|
