#!/opt/bin/perl

require "find.pl";

#
# Process passwd file:
#
setpwent;
#
while (($user,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = getpwent)
{
    if (-d "$dir/public")
    {
        &find("$dir/public");
    }
}
#
endpwent;
#
# Done:
#
exit;

sub wanted
{
    if ((-f $name) && ($name =~ m!\.000$!))
    {
        $new = $name;
        $new =~ s!\.000$!!;
        unlink($new);
        rename($name,$new);
        print STDERR "unlink($new)\n";
        print STDERR "renaming '$name' to '$new'.\n";
    }
}