27 Mai
2006
27 Mai
'06
05:30
Hmm hat wer, der kommt einen schl�ssen? Oder kann uns wer um 16:00 aufsperren kommen? gruss mihi -- /usr/bin/perl -e '1==$#ARGV||die "usage: $0 <iPod Volume> <searchstring>"; open(D,"$ARGV[0]/iPod_Control/iTunes/iTunesDB")||die $!;$_=join "",<D>; s/\:/\//g;s/[^\w \.\/]//g;foreach(split /mh(it|sd)/){if(/$ARGV[1]/){ s/.*mhod.//;system("open \"$ARGV[0]$_\"")}}; # TO COPY IS OUR RIGHT!'