4 # FIXME: Tie to specified machines
7 binmode STDIN, ':utf8';
8 binmode STDOUT, ':utf8';
11 s[^\\user\{][] or next;
13 my ($login, $passwd, $full) = split /}{/;
14 my ($fn, $ln) = split /\s+/, $full;
15 print "cmsAddUser -c 1 -p '$passwd' '$fn' '$ln' '$login'\n";