#!/bin/sh

# joostvb@janacopoulos:~/git/ad1810-stuff/scripts% a1-langeliedjes | egrep -v DJ_PsiloPsyBen\|Jarrett | tail -30

# mpc --format '%file% (%time%)' listall | grep '(..:..)$'

# 10 min < track < 99 min
##mpc --format '%file% (%time%)' listall | perl -ne '/^(.+)\((\d\d):(\d\d)\)$/ && print "$2 $3 $1\n"' | sort -n

# 100 min < track < 999 min = 17 hours
##mpc --format '%file% (%time%)' listall | perl -ne '/^(.+)\((\d\d\d):(\d\d)\)$/ && print "$2 $3 $1\n"' | sort -n

# as of april 2016, 
#  (78:50) DJ_PsiloPsyBen/What_The_Fuck/gnomemix85_whatthefuck.mp3 
# (137:09) Various/Zut_van_Joseph_Gill_(raw)/Jazz & Rhythm & Blues/Introducing Jazz Mastersd.mp3 
# are our 2 longest tracks (on janacopoulos)

# run 
#  mpc --format '%file% (%time%)' listall | grep '(....:..)$'
# to find tracks > 17 hours

# joostvb@homsar:~% mpc --format '%file% (%time%)' listall 
# blah blah blah
# joostvb@homsar:~% mpc --format '%file% (%time%)' listall > listall
# error: Response line too large

# joostvb@perun:~% for d in $( mpc ls ); do mpc --format '%file% (%time%)' listall $d > listall.$d; done

for d in $( mpc ls ); do mpc --format '%file% (%time%)' listall $d; done > listall
# 10 min < track < 99 min
perl -ne '/^(.+)\((\d\d):(\d\d)\)$/ && print "$2 $3 $1\n"' < listall | sort -n
# 100 min < track < 999 min = 17 hours
perl -ne '/^(.+)\((\d\d\d):(\d\d)\)$/ && print "$2 $3 $1\n"' < listall | sort -n