function strrevpos ( $haystack, $needle )
        {
#-k     string  search  parse
#-      Look for the last occurance of $needle in the $stack
#-d     2/11/21  - Added

        $rev_pos = strpos ( strrev($haystack), strrev($needle) );
        if ($rev_pos===false) return false;
        else return strlen($haystack) - $rev_pos - strlen($needle);
        };

?>