This is just a quick script that I wrote and am checking in. Feel free to send patches and ping me if it doesn't work.