#!/bin/rc
# Author: Benjamin T. D. Newman
# License: Public domain!

changelog=ChangeLog
changelogapplied=changelogapplied

patchesapplied=/n/sources/patch/applied
patches=`{ls -tr $patchesapplied}

fn changelogapply {
echo changelogapply: $1
echo `{ls -ld $1} >> $changelog
cat $1/readme >> $changelog
echo $1 >> $changelogapplied
}

for(i in $patches){
grep $i $changelogapplied > /dev/null || changelogapply $i
}