22 Mär
2006
22 Mär
'06
20:04
Fall in Love, Kiss on the Streets, Do not Hesitate, Do not Compromise, Do it Now! -- /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!'