
# HPUX_ID: @(#)29.1   86/07/04
#          @(#)update	29.1      86/04/23     

# Script to send updates of the send script to tmp directories on remote
# systems, for updating their interface scripts.

# Usage: invoke with no arguments.

# Crude, intended for only occasional use.

	for system in `ls ../receive`
	do
	    echo $system

	    userpass=` awk < /usr/lib/uucp/L.sys '
		    $1 == "'$system'" {		# found system name.
			if (NF > 8)		# has password too.
			    $7 = $7 ":" $9;	# tack it on.
			print $7;
			exit;
		    }
	    '`

	    n=/net/$system
	    netunam $n $userpass
	    cppro send $n/tmp/ajs
	done
