toadking.com

Well, after five days of working away at the terminal updating by Gentoo box to the unstable builds, I finally have everything up and working. Well, except that GNOME has some problems with SVG images which I will look into later. However, those Gentoo developers who work on Portage have to put some more work into dependency calculating; I had to rebuild a lot of stuff by hand due to updates in both the DBus and expat libraries, which made this update take much longer than necessary. The whole experience nearly made me go Rambo for no reason.

Well, now to check my 193 new emails for me, and only about a dozen are spam!

#!/usr/bin/perl -w

use strict;
use XML::Atom::Client;
use Text::Wrap;

$Text::Wrap::columns = 76;

my $atomapi = XML::Atom::Client->new;

my $o;

MAINLOOP: {
eval {
my $f = $atomapi->getFeed(”http://4q.cc/index.php?pid=atom&person=all“);
my @entry = $f->entries;
my $e = $entry[0];
$o = $e->elem->getChildrenByTagName(”title”)->shift->firstChild->data;
};

if ($@) {
redo MAINLOOP;
}
}

$o = “\n\033[1;34m” . fill(”\033[1;34m”, “\033[1;34m”, “FUN FACT: $o”) . “\n\n”;
$o =~ s/\033\[1;34m\033\[1;34m/\033[1;34m/g;
open(MOTD, “>/etc/motd”);
print MOTD $o;
truncate(MOTD, length($o));