#!/bin/bash

while read package path; do 
    pushd $path
    if [ ! -e debian/control ]; then
	debian/rules debian/control DEB_AUTO_UPDATE_DEBIAN_CONTROL=1
	control=debian/control.in
    else
	control=debian/control
    fi
    dadch "Add Vcs control fields."
    perl -0p -i -e "s{\n\n}{\nVcs-Browser: http://debathena.mit.edu/trac/browser/trunk/$path\nVcs-Svn: svn://debathena.mit.edu/athena/trunk/$path\n\n}" $control
    popd
done <packages