irc-blight-id, irc-identpass: The missing machinery for `identpass'.

[ircbot] / irc-identpass

diff --git a/irc-identpass b/irc-identpass
new file mode 100644 (file)
index 0000000..c8ab0c2
--- /dev/null
+++ b/irc-identpass
@@ -0,0 +1,14 @@
+if ( grep calling-user /var/lib/ircbot/bot-users
+   & range service-user 1000 9999
+   )
+       execute sh -c "\
+               if ! test -f .userv/irc-pass-md5; then          \n\
+echo >&2 'no password set for '$USER' - see `help identpass'\\'        \n\
+                       exit 2                                  \n\
+               fi                                              \n\
+               cmp -s - .userv/irc-pass-md5                    \n\
+               rc=$?                                           \n\
+               [ $rc = 1 ] && echo >&2 'incorrect password'    \n\
+               exit $rc                                        \n\
+       "
+fi