From: root <root@ceoi01.(none)>
Date: Tue, 30 Jun 2015 11:08:38 +0000 (+0200)
Subject: MO-P: Contestants can have multiple first names
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=16beedc9ee732c588a2ae9ade21c75f11ff9a0b8;p=eval.git

MO-P: Contestants can have multiple first names
---

diff --git a/mop/admin/mo-cms-users.pl b/mop/admin/mo-cms-users.pl
index b6558b1..45f2cf1 100644
--- a/mop/admin/mo-cms-users.pl
+++ b/mop/admin/mo-cms-users.pl
@@ -55,7 +55,7 @@ while (<$logins>) {
 	s[^\\user\{][] or next;
 	s[}$][] or die;
 	my ($login, $passwd) = split /}{/;
-	my ($fn, $ln) = split /\s+/, $fullname{$login};
+	my ($fn, $ln) = $fullname{$login} =~ m{^(.*)\s+(.*)} or die;	# Handles correctly multiple first names
 	my $ip = $machine{$login};
 	print "cmsAddUser -c $contest_id -p '$passwd'",
 		($bind_to_ip && $ip ? " -i $ip" : ""),