-- inarpa4: return the in-addr.arpa address for an IPv4 (JPM)

DELIMITER $$
CREATE FUNCTION inarpa4 (quad CHAR(15)) RETURNS CHAR(128)
BEGIN
     RETURN CONCAT(
       MID(revip4(quad),
           LOCATE('.', revip4(quad)) + 1,
           LENGTH(quad)
       ), '.in-addr.arpa');
END $$
DELIMITER ;