From: MO Evaluator <mo-eval@mo200.(none)>
Date: Thu, 26 Mar 2015 15:44:36 +0000 (+0100)
Subject: MO-P: Script for creation of CMS users
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=51733944f43d682c3c2b82f66c4f253ef9b1a6ea;p=moe.git

MO-P: Script for creation of CMS users
---

diff --git a/mop/admin/Makefile b/mop/admin/Makefile
index 29ab8d0..b4d1519 100644
--- 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
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";
+}