suck_040225.shar

Suck Wrappers are a set of UNIX script files that sets up inn, an NNTP server, on a local machine so

X	  have found the one which returns the values used by the version
X	  of innd, enter the following commands BEFORE running $SN:
X	    PATHBIN=/dir_path_to_innconfval ;export PATHBIN
X	    ls -l $PATHBIN/innconfval $PATHBIN/ctlinnd $PATHBIN/shlock
X	      This should list three executable files if it does not then
X	      the problem is beyond this script to help.
X	    $SN
X	_EOB
X
X	rm -f /tmp/$SN.1.$$
X	exit 1
;;
1 )
X	REMOTE_FQDN=${REMOTE_FQDN:=`cat /tmp/$SN.1.$$`}
;;
* )
X	if [ -z "$REMOTE_FQDN" ]
X	then
X		cat <<- _EOB
X			There is a problem there is more than one name which can
X			be used as an exclusion: 
X		_EOB
X		cat /tmp/$SN.1.$$ 
X		read $REMOTE_FQDN
X		set_env_fn "" "Please enter the REMOTE_FQDN name <rtn> or <rtn> to abort: "
X		REMOTE_FQDN=$EnvTmp
X		if [ "$REMOTE_FQDN" == "" ]
X		then
X			echo "ERROR:$SN:main:140:REMOTE_FQDN not set --  bailing out" 1>&2 
X			rm -f /tmp/$SN.1.$$
X			exit 1
X		fi
X	fi
;;
esac
X
print_fn The remote identifier string is REMOTE_FQDN=$REMOTE_FQDN
rm -f /tmp/$SN.1.$$
X
################################################################## 
print_fn "modifying the $PATHETC/newsfeeds"
###########
grep $NNTPSERVER -s $PATHETC/newsfeeds >/dev/null
case $? in 
1 )
X	#
X	## no match append it on the bottom of the file
X	#
X	if [ ! -f $PATHETC/newsfeeds.$Org ]
X	then
X		cp -p $PATHETC/newsfeeds $PATHETC/newsfeeds.$Org
X	else
X		echo "WARNING:$SN:main:150:$PATHETC/newsfeeds.$Org exists"  1>&2
X	fi
cat >> $PATHETC/newsfeeds << _EOB
X
#
## added by news $HOME/suck/setup_suck.sh
## ISP_server/isp_FQDN 
#
$NNTPSERVER/${REMOTE_FQDN}\\
X	:*,!control*,!junk,!local*\\
X	::
X
_EOB
;;	
2 )
X	echo "ERROR:$SN:main:160:grep $PATHDB/newsfeeds  failed -- bailing out" 1>&2
X	exit 1
;;
esac
SHAR_EOF
  (set 20 03 11 07 21 30 11 'suck/setup_suck.sh'; eval "$shar_touch") &&
  chmod 0554 'suck/setup_suck.sh' ||
  $echo 'restore of' 'suck/setup_suck.sh' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'suck/setup_suck.sh:' 'MD5 check failed'
