testinstall

伯克利做的SFTP安全文件传输协议

#!/bin/sh
# script to test the install script noninteractively

# log file
log=testinstall.log
rm -f $log
#log=/dev/tty

# run it once to setup the directory structure in /tmp/dry
echo "Setup..."
echo "--- setting up directory structure ---" >> $log
echo "n" | perl sc/install.pl -test >> $log || exit 1


# put system config files that are similar to what the
# install script expects to find
echo "creating /tmp/dry/inetd.conf" >> $log
cat >/tmp/dry/inetd.conf <<EOF
# /etc/inetd.conf sample

# some basic services
echo   	stream	tcp	nowait	root	internal
echo   	dgram	udp	wait	root	internal

# the main one
ftp	stream	tcp	nowait	root	/usr/sbin/tcpd	wu.ftpd -l -i -a -t0

telnet	stream  tcp     nowait  root    /usr/sbin/tcpd	in.telnetd

# end of inetd.conf sample
EOF

echo "creating /tmp/dry/services" >> $log
cat >/tmp/dry/services <<EOF
# /etc/services sample

echo		7/tcp
echo		7/udp

ftp-data        20/tcp          # File Transfer [Default Data]
ftp-data        20/udp          # File Transfer [Default Data]
ftp             21/tcp          # File Transfer [Control]
ftp             21/udp          # File Transfer [Control]

telnet          23/tcp
telnet          23/udp

# end of /etc/services sample
EOF


# run the installer in noninteractive mode
echo "Running installer in test mode..."
echo "--- main installer ---" >> $log
perl sc/install.pl -test -noninter >> $log || exit 1


# it would be ideal to check the results of the install,
# but that's somewhat complicated for a couple reasons,
# so forget it


# test the uninstaller too
echo "Running uninstaller in test mode..."
echo "--- uninstaller ---" >> $log
perl sc/install.pl -test -noninter -u >> $log || exit 1


# success!  blow away the state
echo "Removing /tmp/dry..."
rm -rf /tmp/dry


# all done
echo "--- success ---" >> $log
echo "Test install was successful."