/*
 * The master object is asked if it is ok to shadow object ob. Use
 * previous_object() to find out who is asking.
 *
 * In this example, we allow shadowing as long as the victim object
 * hasn't denied it with a query_prevent_shadow() returning 1.
 */
int     valid_shadow( object ob )
{
    string  dummy;

    return( !ob->query_prevent_shadow( previous_object() ) &&
	    !sscanf( file_name( ob ), "/secure/%s", dummy ) );
}				/* query_allow_shaodw() */