6ft4

Vor einigen Tagen habe ich mir einen neuen Lüfter für mein ME6000 gekauft. Das ganze lief über ein Team Mitglied aus dem epiacenter.de Forum und hat mich zum Glück nicht arm gemacht.

Erstanden habe ich einen Pabst 8412N/2GLE mit 3-Pin Molexstecker. Der Lüfter ist bei 12 V ein wenig leiser als mein alter. Auch wenn der alte bei 7 V lief und für mich so eigentlich noch leiser war. Der Vorteil des neuen ist aber ganz klar der 3-Pin Molexstecker. Dieser kann nämlich direkt auf das Motherboard gesteckt werden und liefert auch gleich noch ein Tachosignal mit. Über lmsensors kann ich damit dann die Drehzal auslesen und mich daran erfreuen. Mehr Sinn sehe ich da zur ZEit noch nicht wirklich drin. ;-) Damit das ganze auch wirklich klappt musste ich in der sensors.conf noch eine Änderung vornehmen.

set fan1_div 4

musste eingefügt werden, da sonst 0 RPM angezeigt wurden, was natürlich kaum stimmen konnte.

Nun muss ich den Lüfter aber endlich mal Schwingungsgedämpft einbauen, da er sonst doch schon ein wenig radau macht muss ich sagen. Hält man den Lüfter dagegen in der Hand ist er eigentlich nicht zu hören. Wenn ich dann noch endlich ein picoPSU habe sollte der Rechner wirklich mal in richtung lautlos gehen.

Newest version of my copycurrent script. It should now delete the oldest or the biggest depending on the size of the currently playing track.

Here it is now. In this version the script behaves differently when a song is above a certain size


#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use File::Copy;
#use Audio::MPD;

copy($file, "/media/stick")
or die "Copy failed: $!";
system("umount", $mountpoint);
system("aplay", "-q", $sound_ok);


At the moment I am trying to implement something new to my copycurrent.pl script. I like to listen to long mixes which are often bigger than 150MB . When one of these is allready on my mp3 player which isn’t the oldest copycurrent used to delete all the old files first. This might lead to deleteing all files and then copying the new mix.
Now I want to delete the biggest file if the current files size is greater than a certain size. I thought it should work but because of my limited perl knowledge it’s got some kind of ailments…
I’ll keep you all posted.

Vor einigen Tagen schickte mir ein Freund zwei Links mit ein wenig Erheiterung über den Aple iPod und seine Nachfolger. Im ersten Video geht es um die Neuvorstellung eines iPod. Im zweiten Video werden ebenfalls interessante neue Aple Produkte und Zubehör vorgestellt. Beide Videos sind meiner Meinung nach auf jeden Fall einen Klick wert und waren zumindest für mich sehr erheiternd.

In this thread I asked wheter anyone had achieved something like copying the currently played song in mpd to a USB-Stick. Now I think I have succeeded. This is a refined version that checks for available filespace and deletes the oldest file on the device. Always deleting the oldest one might not be the best thing but it certainly gives you new songs. Even though this might delete your favourite song at some point.

I have to find a way to make the source file available for download.

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use File::Copy;
# Declaration of a few variables
my $musicdir = "/media/mp3/";
my $mountpoint = "/media/stick/";
my $sound_ok = $musicdir.'sounds/button16.wav';
my $sound_size = $musicdir.'sounds/subdive.wav';
my $sound_mount = $musicdir.'sounds/pfiff.wav';
# Die if device is not added
#die unless ($ENV{ACTION} =~ /add/);
if ($ENV{ACTION} =~ /remove/) { die };
# Device has to be mounted otherwise we don't get the freespace
system("mount", $mountpoint) == 0
or die system("aplay", "-q", "-d", "2", $sound_mount);
# Determine how much space in bytes is available
sub space {
my $space = `df $mountpoint`;
chop $space;
$space =~ /(\d+\s*)(\d+\s*)(\d+)\s*/mg;
my $free = $3 * 1024;
return $free;
}
sub oldest {
my %data;
my @sorted;
my @content = `ls -1 $mountpoint`;
for (@content) {
chop $_;
$data{$_} = (stat($mountpoint.$_))[9];
@sorted = sort { $data{$a} cmp $data{$b} } keys %data;
}
return shift(@sorted);
}
die("MPD.pm not found!\n") unless -f "/usr/local/bin/MPD.pm";
require("/usr/local/bin/MPD.pm");
my $mpd = MPD->new();
my %currentsong = $mpd->get_current_song_info;
my $file = $musicdir.$currentsong{file};
my $filesize = (stat($file))[7];
for (my $freespace = space(); $filesize > $freespace; $freespace = space()) {
system("aplay", "-q", $sound_size);
unlink($mountpoint.oldest()) == 1
or die "Fehler: ";
}
copy($file, "/media/stick") or die "Copy failed: $!";
system("umount", $mountpoint);
system("aplay", "-q", $sound_ok);


The Perl Module MPD.pm is needed. It can be downloaded on the mpd download page (at the bottom). I think it can now be found on CPAN as well.

This script copys the currently playing song to /media/stick. For this to work automaticaly you have to do quite a few things more though. Install udev, create a udev-rule and adjust your /etc/dev.d. This proved to be pretty complicated for me…

Installing udev under debian was very simple once I new that I needed it:
apt-get install udev

creating the udev rule proved quit complicated because I assumed a few things that were wrong. The following links should tell you all you need to know:
http://www.linuxjournal.com/article/7316
http://www.reactivated.net/writing_udev_rules.html
http://kernel.org/pub/linux/utils/kernel/hotplug/RFC-dev.d

