mop/admin/mo-cms-users.pl

   1 #!/usr/bin/perl
   2 use common::sense;
   3
   4 # FIXME: Tie to specified machines
   5
   6 # Parses login.tex
   7 binmode STDIN, ':utf8';
   8 binmode STDOUT, ':utf8';
   9 while (<STDIN>) {
  10         chomp;
  11         s[^\\user\{][] or next;
  12         s[}$][] or die;
  13         my ($login, $passwd, $full) = split /}{/;
  14         my ($fn, $ln) = split /\s+/, $full;
  15         print "cmsAddUser -c 1 -p '$passwd' '$fn' '$ln' '$login'\n";
  16 }