chiark / gitweb /
Use the default system Tcl.
[ircbot] / irc-identpass
CommitLineData
df78d81f 1## & range service-user 1000 9999
63843475 2if ( grep calling-user /var/lib/ircbot/bot-users
df78d81f 3 & grep service-user-shell /etc/shells
63843475
MW
4 )
5 execute sh -c "\
6 if ! test -f .userv/irc-pass-md5; then \n\
7echo >&2 'no password set for '$USER' - see `help identpass'\\' \n\
8 exit 2 \n\
9 fi \n\
10 cmp -s - .userv/irc-pass-md5 \n\
11 rc=$? \n\
12 [ $rc = 1 ] && echo >&2 'incorrect password' \n\
13 exit $rc \n\
14 "
15fi