93     my $sn = (reverse split " ", $cn)[0];

    93     my $sn = (reverse split " ", $cn)[0];

    94     my $mailGroup = [split /,/, $Cf->group || ""];

    94     my $mailGroup = [split /,/, $Cf->group || ""];

    95     my $mailForwardingAddress = [split /,/, $Cf->forward || ""];

    95     my $mailForwardingAddress = [split /,/, $Cf->forward || ""];

    96     my $pw = _mkpw($Cf->password || "{pwgen}");

    96     my $pw = _mkpw($Cf->password || "{pwgen}");

    97 

    97 

    98 

   102 

    99     my $dn = "uid=$user,$ubase";

   103     my $dn = "uid=$user,$ubase";

   100     my $r;

   104     my $r;

   101 

   105 

   102     verbose("$user:\n");

   106     verbose("$user:\n");