I've been looking for a mini-itx case and was considering on going for some atom based mobo, but then I found the ZOTAC G43-ITX SOCKET 775 MINI-ITX which has everything I need to convert from my old system: 5 SATA ports and socket 775. So with a little bit of luck I can use my "old" Q6600 processor. The specs for the mobo states only 65W TDP but I've found a post at their forums stating that with sufficient cooling everyting "should" be ok. So problem one done.

Problem two:
I need to find a low profile heatsink that supports 95W processors. I should probably get the Chenbro case and the mobo and then do some measurements on which height  the heatsink can have.

Found this build description online so I know what I have to look forward to for now.

Took some ideas from the "reclamation" theme and did a new theme for this site.. I'll continue work on it later..

#!/usr/bin/perl
 
use File::Basename;
my @m3u;
my @files;
my $f;
my $count = 1;
my $discs;
opendir(DIR, $ARGV[0]) or die("Can't open \"$ARGV[0]\"!\n");
@files = readdir(DIR);
closedir(DIR);
$path = $ARGV[0];
foreach $f ( @files ) {
        if ( ! -d $f ) {
                if ( ($f =~ m/^.*\.m3u$/) && ! ( $f =~ m/^0000.*$/) ) {
                        push(@m3u, $f);
                }
 
        }
}
@m3u = sort(@m3u);
$discs = @m3u;
print "Found $discs m3u files.\n";
foreach $m ( @m3u ) {
        my @data;
        $file = $m;
        $file =~ s/^(.*)\..*/\1/;
        $outfile = $file.".m4b";
        open ID3, "<$ARGV[0]/$m" or die("File \"$ARGV[0]/$m\" not found!\n");
        while ( <ID3> ) {
                push (@data,$_);
        }
        close(ID3);
        if ( -f tmpfile ) {
                print "tmpfile found.. Deleteing\n";
                unlink(tmpfile);
        }
        open(TMPFILE, ">tmpfile");
        foreach $line (@data) {
                if ( $line =~ m/^#.*/ ) {
                } else {
                        if ( $line !=~ m/.*\.rar.*/ ) {
                                print TMPFILE "$path/$line";
                        }
                }
        }
        close(TMPFILE);
        my $id3 = `head -1 tmpfile`;
        print "Getting id3-data from $id3\n";
        @id3 = `id3v2 --list $id3`;
        foreach $line (@id3) {
                if ( $line =~ m/^TALB.*/ ) {
                        $TITLE = $line;
                        $TITLE =~ s/^.*: (.*)\n$/\1/;
                }
                if ( $line =~ m/^TPE1.*/ ) {
                        $AUTH = $line;
                        $AUTH =~ s/^.*: (.*)\n$/\1/;
                }
        }
        print "Got:\n";
        print "Title:  $TITLE\n";
        print "Author: $AUTH\n";
        print "Output: $outfile\n";
        print "Converting..\n";
        system ("mpg321 -@ tmpfile -q -w - | faac -w --disc \"$count/$discs\" --track \"1/1\" --artist \
\"$AUTH\" --title \"$TITLE\" --album \"$TITLE\" --writer  \"$AUTH\" \
--genre \"Audiobook\" -o \"$file.m4b\" - ");
 
        $count++;
}
        print "Done, I think.. Have a nice day!\n";