#! /bin/sh
#------------------------------------------------------------------------------
# part of the sn-package for eisfair
# delete newsgroup
# last update: 2003/09/11
# (c) 2001-2003 by Christian Würdig (eisfair@chriswue.de)
#------------------------------------------------------------------------------

cd /var/spool/news/

while [ 1 ]; do
   n=0
   for i in *; do
      n=`expr $n + 1`
      eval ng_$n='"$i"'
   done
   numb=$n
   n=0
   last=0

   while [ 1 ]; do
      clrhome
      colecho "Delete newsgroups ($numb subscribed)" gn
      echo
      row=1
      last=`expr $last + 1`
      while [ "$row" -le 20 -a "$n" -lt "$numb" ]; do
         n=`expr $n + 1`
         eval group='$ng_'$n
         echo -e "($n)\t$group"
         row=`expr $row + 1`
      done
      echo
      echo -e "Newsgroup to remove ($last-$n, RETURN=Next page, 0=Return): \c"
      read a
      if [ "$a" != "" ]; then
         if [ "$a" -eq 0 ]; then
            break 2
         fi
         while [ "$a" -lt "$last" -o "$a" -gt "$n" ]; do
            echo -e "Newsgroup to remove ($last-$n, RETURN=Next page, 0=Return): \c"
            read a
            if [ "$a" = "" ]; then
               break
            fi
            if [ "$a" -eq 0 ]; then
               break 3
            fi
         done
         if [ "$a" != "" ]; then
            eval group='$ng_'$a
            touch /var/spool/news/.noservice
            su news -c "/usr/local/sn/sndelgroup $group 2>>/var/log/sn/snconf.log"
            echo "Newsgroup '$group' removed"
            rm -f /var/spool/news/.noservice
            /var/install/bin/anykey
            break
         fi
      fi
      if [ "$n" -eq "$numb" ]; then
         n=0
      fi
      last=$n
   done
done

echo
/var/install/bin/anykey
exit 0