Some programming projects
Mailing List
Here are some programming projects listed which I programmed in my spare time. Some may be usefull and others may not. Please use the
Development Mailing List
for any considerations.
Git repository
You may go to
gitweb
for browsing some of the repositories. Please check out each individual project site how to clone a git repository.
Deb repository
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
To trust it please run:
curl http://deb.buetow.org/apt/pubkey.gpg | apt-key add -
Project list
# 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;