MO-P: Script for creation of CMS users

diff --git a/mop/admin/Makefile b/mop/admin/Makefile
index 29ab8d012179cd2da7eb1c208e7f2ebf2289b6d4..b4d15198b981fce1d2a65ad8f1681145bc461490 100644 (file)
--- a/mop/admin/Makefile
+++ b/mop/admin/Makefile
@@ -8,7 +8,7 @@ PROGS+=$(addprefix $(o)/mop/admin/,\
        mo-install mo-create-contestants mo-create-eval mo-create-logins \
        mo-create-public mo-create-submit mo-create-testusers \
        mo-grab mo-back-grab mo-grab-remote \
-       mo-push-certs mo-push-feedback)
+       mo-push-certs mo-push-feedback mo-cms-users)
 
 $(o)/mop/admin/md5crypt: $(o)/mop/admin/md5crypt.o $(LIBUCW)
 
@@ -26,3 +26,4 @@ $(o)/mop/admin/mo-grab: $(s)/mop/admin/mo-grab.sh
 $(o)/mop/admin/mo-install: $(s)/mop/admin/mo-install.sh
 $(o)/mop/admin/mo-push-certs: $(s)/mop/admin/mo-push-certs.sh
 $(o)/mop/admin/mo-push-feedback: $(s)/mop/admin/mo-push-feedback.sh
+$(o)/mop/admin/mo-cms-users: $(s)/mop/admin/mo-cms-users.pl

diff --git a/mop/admin/mo-cms-users.pl b/mop/admin/mo-cms-users.pl
new file mode 100644 (file)
index 0000000..3dadea1
--- /dev/null
+++ b/mop/admin/mo-cms-users.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use common::sense;
+
+# FIXME: Tie to specified machines
+
+# Parses login.tex
+binmode STDIN, ':utf8';
+binmode STDOUT, ':utf8';
+while (<STDIN>) {
+       chomp;
+       s[^\\user\{][] or next;
+       s[}$][] or die;
+       my ($login, $passwd, $full) = split /}{/;
+       my ($fn, $ln) = split /\s+/, $full;
+       print "cmsAddUser -c 1 -p '$passwd' '$fn' '$ln' '$login'\n";
+}