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 b6558b18380cd51e905def1309a626030df867b2..45f2cf13feaaf80b3ba44ca389f2be0b6a2f7437 100644 (file)
--- 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" : ""),