#!/bin/sh

for i in "$@"; do
    safei=$(echo "$i" | perl -lpe 'y/a-zA-Z0-9/_/sc;' )
    TMPFILE=`mktemp ${TMPDIR:-/tmp}/vcedit.$safei.XXXXXXXX` || exit 1
    mv "$i" "$i"~ || exit 2
    vorbiscomment -l "$i"~ > $TMPFILE
    ${EDITOR:-sensible-editor} $TMPFILE
    vorbiscomment -w -c $TMPFILE "$i"~ "$i"
    rm $TMPFILE
done