1#! /bin/sh
2
3test -f check..sccs || exit 77
4
5. $srcdir/check_lib
6check_start 24 "put (WRQ) create access check of SCCS file"
7
8# setup configuration file
9wd=`pwd`
10cat >$CHECKDIR/check.conf <<EOF
11127.0.0.1:create($CHECKDIR/s/1:$CHECKDIR/s/2:$CHECKDIR/s/5)
12default:sccs-get($SCCS_GET)sccs-delta($SCCS_DELTA)sccs-clean($SCCS_CLEAN)sccs-unget($SCCS_UNGET)
13EOF
14./utftpd_make <$CHECKDIR/check.conf $CHECKDIR/check.cdb $CHECKDIR/check.tmp
15
16cd $CHECKDIR/s
17cp $wd/Makefile ./1
18cp $wd/Makefile ./2
19cp $wd/Makefile ./3
20cp $wd/Makefile ./4
21sccs_create 1 2 3 4
22$SCCS_GET -s -e SCCS/s.2
23$SCCS_GET -s -e SCCS/s.4
24cd $wd
25do_test FAIL  ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/1    config.log
26do_test FAIL  ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/2    config.log
27do_test FAIL  ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/3    config.log
28do_test FAIL  ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/4    config.log
29do_test OK    ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/5    config.log
30check_end
31