gremlin/gremlin.in: Refactor content-type guessing.
[autoys] / make-multidisc-playlists / make-multidisc-playlists
1 #! /bin/sh -e
2
3 cd $HOME/jb
4 find . -type f -name '?-??. *' -print | sed 's:/[^/]*$::' | uniq |
5 while read d; do
6 (cd "$d"
7 p=$(echo "$d" | sed 's:^.*/\([^/]*\)/\([^/]*\)$:\1 - \2.m3u:')
8 updatep=nil
9 for f in ?-??.*; do
10 if [ ! "$p" -nt "$f" ]; then updatep=t; break; fi
11 done
12 case $updatep in nil) continue ;; esac
13 { echo "#EXTM3U"
14 for f in ?-??.*; do m3u-extinf "$f"; echo "$f"; done
15 } >"$p.new"
16 rm -f *.m3u
17 mv "$p".new "$p"
18 echo "$d/$p")
19 done
20