6 use Data::Dump qw(dump);
9 open(my $passwd, '<', '/var/lib/extrausers/passwd');
12 my ($login,undef,$uid,$gid,undef,$dir,undef) = split(/:/,$_,7);
13 warn "# $login $uid $gid $dir";
15 my $md5 = "$dir/.md5";
17 warn "ERROR: $login doesn't have $md5: $!";
22 tie %h, "TokyoCabinet::HDB", $md5 || die "ERROR $md5: $!";
24 while( my($k,$v) = each(%h) ) {
27 system 'attr', '-s', 'md5', '-V', $v, "$dir/$k";
29 warn "SKIP $dir/$k\n";