svn-author.sh

Useful if you're just starting at a job and want to know who to talk to

# find the most popular author with svn blame
svnauthor() {
    local FILE;
    local AUTH;
    local PERCENT;
    local BIGGEST;
    local WRITTEN;
    local TOTAL;
    for FILE in $*; do
        SVN_ST=$(svn st $FILE 2>&1);
        echo $SVN_ST | grep "^A" >/dev/null 2>&1;
        if [ "$?" -eq "0" ]; then echo "$FILE not committed yet, skipping..."; continue; fi
        echo $SVN_ST | grep "not a working copy" >/dev/null 2>&1;
        if [ "$?" -eq "0" ]; then echo "$FILE not under version control, skipping..." && continue; fi
        BIGGEST=$(svn blame $FILE | awk '{print $2}' | sort | uniq -c | sort -n | tail -1);
        AUTH=$(echo $BIGGEST | awk '{print $2}');
        WRITTEN=$(($(echo $BIGGEST | awk '{print $1}')-1));
        TOTAL=$(wc $FILE -l | awk '{print $1}');
        PERCENT=$((100*$WRITTEN/$TOTAL));
        echo "$FILE: $AUTH ($PERCENT%)";
    done;
}