#!/usr/local/bin/perl
PATH=/usr/lib/newsbin:$PATH
  cd /usr/lib/news 
  ctlinnd throttle 'fixing history' || exit
  `dirname $0`/fixhist <history >history.n
  makehistory -r -s `wc -l <history` -f history.n || exit
  mv history.n history || exit
  mv history.n.dir history.dir || exit
  mv history.n.pag history.pag || exit
  chown news history*
  chgrp news history*
  chmod 664 history*
  ctlinnd go 'fixing history' || exit