%h = (
    DOMAIN => '@example.com',
    USER   => sub { $r->{sAMAcountName} . $c->{DOMAIN} },
    PASS   => sub { md5sum($c->{PRE} . $r->{sAMAcountName} . $c->{POST}, 15) },
    MAIL   => sub { join('.', $r->{givenName}, $r->{sn}).$c->{DOMAIN} },
);