From 6384347524b9ed0e45d92ade788d996ac6ec40b2 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 1 Sep 2012 18:20:04 +0100
Subject: [PATCH] irc-blight-id, irc-identpass: The missing machinery for
 `identpass'.

---
 .gitignore    |  1 +
 irc-blight-id | 11 +++++++++++
 irc-identpass | 14 ++++++++++++++
 3 files changed, 26 insertions(+)
 create mode 100755 irc-blight-id
 create mode 100644 irc-identpass

diff --git a/.gitignore b/.gitignore
index e50d556..fc3b614 100644
--- a/.gitignore
+++ b/.gitignore
@@ -4,3 +4,4 @@ chans
 pwdb
 botpass.tcl
 telling.ps
+bot-users
diff --git a/irc-blight-id b/irc-blight-id
new file mode 100755
index 0000000..5a3df7f
--- /dev/null
+++ b/irc-blight-id
@@ -0,0 +1,11 @@
+#! /bin/sh
+
+set -e
+cd $HOME
+mkdir -p .userv
+cd .userv
+umask 077
+if [ ! -f irc-pass-plain ]; then
+  gorp 128 >irc-pass-plain
+fi
+md5sum <irc-pass-plain | sed 's/ .*$//' >irc-pass-md5
diff --git a/irc-identpass b/irc-identpass
new file mode 100644
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
-- 
2.11.0