2BSD/src/net/setlength

# set the length of the logfiles
set a=$1
set tmp=setl$$
shift
unset noclobber
foreach i ($argv)
	tail -$a $i >/tmp/$tmp
	cp /tmp/$tmp $i
end
rm -f /tmp/$tmp