#!/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!\.html?\.new$!))
    {
        unlink($name);
        print STDERR "unlink($name)\n";
    }
}