-- ip4octet: return the fourth octet of a dotted-quad (JPM)

DELIMITER $$
CREATE FUNCTION ip4octet (quad CHAR(15)) RETURNS CHAR(15)
BEGIN
     RETURN CONV(RIGHT(HEX(INET_ATON(quad)), 2), 16, 10);
END $$
DELIMITER ;