5e36ec085721bcc101977dd22af55d27  suck/setup_suck.sh
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'suck/setup_suck.sh'`"
    test 20890 -eq "$shar_count" ||
    $echo 'suck/setup_suck.sh:' 'original size' '20890,' 'current size' "$shar_count!"
  fi
fi
# ============= suck/get.news.inn ==============
if test -f 'suck/get.news.inn' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'suck/get.news.inn' '(file already exists)'
else
  $echo 'x -' extracting 'suck/get.news.inn' '(text)'
  sed 's/^X//' << 'SHAR_EOF' > 'suck/get.news.inn' &&
#!/bin/sh 
########################################################################
# @(#)get.news.inn Version: 1.7 Date: 04/02/25 14:51:27
#
# AUTHOR VERSION INFORMATION AND CONTACT DETAILS
#    Original source at: http://www.sucknews.org
#
#    This script was modified by Philip Shearer ( lmrlnATbigfoot.com
#    replace AT with @). I am not sure who the original author was
#    because no information was given at the top of the original file.
#
#BEFORE USING - check to ensure all the paths defined below are correct!!
#They are available for inspection and alteration in $HOME/.suckenvrc
#
#NOTE: this script will be run by user  news (or maybe root)
########################################################################
X
if [ -f $HOME/.suckenvrc ]
then
X.	$HOME/.suckenvrc
fi
X
########################################################################
all_env_set_fn()
{
set  \
X	"$NNTPSERVER" \
X	"$LOCALHOST" \
X	"$NEWSFEED" \
X	"$NET_ENQUIRE" \
X	\
X	"$PATHBIN" \
X	"$PATHARTICLES" \
X	"$PATHOUTGOING" \
X	"$PATHTMP" \
X	\
X	"$INN_HIST" \
X	"$PATHSUCK" \
X	\
X	"$SUCK_CONF" \
X	"$RPOST_CONF" \
X	"$PUT_SED_HEAD_CMDS" \
X	"$PUT_SED_BODY_CMDS"
X
while [ "$1" ]
do
X	shift
X	if [ $# -eq 0 ]
X	then
X		return 0
X	fi
done
X
return $#
}
########################################################################
display_env_fn()
{
cat 1>&2 <<-EOB 
X	$BN:ERROR:environment variables not all set where is $HOME/.suckenvrc?
X	        NNTPSERVER=${NNTPSERVER}	# where to get/send news
X	        LOCALHOST=${LOCALHOST}		# usually localhost
X	        NEWSFEED=${NEWSFEED}		# value "inn" newsfeed file
X
X		#
X		## These should be the same as the values in inn.conf 
X		#
X	        PATHBIN=${PATHBIN}	# dir of news binaries
X	        PATHARTICLES=${PATHARTICLES}		# base directory for articles
X	        PATHOUTGOING=${PATHOUTGOING}	# base directory for list of outgoing articles
X	        PATHTMP=${PATHTMP}	# /tmp is insecure 
X
X		# should be the same as inn.conf "pathdb"/history
X	        INN_HIST=${INN_HIST}		# path to history file
X	        PATHSUCK=${SUCKPATH}		# base directory for suck scripts and data files
X
X 	        SUCK_CONF=${SUCK_CONF}		# name of the suck configuration file
X		RPOST_CONF=${RPOST_CONF}	# name of the rpost configuration file
X
X		#
X		## The following are a sed script used by put.news.sm
X		#
X	        PUT_SED_HEAD_CMDS=${PUT_SED_HEAD_CMDS} # used by sed to strip out certain headers
X	        PUT_SED_BODY_CMDS=${PUT_SED_BODY_CMDS} # sed to skip the body of the message
X
X		#
X		## To get debug output set his variable
X		#
X	        # SUCK_DEBUG="-D" ; export SUCK_DEBUG 
X	        SUCK_DEBUG=$SUCK_DEBUG
EOB
}
########################################################################
usage_fn()
{
X	echo "usage $BN: [-n[ntperver] name]"
X	exit 0
}
########################################################################
#main
######
BN=`basename $0`
case $# in
0 )
;;
2 )
X	##############################################################
X	# The -n switch allows for multiple nntp server connections
X	# Just copy the $SUCK_CONF to the same name with the NNTP
X	# server as the extension.
X	# An additional line needs to be put into the file
X	# $SUCK_CONF.news.server.com
X	#   -p news.server.com
X	# where "news.server.com" is the DNS Internet address of the news
X	# server you wish to connect too.
X	#
X	# The suck manual entry says
X	#  If  you  use the -p (postfix) option, suck will check for the
X	#  existence of an active-ignore file with the postfix.  If  that
X	#  doesn't exist,  then  suck will check for the existence of
X	#  the file without the postfix.
X	#
X	# Set up the files as described above and run the command
X	# get.news.inn -n news.server.com
X	#############################################################
X	case $1 in
X	-[nN]* )
X		NNTPSERVER=$2
X		NEWSFEED=$NNTPSERVER
X		SUCK_CONF=$SUCK_CONF.$NNTPSERVER
X		export NEWSFEED NNTPSERVER SUCK_CONF
X	;;
X 	* )
X		usage_fn
X	;;
X	esac
;;
* ) 
X		usage_fn
;;
esac
X
all_env_set_fn 
if [ $? -ne 0 ]
then
X	display_env_fn
X	exit 1
fi
X
if [ ! -z "$SUCK_DEBUG" ]  && [ $SUCK_DEBUG != "-D" ]
then
X	echo "$BN:ERROR:SUCK_DEBUG must be set to SUCK_DEBUG='-D' --bailing out" 1>&2
X	exit 1
fi
X
CTLINND=${PATHBIN}/ctlinnd		# location of binary
SHLOCK=${PATHBIN}/shlock		# location of binary
X
SITE=${NEWSFEED}
X
OUTGOING=${PATHOUTGOING}/${SITE}	# location of the list of articles to upload
OUTGOINGNEW=${OUTGOING}.new		# file to contain the list temporarily
OUTGOINGFAIL=${OUTGOINGNEW}.fail	# file with failed xfers
X
OUTFILE=$PATHTMP/${BN}_$$		# used by rpost as article after it is filtered
LOCKFILE=${PATHSUCK}/getnews.lock	# lock file to prevent multiple instances of script
NEWSGROUP=news				# group of the files in in outgoing, typically either news or uucp.
X
TESTHOST=testhost
RPOST=rpost
SUCK=suck
X
export OUTGOING OUTGOINGNEW OUTGOINGFAIL OUTFILE LOCKFILE NEWSGROUP
X
# if we are already running, abort 
X
trap 'rm -f ${LOCKFILE} ; echo "Aborting" ; exit 1' 1 2 3 15
${SHLOCK} -p $$ -f ${LOCKFILE}
if [ $? -ne 0 ]; then
X	echo "Already running, can't run two at one time"
X	exit
fi
X
#Is the NNTPSERVER available
eval $NET_ENQUIRE $NNTPSERVER
X
#is the local host up and running so we can post messages we download?
${TESTHOST} ${LOCALHOST} -s
LOCAL_RESULT=$?
X
# is the remote host up and running so we can download messages?
${TESTHOST} ${NNTPSERVER} -s
REMOTE_RESULT=$?
X
if [ ${REMOTE_RESULT} -eq 0 -a ${LOCAL_RESULT} -eq 0 ]; then
X	
X	# download messages
X	eval ${SUCK} ${NNTPSERVER} `sed '/^#/d' $SUCK_CONF`
X	SUCK_STATUS=$?
X
X	if [ ${SUCK_STATUS} -eq 0 ]; then
X		echo "Downloaded Articles"
X	elif [ ${SUCK_STATUS} -eq 1 ]; then
X		echo "No articles to download"
X	elif [ ${SUCK_STATUS} -eq 2 ]; then
X		echo "Unexpected answer from remote server to an issued command"
X	elif [ ${SUCK_STATUS} -eq 4 ]; then
X		echo "Can't do NNTP authorization"
X	elif [ ${SUCK_STATUS} -eq -1 ]; then
X		echo "General failure"
X	fi
X
X	# now upload messages
X	if [ -s ${OUTGOING}  -o -s ${OUTGOINGNEW} ]; then
X
X		${TESTHOST} ${NNTPSERVER} -s
X
X		if [ $? -ne 0 ]; then
X			echo "Remote posting host not responding"
X		else
X			# OUTGOING is needed by INND so that the outgoing
X			# file will be properly flushed and we have a
X			# new blank file to work with when we are done:
X			#
X			# First mv the current one to a new file name
X			# Since innd already has the file open, it doesn't care 
X			# about the rename.
X			# The flush will ensure that all messages to be posted have
X			# been written out, close off the old one (already renamed)
X			# and create a new one.
X
X			if [ ! -s ${OUTGOINGNEW} ]; then
X				  # If the OUTGOINGNEW does not exist then
X				  # because of the previous test OUTGOING
X				  # must exist and is not empty. So move
X				  # OUTGOING to to OUTGOINGNEW and use
X				  # ctlind flush to recreate OUTGOING.
X				mv ${OUTGOING} ${OUTGOINGNEW}
X				${CTLINND} flush ${SITE}
X			else
X				if [ -s ${OUTGOING} ]
X				then
X					# There is an outgoing file from last time and
X					# one from this time. So as there is somthing wrong
X					# with the previous. By using rev which reverses the
X					# file order. The show stopper from last time will move
X					# to the bottom of the file. 
X					# WARNING if more than one article fails there may be 
X					# good ones trapped between the failures
X
X					
X					mv ${OUTGOINGNEW} ${OUTGOINGNEW}.$$
X					mv ${OUTGOING} ${OUTGOINGNEW}
X					${CTLINND} flush ${SITE}
X					sort -r  ${OUTGOINGNEW}.$$ >>${OUTGOINGNEW}
X					rm -f ${OUTGOINGNEW}.$$
X				fi
X			fi
X
X			article="articles"
X			msglines=`wc -l ${OUTGOINGNEW} | sed -e 's/ [^0-9| ].*//' -e 's/ //g'`
X			if [ $msglines -eq 1 ]
X			then
X				article="article"
X			fi
X			
X			d=`date +"%y/%m/%d %X"`
X			echo $msglines outgoing $article to post to ${NNTPSERVER}:
X			sed "s;^;$d Trying to post ;" ${OUTGOINGNEW}
X			eval ${RPOST} ${NNTPSERVER}  `sed '/^#/d' $RPOST_CONF`
X			ERRLEV=$?
X			case $ERRLEV in
X			0 )
X				echo "Remotely posted" $msglines $article "to" ${NNTPSERVER}
X				rm ${OUTFILE}
X			;;
X			1 )
X				echo "Error remotely posting to " ${NNTPSERVER} $msglines $article
X			;;
X			2 )
X				echo "Unable to do NNTP authorization with remote server ${NNTPSERVER}"
X			;;
X			3 )
X				echo "Unexpected answer from remote server ${NNTPSERVER} to a command while doing NNTP authorization"
X			;;
X			-1 )
X				echo "Fatal error remote posting to ${NNTPSERVER}"
X			;;
X			* )
X				echo "Unknown error: ${ERRLEV} remote posting to ${NNTPSERVER}"
X			;;
X			esac
X
X			if [ -f ${OUTGOINGFAIL} ]; then
X				mv ${OUTGOINGFAIL} ${OUTGOINGNEW}	# so we can re do it
X				chown news:${NEWSGROUP} ${OUTGOINGNEW}
X				chmod 664 ${OUTGOINGNEW}
X			fi
X		fi
X	fi	
X	
X	d=`date +"%y/%m/%d %X"`
X	echo "You can hang up the modem now. $d"
X
fi
X
rm -f ${LOCKFILE}
SHAR_EOF
  (set 20 04 02 25 14 51 27 'suck/get.news.inn'; eval "$shar_touch") &&
  chmod 0554 'suck/get.news.inn' ||
  $echo 'restore of' 'suck/get.news.inn' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'suck/get.news.inn:' 'MD5 check failed'
d67a11367a965f293d34f8b8c6ab64a6  suck/get.news.inn
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'suck/get.news.inn'`"
    test 8595 -eq "$shar_count" ||
    $echo 'suck/get.news.inn:' 'original size' '8595,' 'current size' "$shar_count!"
  fi
fi
# ============= suck/suck.conf ==============
if test -f 'suck/suck.conf' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'suck/suck.conf' '(file already exists)'
else
  $echo 'x -' extracting 'suck/suck.conf' '(text)'
  sed 's/^X//' << 'SHAR_EOF' > 'suck/suck.conf' &&
############################################################################
# @(#)suck.conf Version: 1.1 Date: 03/06/05 22:48:13  Author: PBS
# To contact the Author: lmrlnATbigfoot.com replace AT with @
# Copyright (C) 2003 Philip Baird Shearer
#
# This program is free software; you can redistribute it and/o