The second link is very usefull when you need to gain information about your USB-Device. The last one solves the mystery of how to execute a certain script after the device node has been set up. I always tried with the PROGRAM=”script.pl” option in the udev rule. That is wrong!

I had to make a directoy under /etc/dev.d/ which I called stick. So it looks like this:
/etc/dev.d/stick

[~] ls -l /etc/dev.d/stick/
insgesamt 0
lrwxrwxrwx 1 root 29 2005-09-12 22:08 copy.dev -> /usr/local/bin/copycurrent.pl

In there you can either put the scripts to be run when the stick is attached or you create symlinks. Another option is to write a bash script which then executes your scripts. Decide for yourself.

TODO:

• for now the oldest file in the device is deleted
• better error erporting

Update to v0.3 of copycurrent:
copycurrent v0.3/

Gerade eben hab ich das Schicksal meiner IXUS V3 besiegelt. In der Antwort auf den Kostenvoranschlag habe ich “Kostenfrei entsorgen” angekreuzt und werde meine kleine IXUS dann wohl nicht wiedersehen.
Mittlerweile bin ich ziemlich enttäuscht muss ich sagen. Von einer Kamera für so viel Geld hätte ich mir ein etwas längeres Leben gewünscht. Da ich sie im Januar 2003 gekauft habe ist die Kamera sozusagen zweieinhalb Jahre alt geworden. Auch 4000 gemachte Fotos sind nicht wirklich viel finde ich. Aber etwas habe ich denke ich gelernt. Nie wieder sooo viel Geld für eine Digitalkamera. Im Moment fasse ich die IXUS 40 und die PowerShot A510 ins Auge. Allerdings überlege ich auch ob ich nochmal eine Canon kaufen soll. Es ist sicher alles nur ein Einzelfall, aber ein ungutes Gefühl bleibt dennoch.

Heute kam endlich der Kostenvoranschlag für die Reparatur meiner Digitalkamera. Vor ca. 10 Tagen hatte ich meine IXUS zur Reparatur eingeschickt. Kurz zuvor hatte ich mich noch mit David unterhalten und mich dann auf seinen Rat hin doch noch dazu entschlossen erst mal einen Kostenvoranschlag machen zu lassen bevor ich reparieren lasse. Im Nachhinein hat sich dies als sehr vernünftig erwiesen. Die Reparatur soll nämlich leider 210 Euro kosten. Davon sind 110 Euro für eine neue Optikeinheit welche ausgetauscht werden müsste. Diese Reparatur ist natürlich viel zu teuer und der Spruch “Kaufen Sie sich lieber gleich ne neue” kommt zum tragen. Daher werde ich wohl nicht reparieren lassen und eine neue kaufen. Der einzige Haken an der ganzen Sache ist aber, dass ich keine 200 Euro für eine neue Kamera hätte. Für eine Reparatur allerdings auch nicht…
Also heisst es wohl erst mal ohne auskommen und sparen.

Wer gedacht hat die Sache mit T-Online wäre mit einer Kündigung und einem unnützen Anruf beendet der irrt sich natürlich gewaltig.
Heute flattert die aktuelle T-Com Rechnung ins Haus und dort wird die DSL-Flat noch schön bis zum 26.08 abgerechnet. Etwas verwirrt rufe ich dann natürlich bei einer Hotline an um zu fragen warum. Dort wird mir dann berichtet, dass meine Kündigungsfrist nicht wie angenommen 6 Werktage sondern 20 Werktage beträgt und ich somit erst zum 08.08.2005 kündige. Seeehr interessant. Warum wurde mir dies nicht während des ansonsten überflüssigen Anrufs vom 29.06.2005 mitgeteilt? Da ging es aber nur um das Gelaber welches ich durch mein Kündigungsschreiben vermeiden wollte. Der jetzt eingetretene Fall einer verschobenen Kündigung war allerdings ein Fall bei dem ich ausdrücklich um Kontaktaufnahme gebeten hatte.
Die Dame an der Hotline wollte mir dann natürlich weiß machen, dass ich das doch wissen müsste, weil ich ja bereits darüber informiert worden bin. Die 20 Werktage Kündigungsfirst kann ich wohl nicht anfechten. Dann stellte sich mir aber die Frage warum mir der Tarif dann noch 18 Tage länger in Rechnung gestellt wird und dann erst erstattet wird. Nachdem ich der Dame an der Hotline die freche Frage stellte warum mir die Flatrate bis zum 26.08 in Rechnug gestellt wird wenn T-Online doch bereits seit dem 11.07 weiss, dass ich zum 08.08 kündige konnte sie dann wohl auch nicht mehr erklären und die Leitung war plötzlich tot. Das war natürlich nur ein Versehen…
So wurde es mir zumindest von dem nächsten Mitarbeiter erklärt den ich dann an der Strippe hatte. Das war natürlich wieder jemand ganz anderes der für das Verhalten der anderen Person nichts kann. CallCenter sind einfach eine tolle Sache. Da kann man immer sagen es war ein anderer.
In diesem Gespräch stellte sich dann auch noch heraus, dass die Kündigungsfrist ja schon seit einem Jahr bei 20 Werktagen liegt. Dann frage ich mich allerdings warum mir vor einem knappen halben Jahr etwas von 6 Werktagen erzählt wurde.
Ich hoffe, dass ich ab dem 08.08 nun wirklich nichts mehr von dem Laden höre.

Templates sind irgendwie ziemlich undurchsichtig finde ich. Vielleicht sollte ich mich aber auch einfach mal mit der Technik dahinter beschäftigen. Dann könnte es sein, dass ich das schon eher verstehe. Mal sehen.