function rstrpos ( $str, $needle, $offset )
        {
#-k     string  search  parse
#-      search backwards for a 1-character needle in haystack, and return its position (-1 if not found)
#-d     2/8/21 - Added

        for ($i=$offset;$i>=0;$i--)
                {
                if ($str[$i] == $needle) return $i;
                }

        return -1;
        }

?>