From d3ec864c134ebcf05ea82bad7f565a61bb418feb Mon Sep 17 00:00:00 2001
From: steering7253
Date: Wed, 8 Apr 2026 03:50:25 +0200
Subject: init

---
 authorized_keys.sh | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 authorized_keys.sh

(limited to 'authorized_keys.sh')

diff --git a/authorized_keys.sh b/authorized_keys.sh
new file mode 100755
index 0000000..75c2704
--- /dev/null
+++ b/authorized_keys.sh
@@ -0,0 +1,17 @@
+#!/bin/bash
+
+set -o pipefail
+
+user="$1"
+if [ "$1" = "new" ]; then
+	type="$2"
+	key="$3"
+	if user="$(grep -l -s -r -P '^\s*auth:\s*\Q'"$type"'\E\s+\Q'"$key"'\E$' /opt/autopeer/dn42-registry/data/mntner/ | perl -ne 's@^.*/@@; s@-MNT$@@; print lc;' | head -1)"; then
+		perl -ne 'print if s@^\s*auth:\s*ssh-@ssh-@' </opt/autopeer/dn42-registry/data/mntner/"$(echo "$user" | perl -ne 's@$@-MNT@; print uc;')"
+		/usr/sbin/adduser --disabled-password --quiet --comment "created at $(date +%s) by $key" --ingroup autopeer "$user"
+	fi
+else # not new user
+	perl -ne 'print if s@^\s*auth:\s*@@' </opt/autopeer/dn42-registry/data/mntner/"$(echo "$user" | perl -ne 's@$@-MNT@; print uc;')"
+fi
+
+exit 0
-- 
cgit v1.3.1-10-gc9f91