+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_Header object definition {{{ */\r
-/**\r
- * Object representation of the HEADER section of a DNS packet\r
- *\r
- * The Net_DNS::Header class contains the values of a DNS packet. It parses\r
- * the header of a DNS packet or can generate the binary data\r
- * representation of the packet. The format of the header is described in\r
- * RFC1035.\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_Header\r
-{\r
- /* class variable definitions {{{ */\r
- /**\r
- * The packet's request id\r
- *\r
- * The request id of the packet represented as a 16 bit integer.\r
- */\r
- var $id;\r
- /**\r
- * The QR bit in a DNS packet header\r
- *\r
- * The QR bit as described in RFC1035. QR is set to 0 for queries, and\r
- * 1 for repsones.\r
- */\r
- var $qr;\r
- /**\r
- * The OPCODE name of this packet.\r
- *\r
- * The string value (name) of the opcode for the DNS packet.\r
- */\r
- var $opcode;\r
- /**\r
- * The AA (authoritative answer) bit in a DNS packet header\r
- *\r
- * The AA bit as described in RFC1035. AA is set to 1 if the answer\r
- * is authoritative. It has no meaning if QR is set to 0.\r
- */\r
- var $aa;\r
- /**\r
- * The TC (truncated) bit in a DNS packet header\r
- *\r
- * This flag is set to 1 if the response was truncated. This flag has\r
- * no meaning in a query packet.\r
- */\r
- var $tc;\r
- /**\r
- * The RD (recursion desired) bit in a DNS packet header\r
- *\r
- * This bit should be set to 1 in a query if recursion is desired by\r
- * the DNS server.\r
- */\r
- var $rd;\r
- /**\r
- * The RA (recursion available) bit in a DNS packet header\r
- *\r
- * This bit is set to 1 by the DNS server if the server is willing to\r
- * perform recursion.\r
- */\r
- var $ra;\r
- /**\r
- * The RCODE name for this packet.\r
- *\r
- * The string value (name) of the rcode for the DNS packet.\r
- */\r
- var $rcode;\r
- /**\r
- * Number of questions contained within the packet\r
- *\r
- * 16bit integer representing the number of questions in the question\r
- * section of the DNS packet.\r
- *\r
- * @var integer $qdcount\r
- * @see Net_DNS_Question class\r
- */\r
- var $qdcount;\r
- /**\r
- * Number of answer RRs contained within the packet\r
- *\r
- * 16bit integer representing the number of answer resource records\r
- * contained in the answer section of the DNS packet.\r
- *\r
- * @var integer $ancount\r
- * @see Net_DNS_RR class\r
- */\r
- var $ancount;\r
- /**\r
- * Number of authority RRs within the packet\r
- *\r
- * 16bit integer representing the number of authority (NS) resource\r
- * records contained in the authority section of the DNS packet.\r
- *\r
- * @var integer $nscount\r
- * @see Net_DNS_RR class\r
- */\r
- var $nscount;\r
- /**\r
- * Number of additional RRs within the packet\r
- *\r
- * 16bit integer representing the number of additional resource records\r
- * contained in the additional section of the DNS packet.\r
- *\r
- * @var integer $arcount\r
- * @see Net_DNS_RR class\r
- */\r
- var $arcount;\r
-\r
- /* }}} */\r
- /* class constructor - Net_DNS_Header($data = "") {{{ */\r
- /**\r
- * Initializes the default values for the Header object.\r
- * \r
- * Builds a header object from either default values, or from a DNS\r
- * packet passed into the constructor as $data\r
- *\r
- * @param string $data A DNS packet of which the header will be parsed.\r
- * @return object Net_DNS_Header\r
- * @access public\r
- */\r
- function Net_DNS_Header($data = '')\r
- {\r
- if ($data != '') {\r
- /*\r
- * The header MUST be at least 12 bytes.\r
- * Passing the full datagram to this constructor\r
- * will examine only the header section of the DNS packet\r
- */\r
- if (strlen($data) < 12)\r
- return false;\r
-\r
- $a = unpack('nid/C2flags/n4counts', $data);\r
- $this->id = $a['id'];\r
- $this->qr = ($a['flags1'] >> 7) & 0x1;\r
- $this->opcode = ($a['flags1'] >> 3) & 0xf;\r
- $this->aa = ($a['flags1'] >> 2) & 0x1;\r
- $this->tc = ($a['flags1'] >> 1) & 0x1;\r
- $this->rd = $a['flags1'] & 0x1;\r
- $this->ra = ($a['flags2'] >> 7) & 0x1;\r
- $this->rcode = $a['flags2'] & 0xf;\r
- $this->qdcount = $a['counts1'];\r
- $this->ancount = $a['counts2'];\r
- $this->nscount = $a['counts3'];\r
- $this->arcount = $a['counts4'];\r
- }\r
- else {\r
- $this->id = Net_DNS_Resolver::nextid();\r
- $this->qr = 0;\r
- $this->opcode = 0;\r
- $this->aa = 0;\r
- $this->tc = 0;\r
- $this->rd = 1;\r
- $this->ra = 0;\r
- $this->rcode = 0;\r
- $this->qdcount = 1;\r
- $this->ancount = 0;\r
- $this->nscount = 0;\r
- $this->arcount = 0;\r
- }\r
-\r
- if (Net_DNS::opcodesbyval($this->opcode)) {\r
- $this->opcode = Net_DNS::opcodesbyval($this->opcode);\r
- }\r
- if (Net_DNS::rcodesbyval($this->rcode)) {\r
- $this->rcode = Net_DNS::rcodesbyval($this->rcode);\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Header::display() {{{ */\r
- /**\r
- * Displays the properties of the header.\r
- *\r
- * Displays the properties of the header.\r
- *\r
- * @access public\r
- */\r
- function display()\r
- {\r
- echo $this->string();\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Header::string() {{{ */\r
- /**\r
- * Returns a formatted string containing the properties of the header.\r
- *\r
- * @return string a formatted string containing the properties of the header.\r
- * @access public\r
- */\r
- function string()\r
- {\r
- $retval = ';; id = ' . $this->id . "\n";\r
- if ($this->opcode == 'UPDATE') {\r
- $retval .= ';; qr = ' . $this->qr . ' ' .\r
- 'opcode = ' . $this->opcode . ' ' .\r
- 'rcode = ' . $this->rcode . "\n";\r
- $retval .= ';; zocount = ' . $this->qdcount . ' ' . \r
- 'prcount = ' . $this->ancount . ' ' .\r
- 'upcount = ' . $this->nscount . ' ' .\r
- 'adcount = ' . $this->arcount . "\n";\r
- } else {\r
- $retval .= ';; qr = ' . $this->qr . ' ' .\r
- 'opcode = ' . $this->opcode . ' ' .\r
- 'aa = ' . $this->aa . ' ' .\r
- 'tc = ' . $this->tc . ' ' .\r
- 'rd = ' . $this->rd . "\n";\r
-\r
- $retval .= ';; ra = ' . $this->ra . ' ' .\r
- 'rcode = ' . $this->rcode . "\n";\r
-\r
- $retval .= ';; qdcount = ' . $this->qdcount . ' ' .\r
- 'ancount = ' . $this->ancount . ' ' .\r
- 'nscount = ' . $this->nscount . ' ' .\r
- 'arcount = ' . $this->arcount . "\n";\r
- }\r
- return $retval;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Header::data() {{{ */\r
- /**\r
- * Returns the binary data containing the properties of the header\r
- *\r
- * Packs the properties of the Header object into a binary string\r
- * suitable for using as the Header section of a DNS packet.\r
- *\r
- * @return string binary representation of the header object\r
- * @access public\r
- */\r
- function data()\r
- {\r
- $opcode = Net_DNS::opcodesbyname($this->opcode);\r
- $rcode = Net_DNS::rcodesbyname($this->rcode);\r
-\r
- $byte2 = ($this->qr << 7)\r
- | ($opcode << 3)\r
- | ($this->aa << 2)\r
- | ($this->tc << 1)\r
- | ($this->rd);\r
-\r
- $byte3 = ($this->ra << 7) | $rcode;\r
-\r
- return pack('nC2n4', $this->id,\r
- $byte2,\r
- $byte3,\r
- $this->qdcount,\r
- $this->ancount,\r
- $this->nscount,\r
- $this->arcount);\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * expandtab on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_Packet object definition {{{ */\r
-/**\r
- * A object represation of a DNS packet (RFC1035)\r
- *\r
- * This object is used to manage a DNS packet. It contains methods for\r
- * DNS packet compression as defined in RFC1035, as well as parsing a DNS\r
- * packet response from a DNS server, or building a DNS packet from the\r
- * instance variables contained in the class.\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_Packet\r
-{\r
- /* class variable definitions {{{ */\r
- /**\r
- * debugging flag\r
- *\r
- * If set to true (non-zero), debugging code will be displayed as the\r
- * packet is parsed.\r
- *\r
- * @var boolean $debug\r
- * @access public\r
- */\r
- var $debug;\r
- /**\r
- * A packet Header object.\r
- *\r
- * An object of type Net_DNS_Header which contains the header\r
- * information of the packet.\r
- *\r
- * @var object Net_DNS_Header $header\r
- * @access public\r
- */\r
- var $header;\r
- /**\r
- * A hash of compressed labels\r
- *\r
- * A list of all labels which have been compressed in the DNS packet\r
- * and the location offset of the label within the packet.\r
- *\r
- * @var array $compnames\r
- */\r
- var $compnames;\r
- /**\r
- * The origin of the packet, if the packet is a server response.\r
- *\r
- * This contains a string containing the IP address of the name server\r
- * from which the answer was given.\r
- *\r
- * @var string $answerfrom\r
- * @access public\r
- */\r
- var $answerfrom;\r
- /**\r
- * The size of the answer packet, if the packet is a server response.\r
- *\r
- * This contains a integer containing the size of the DNS packet the\r
- * server responded with if this packet was received by a DNS server\r
- * using the query() method.\r
- *\r
- * @var string $answersize\r
- * @access public\r
- */\r
- var $answersize;\r
- /**\r
- * An array of Net_DNS_Question objects\r
- *\r
- * Contains all of the questions within the packet. Each question is\r
- * stored as an object of type Net_DNS_Question.\r
- *\r
- * @var array $question\r
- * @access public\r
- */\r
- var $question;\r
- /**\r
- * An array of Net_DNS_RR ANSWER objects\r
- *\r
- * Contains all of the answer RRs within the packet. Each answer is\r
- * stored as an object of type Net_DNS_RR.\r
- *\r
- * @var array $answer\r
- * @access public\r
- */\r
- var $answer;\r
- /**\r
- * An array of Net_DNS_RR AUTHORITY objects\r
- *\r
- * Contains all of the authority RRs within the packet. Each authority is\r
- * stored as an object of type Net_DNS_RR.\r
- *\r
- * @var array $authority\r
- * @access public\r
- */\r
- var $authority;\r
- /**\r
- * An array of Net_DNS_RR ADDITIONAL objects\r
- *\r
- * Contains all of the additional RRs within the packet. Each additional is\r
- * stored as an object of type Net_DNS_RR.\r
- *\r
- * @var array $additional\r
- * @access public\r
- */\r
- var $additional;\r
-\r
- /* }}} */\r
- /* class constructor - Net_DNS_Packet($debug = false) {{{ */\r
- /*\r
- * unfortunately (or fortunately), we can't follow the same\r
- * silly method for determining if name is a hostname or a packet\r
- * stream in PHP, since there is no ref() function. So we're going\r
- * to define a new method called parse to deal with this\r
- * circumstance and another method called buildQuestion to build a question.\r
- * I like it better that way anyway.\r
- */\r
- /**\r
- * Initalizes a Net_DNS_Packet object\r
- *\r
- * @param boolean $debug Turns debugging on or off\r
- */\r
- function Net_DNS_Packet($debug = false)\r
- {\r
- $this->debug = $debug;\r
- $this->compnames = array();\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Packet::buildQuestion($name, $type = "A", $class = "IN") {{{ */\r
- /**\r
- * Adds a DNS question to the DNS packet\r
- *\r
- * @param string $name The name of the record to query\r
- * @param string $type The type of record to query\r
- * @param string $class The class of record to query\r
- * @see Net_DNS::typesbyname(), Net_DNS::classesbyname()\r
- */\r
- function buildQuestion($name, $type = 'A', $class = 'IN')\r
- {\r
- $this->header = new Net_DNS_Header();\r
- $this->header->qdcount = 1;\r
- $this->question[0] = new Net_DNS_Question($name, $type, $class);\r
- $this->answer = null;\r
- $this->authority = null;\r
- $this->additional = null;\r
- /* Do not print question packet\r
- if ($this->debug) {\r
- $this->display();\r
- }\r
- */\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Packet::parse($data) {{{ */\r
- /**\r
- * Parses a DNS packet returned by a DNS server\r
- *\r
- * Parses a complete DNS packet and builds an object hierarchy\r
- * containing all of the parts of the packet:\r
- * <ul>\r
- * <li>HEADER\r
- * <li>QUESTION\r
- * <li>ANSWER || PREREQUISITE\r
- * <li>ADDITIONAL || UPDATE\r
- * <li>AUTHORITY\r
- * </ul>\r
- *\r
- * @param string $data A binary string containing a DNS packet\r
- * @return boolean true on success, null on parser error\r
- */\r
- function parse($data)\r
- {\r
- if ($this->debug) {\r
- echo ';; HEADER SECTION' . "\n";\r
- }\r
-\r
- $this->header = new Net_DNS_Header($data);\r
-\r
- if ($this->debug) {\r
- $this->header->display();\r
- }\r
-\r
- /*\r
- * Print and parse the QUESTION section of the packet\r
- */\r
- if ($this->debug) {\r
- echo "\n";\r
- $section = ($this->header->opcode == 'UPDATE') ? 'ZONE' : 'QUESTION';\r
- echo ";; $section SECTION (" . $this->header->qdcount . ' record' .\r
- ($this->header->qdcount == 1 ? '' : 's') . ")\n";\r
- }\r
-\r
- $offset = 12;\r
-\r
- $this->question = array();\r
- for ($ctr = 0; $ctr < $this->header->qdcount; $ctr++) {\r
- list($qobj, $offset) = $this->parse_question($data, $offset);\r
- if (is_null($qobj)) {\r
- return null;\r
- }\r
-\r
- $this->question[count($this->question)] = $qobj;\r
- if ($this->debug) {\r
- echo ";;\n;";\r
- $qobj->display();\r
- }\r
- }\r
-\r
- /*\r
- * Print and parse the PREREQUISITE or ANSWER section of the packet\r
- */\r
- if ($this->debug) {\r
- echo "\n";\r
- $section = ($this->header->opcode == 'UPDATE') ? 'PREREQUISITE' :'ANSWER';\r
- echo ";; $section SECTION (" .\r
- $this->header->ancount . ' record' .\r
- (($this->header->ancount == 1) ? '' : 's') .\r
- ")\n";\r
- }\r
-\r
- $this->answer = array();\r
- for ($ctr = 0; $ctr < $this->header->ancount; $ctr++) {\r
- list($rrobj, $offset) = $this->parse_rr($data, $offset);\r
-\r
- if (is_null($rrobj)) {\r
- return null;\r
- }\r
- array_push($this->answer, $rrobj);\r
- if ($this->debug) {\r
- $rrobj->display();\r
- }\r
- }\r
-\r
- /*\r
- * Print and parse the UPDATE or AUTHORITY section of the packet\r
- */\r
- if ($this->debug) {\r
- echo "\n";\r
- $section = ($this->header->opcode == 'UPDATE') ? 'UPDATE' : 'AUTHORITY';\r
- echo ";; $section SECTION (" .\r
- $this->header->nscount . ' record' .\r
- (($this->header->nscount == 1) ? '' : 's') .\r
- ")\n";\r
- }\r
-\r
- $this->authority = array();\r
- for ($ctr = 0; $ctr < $this->header->nscount; $ctr++) {\r
- list($rrobj, $offset) = $this->parse_rr($data, $offset);\r
-\r
- if (is_null($rrobj)) {\r
- return null;\r
- }\r
- array_push($this->authority, $rrobj);\r
- if ($this->debug) {\r
- $rrobj->display();\r
- }\r
- }\r
-\r
- /*\r
- * Print and parse the ADDITIONAL section of the packet\r
- */\r
- if ($this->debug) {\r
- echo "\n";\r
- echo ';; ADDITIONAL SECTION (' .\r
- $this->header->arcount . ' record' .\r
- (($this->header->arcount == 1) ? '' : 's') .\r
- ")\n";\r
- }\r
-\r
- $this->additional = array();\r
- for ($ctr = 0; $ctr < $this->header->arcount; $ctr++) {\r
- list($rrobj, $offset) = $this->parse_rr($data, $offset);\r
-\r
- if (is_null($rrobj)) {\r
- return null;\r
- }\r
- array_push($this->additional, $rrobj);\r
- if ($this->debug) {\r
- $rrobj->display();\r
- }\r
- }\r
-\r
- return true;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Packet::data() {{{*/\r
- /**\r
- * Build a packet from a Packet object hierarchy\r
- *\r
- * Builds a valid DNS packet suitable for sending to a DNS server or\r
- * resolver client containing all of the data in the packet hierarchy.\r
- *\r
- * @return string A binary string containing a DNS Packet\r
- */\r
- function data()\r
- {\r
- $data = $this->header->data();\r
-\r
- for ($ctr = 0; $ctr < $this->header->qdcount; $ctr++) {\r
- $data .= $this->question[$ctr]->data($this, strlen($data));\r
- }\r
-\r
- for ($ctr = 0; $ctr < $this->header->ancount; $ctr++) {\r
- $data .= $this->answer[$ctr]->data($this, strlen($data));\r
- }\r
-\r
- for ($ctr = 0; $ctr < $this->header->nscount; $ctr++) {\r
- $data .= $this->authority[$ctr]->data($this, strlen($data));\r
- }\r
-\r
- for ($ctr = 0; $ctr < $this->header->arcount; $ctr++) {\r
- $data .= $this->additional[$ctr]->data($this, strlen($data));\r
- }\r
-\r
- return $data;\r
- }\r
-\r
- /*}}}*/\r
- /* Net_DNS_Packet::dn_comp($name, $offset) {{{*/\r
- /**\r
- * DNS packet compression method\r
- *\r
- * Returns a domain name compressed for a particular packet object, to\r
- * be stored beginning at the given offset within the packet data. The\r
- * name will be added to a running list of compressed domain names for\r
- * future use.\r
- *\r
- * @param string $name The name of the label to compress\r
- * @param integer $offset The location offset in the packet to where\r
- * the label will be stored.\r
- * @return string $compname A binary string containing the compressed\r
- * label.\r
- * @see Net_DNS_Packet::dn_expand()\r
- */\r
- function dn_comp($name, $offset)\r
- {\r
- $names = explode('.', $name);\r
- $compname = '';\r
- while (count($names)) {\r
- $dname = join('.', $names);\r
- if (isset($this->compnames[$dname])) {\r
- $compname .= pack('n', 0xc000 | $this->compnames[$dname]);\r
- break;\r
- }\r
-\r
- $this->compnames[$dname] = $offset;\r
- $first = array_shift($names);\r
- $length = strlen($first);\r
- $compname .= pack('Ca*', $length, $first);\r
- $offset += $length + 1;\r
- }\r
- if (! count($names)) {\r
- $compname .= pack('C', 0);\r
- }\r
- return $compname;\r
- }\r
-\r
- /*}}}*/\r
- /* Net_DNS_Packet::dn_expand($packet, $offset) {{{ */\r
- /**\r
- * DNS packet decompression method\r
- *\r
- * Expands the domain name stored at a particular location in a DNS\r
- * packet. The first argument is a variable containing the packet\r
- * data. The second argument is the offset within the packet where\r
- * the (possibly) compressed domain name is stored.\r
- *\r
- * @param string $packet The packet data\r
- * @param integer $offset The location offset in the packet of the\r
- * label to decompress.\r
- * @return array Returns a list of type array($name, $offset) where\r
- * $name is the name of the label which was decompressed\r
- * and $offset is the offset of the next field in the\r
- * packet. Returns array(null, null) on error\r
- */\r
- function dn_expand($packet, $offset)\r
- {\r
- $packetlen = strlen($packet);\r
- $int16sz = 2;\r
- $name = '';\r
- while (1) {\r
- if ($packetlen < ($offset + 1)) {\r
- return array(null, null);\r
- }\r
-\r
- $a = unpack("@$offset/Cchar", $packet);\r
- $len = $a['char'];\r
-\r
- if ($len == 0) {\r
- $offset++;\r
- break;\r
- } else if (($len & 0xc0) == 0xc0) {\r
- if ($packetlen < ($offset + $int16sz)) {\r
- return array(null, null);\r
- }\r
- $ptr = unpack("@$offset/ni", $packet);\r
- $ptr = $ptr['i'];\r
- $ptr = $ptr & 0x3fff;\r
- $name2 = Net_DNS_Packet::dn_expand($packet, $ptr);\r
-\r
- if (is_null($name2[0])) {\r
- return array(null, null);\r
- }\r
- $name .= $name2[0];\r
- $offset += $int16sz;\r
- break;\r
- } else {\r
- $offset++;\r
-\r
- if ($packetlen < ($offset + $len)) {\r
- return array(null, null);\r
- }\r
-\r
- $elem = substr($packet, $offset, $len);\r
- $name .= $elem . '.';\r
- $offset += $len;\r
- }\r
- }\r
- $name = ereg_replace('\.$', '', $name);\r
- return array($name, $offset);\r
- }\r
-\r
- /*}}}*/\r
- /* Net_DNS_Packet::label_extract($packet, $offset) {{{ */\r
- /**\r
- * DNS packet decompression method\r
- *\r
- * Extracts the label stored at a particular location in a DNS\r
- * packet. The first argument is a variable containing the packet\r
- * data. The second argument is the offset within the packet where\r
- * the (possibly) compressed domain name is stored.\r
- *\r
- * @param string $packet The packet data\r
- * @param integer $offset The location offset in the packet of the\r
- * label to extract.\r
- * @return array Returns a list of type array($name, $offset) where\r
- * $name is the name of the label which was decompressed\r
- * and $offset is the offset of the next field in the\r
- * packet. Returns array(null, null) on error\r
- */\r
- function label_extract($packet, $offset)\r
- {\r
- $packetlen = strlen($packet);\r
- $name = '';\r
- if ($packetlen < ($offset + 1)) {\r
- return array(null, null);\r
- }\r
-\r
- $a = unpack("@$offset/Cchar", $packet);\r
- $len = $a['char'];\r
- $offset++;\r
-\r
- if ($len + $offset > $packetlen) {\r
- $name = substr($packet, $offset);\r
- $offset = $packetlen;\r
- } else {\r
- $name = substr($packet, $offset, $len);\r
- $offset += $len;\r
- }\r
- return array($name, $offset);\r
- }\r
-\r
- /*}}}*/\r
- /* Net_DNS_Packet::parse_question($data, $offset) {{{ */\r
- /**\r
- * Parses the question section of a packet\r
- *\r
- * Examines a DNS packet at the specified offset and parses the data\r
- * of the QUESTION section.\r
- *\r
- * @param string $data The packet data returned from the server\r
- * @param integer $offset The location offset of the start of the\r
- * question section.\r
- * @return array An array of type array($q, $offset) where $q\r
- * is a Net_DNS_Question object and $offset is the\r
- * location of the next section of the packet which\r
- * needs to be parsed.\r
- */\r
- function parse_question($data, $offset)\r
- {\r
- list($qname, $offset) = $this->dn_expand($data, $offset);\r
- if (is_null($qname)) {\r
- return array(null, null);\r
- }\r
-\r
- if (strlen($data) < ($offset + 2 * 2)) {\r
- return array(null, null);\r
- }\r
-\r
- $q = unpack("@$offset/n2int", $data);\r
- $qtype = $q['int1'];\r
- $qclass = $q['int2'];\r
- $offset += 2 * 2;\r
-\r
- $qtype = Net_DNS::typesbyval($qtype);\r
- $qclass = Net_DNS::classesbyval($qclass);\r
-\r
- $q = new Net_DNS_Question($qname, $qtype, $qclass);\r
- return array($q, $offset);\r
- }\r
-\r
- /*}}}*/\r
- /* Net_DNS_Packet::parse_rr($data, $offset) {{{ */\r
- /**\r
- * Parses a resource record section of a packet\r
- *\r
- * Examines a DNS packet at the specified offset and parses the data\r
- * of a section which contains RRs (ANSWER, AUTHORITY, ADDITIONAL).\r
- *\r
- * @param string $data The packet data returned from the server\r
- * @param integer $offset The location offset of the start of the resource\r
- * record section.\r
- * @return array An array of type array($rr, $offset) where $rr\r
- * is a Net_DNS_RR object and $offset is the\r
- * location of the next section of the packet which\r
- * needs to be parsed.\r
- */\r
- function parse_rr($data, $offset)\r
- {\r
- list($name, $offset) = $this->dn_expand($data, $offset);\r
- if ($name === null) {\r
- return array(null, null);\r
- }\r
-\r
- if (strlen($data) < ($offset + 10)) {\r
- return array(null, null);\r
- }\r
-\r
- $a = unpack("@$offset/n2tc/Nttl/nrdlength", $data);\r
- $type = $a['tc1'];\r
- $class = $a['tc2'];\r
- $ttl = $a['ttl'];\r
- $rdlength = $a['rdlength'];\r
-\r
- $type = Net_DNS::typesbyval($type);\r
- $class = Net_DNS::classesbyval($class);\r
-\r
- $offset += 10;\r
- if (strlen($data) < ($offset + $rdlength)) {\r
- return array(null, null);\r
- }\r
-\r
- $rrobj = &Net_DNS_RR::factory(array($name,\r
- $type,\r
- $class,\r
- $ttl,\r
- $rdlength,\r
- $data,\r
- $offset));\r
-\r
- if (is_null($rrobj)) {\r
- return array(null, null);\r
- }\r
-\r
- $offset += $rdlength;\r
-\r
- return array($rrobj, $offset);\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Packet::display() {{{ */\r
- /**\r
- * Prints out the packet in a human readable formatted string\r
- */\r
- function display()\r
- {\r
- echo $this->string();\r
- }\r
-\r
- /*}}}*/\r
- /* Net_DNS_Packet::string() {{{ */\r
- /**\r
- * Builds a human readable formatted string representing a packet\r
- */\r
- function string()\r
- {\r
- $retval = '';\r
- if ($this->answerfrom) {\r
- $retval .= ';; Answer received from ' . $this->answerfrom . '(' .\r
- $this->answersize . " bytes)\n;;\n";\r
- }\r
-\r
- $retval .= ";; HEADER SECTION\n";\r
- $retval .= $this->header->string();\r
- $retval .= "\n";\r
-\r
- $section = ($this->header->opcode == 'UPDATE') ? 'ZONE' : 'QUESTION';\r
- $retval .= ";; $section SECTION (" . $this->header->qdcount .\r
- ' record' . ($this->header->qdcount == 1 ? '' : 's') .\r
- ")\n";\r
-\r
- foreach ($this->question as $qr) {\r
- $retval .= ';; ' . $qr->string() . "\n";\r
- }\r
-\r
- $section = ($this->header->opcode == 'UPDATE') ? 'PREREQUISITE' : 'ANSWER';\r
- $retval .= "\n;; $section SECTION (" . $this->header->ancount .\r
- ' record' . ($this->header->ancount == 1 ? '' : 's') .\r
- ")\n";\r
-\r
- if (is_array($this->answer)) {\r
- foreach ($this->answer as $ans) {\r
- $retval .= ';; ' . $ans->string() . "\n";\r
- }\r
- }\r
-\r
- $section = ($this->header->opcode == 'UPDATE') ? 'UPDATE' : 'AUTHORITY';\r
- $retval .= "\n;; $section SECTION (" . $this->header->nscount .\r
- ' record' . ($this->header->nscount == 1 ? '' : 's') .\r
- ")\n";\r
-\r
- if (is_array($this->authority)) {\r
- foreach ($this->authority as $auth) {\r
- $retval .= ';; ' . $auth->string() . "\n";\r
- }\r
- }\r
-\r
- $retval .= "\n;; ADDITIONAL SECTION (" . $this->header->arcount .\r
- ' record' . ($this->header->arcount == 1 ? '' : 's') .\r
- ")\n";\r
-\r
- if (is_array($this->additional)) {\r
- foreach ($this->additional as $addl) {\r
- $retval .= ';; ' . $addl->string() . "\n";\r
- }\r
- }\r
-\r
- $retval .= "\n\n";\r
- return $retval;\r
- }\r
-\r
- /*}}}*/\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_Question object definition {{{ */\r
-/**\r
- * Builds or parses the QUESTION section of a DNS packet\r
- *\r
- * Builds or parses the QUESTION section of a DNS packet\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_Question\r
-{\r
- /* class variable definitions {{{ */\r
- var $qname = null;\r
- var $qtype = null;\r
- var $qclass = null;\r
-\r
- /* }}} */\r
- /* class constructor Net_DNS_Question($qname, $qtype, $qclass) {{{ */\r
- function Net_DNS_Question($qname, $qtype, $qclass)\r
- {\r
- $qtype = !is_null($qtype) ? strtoupper($qtype) : 'ANY';\r
- $qclass = !is_null($qclass) ? strtoupper($qclass) : 'ANY';\r
-\r
- // Check if the caller has the type and class reversed.\r
- // We are not that kind for unknown types.... :-)\r
- if ( ( is_null(Net_DNS::typesbyname($qtype)) ||\r
- is_null(Net_DNS::classesbyname($qtype)) )\r
- && !is_null(Net_DNS::classesbyname($qclass))\r
- && !is_null(Net_DNS::typesbyname($qclass)))\r
- {\r
- list($qtype, $qclass) = array($qclass, $qtype);\r
- }\r
- $qname = preg_replace(array('/^\.+/', '/\.+$/'), '', $qname);\r
- $this->qname = $qname;\r
- $this->qtype = $qtype;\r
- $this->qclass = $qclass;\r
- }\r
- /* }}} */\r
- /* Net_DNS_Question::display() {{{*/\r
- function display()\r
- {\r
- echo $this->string() . "\n";\r
- }\r
-\r
- /*}}}*/\r
- /* Net_DNS_Question::string() {{{*/\r
- function string()\r
- {\r
- return $this->qname . ".\t" . $this->qclass . "\t" . $this->qtype;\r
- }\r
-\r
- /*}}}*/\r
- /* Net_DNS_Question::data(&$packet, $offset) {{{*/\r
- function data($packet, $offset)\r
- {\r
- $data = $packet->dn_comp($this->qname, $offset);\r
- $data .= pack('n', Net_DNS::typesbyname(strtoupper($this->qtype)));\r
- $data .= pack('n', Net_DNS::classesbyname(strtoupper($this->qclass)));\r
- return $data;\r
- }\r
-\r
- /*}}}*/\r
-}\r
-/* }}} */\r
-/* VIM settings{{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Include files {{{ */\r
-require_once("Net/DNS/RR/A.php");\r
-require_once("Net/DNS/RR/AAAA.php");\r
-require_once("Net/DNS/RR/NS.php");\r
-require_once("Net/DNS/RR/CNAME.php");\r
-require_once("Net/DNS/RR/PTR.php");\r
-require_once("Net/DNS/RR/SOA.php");\r
-require_once("Net/DNS/RR/MX.php");\r
-require_once("Net/DNS/RR/TSIG.php");\r
-require_once("Net/DNS/RR/TXT.php");\r
-require_once("Net/DNS/RR/HINFO.php");\r
-require_once("Net/DNS/RR/SRV.php");\r
-require_once("Net/DNS/RR/NAPTR.php");\r
-/* }}} */\r
-/* Net_DNS_RR object definition {{{ */\r
-/**\r
- * Resource Record object definition\r
- *\r
- * Builds or parses resource record sections of the DNS packet including\r
- * the answer, authority, and additional sections of the packet.\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- /* }}} */\r
-\r
- /*\r
- * Use Net_DNS_RR::factory() instead\r
- *\r
- * @access private\r
- */\r
- /* class constructor - Net_DNS_RR($rrdata) {{{ */\r
- function Net_DNS_RR($rrdata)\r
- {\r
- if ($rrdata != 'getRR') { //BC check/warning remove later\r
- trigger_error("Please use Net_DNS_RR::factory() instead");\r
- }\r
- }\r
-\r
- /*\r
- * Returns an RR object, use this instead of constructor\r
- *\r
- * @param mixed $rr_rdata Options as string, array or data\r
- * @return object Net_DNS_RR or Net_DNS_RR_<type>\r
- * @access public\r
- * @see Net_DNS_RR::new_from_array Net_DNS_RR::new_from_data Net_DNS_RR::new_from_string\r
- */\r
- function &factory($rrdata, $update_type = '')\r
- {\r
- if (is_string($rrdata)) {\r
- $rr = &Net_DNS_RR::new_from_string($rrdata, $update_type);\r
- } elseif (count($rrdata) == 7) {\r
- list($name, $rrtype, $rrclass, $ttl, $rdlength, $data, $offset) = $rrdata;\r
- $rr = &Net_DNS_RR::new_from_data($name, $rrtype, $rrclass, $ttl, $rdlength, $data, $offset);\r
- } else {\r
- $rr = &Net_DNS_RR::new_from_array($rrdata);\r
- }\r
- return $rr;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR::new_from_data($name, $ttl, $rrtype, $rrclass, $rdlength, $data, $offset) {{{ */\r
- function &new_from_data($name, $rrtype, $rrclass, $ttl, $rdlength, $data, $offset)\r
- {\r
- $rr = &new Net_DNS_RR('getRR');\r
- $rr->name = $name;\r
- $rr->type = $rrtype;\r
- $rr->class = $rrclass;\r
- $rr->ttl = $ttl;\r
- $rr->rdlength = $rdlength;\r
- $rr->rdata = substr($data, $offset, $rdlength);\r
- if (class_exists('Net_DNS_RR_' . $rrtype)) {\r
- $scn = 'Net_DNS_RR_' . $rrtype;\r
- $rr = new $scn($rr, $data, $offset);\r
- }\r
- return $rr;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR::new_from_string($rrstring, $update_type = '') {{{ */\r
- function &new_from_string($rrstring, $update_type = '')\r
- {\r
- $rr = &new Net_DNS_RR('getRR');\r
- $ttl = 0;\r
- $parts = preg_split('/[\s]+/', $rrstring);\r
- while (count($parts) > 0) {\r
- $s = array_shift($parts);\r
- if (!isset($name)) {\r
- $name = ereg_replace('\.+$', '', $s);\r
- } else if (preg_match('/^\d+$/', $s)) {\r
- $ttl = $s;\r
- } else if (!isset($rrclass) && ! is_null(Net_DNS::classesbyname(strtoupper($s)))) {\r
- $rrclass = strtoupper($s);\r
- $rdata = join(' ', $parts);\r
- } else if (! is_null(Net_DNS::typesbyname(strtoupper($s)))) {\r
- $rrtype = strtoupper($s);\r
- $rdata = join(' ', $parts);\r
- break;\r
- } else {\r
- break;\r
- }\r
- }\r
-\r
- /*\r
- * Do we need to do this?\r
- */\r
- $rdata = trim(chop($rdata));\r
-\r
- if (! strlen($rrtype) && strlen($rrclass) && $rrclass == 'ANY') {\r
- $rrtype = $rrclass;\r
- $rrclass = 'IN';\r
- } else if (! isset($rrclass)) {\r
- $rrclass = 'IN';\r
- }\r
-\r
- if (! strlen($rrtype)) {\r
- $rrtype = 'ANY';\r
- }\r
-\r
- if (strlen($update_type)) {\r
- $update_type = strtolower($update_type);\r
- if ($update_type == 'yxrrset') {\r
- $ttl = 0;\r
- if (! strlen($rdata)) {\r
- $rrclass = 'ANY';\r
- }\r
- } else if ($update_type == 'nxrrset') {\r
- $ttl = 0;\r
- $rrclass = 'NONE';\r
- $rdata = '';\r
- } else if ($update_type == 'yxdomain') {\r
- $ttl = 0;\r
- $rrclass = 'ANY';\r
- $rrtype = 'ANY';\r
- $rdata = '';\r
- } else if ($update_type == 'nxdomain') {\r
- $ttl = 0;\r
- $rrclass = 'NONE';\r
- $rrtype = 'ANY';\r
- $rdata = '';\r
- } else if (preg_match('/^(rr_)?add$/', $update_type)) {\r
- $update_type = 'add';\r
- if (! $ttl) {\r
- $ttl = 86400;\r
- }\r
- } else if (preg_match('/^(rr_)?del(ete)?$/', $update_type)) {\r
- $update_type = 'del';\r
- $ttl = 0;\r
- $rrclass = $rdata ? 'NONE' : 'ANY';\r
- }\r
- }\r
-\r
- if (strlen($rrtype)) {\r
- $rr->name = $name;\r
- $rr->type = $rrtype;\r
- $rr->class = $rrclass;\r
- $rr->ttl = $ttl;\r
- $rr->rdlength = 0;\r
- $rr->rdata = '';\r
-\r
- if (class_exists('Net_DNS_RR_' . $rrtype)) {\r
- $scn = 'Net_DNS_RR_' . $rrtype;\r
- return new $scn($rr, $rdata);\r
- } else {\r
- return $rr;\r
- }\r
- } else {\r
- return null;\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR::new_from_array($rrarray) {{{ */\r
- function &new_from_array($rrarray)\r
- {\r
- $rr = &new Net_DNS_RR('getRR');\r
- foreach ($rrarray as $k => $v) {\r
- $rr->{strtolower($k)} = $v;\r
- }\r
-\r
- if (! strlen($rr->name)) {\r
- return null;\r
- }\r
- if (! strlen($rr->type)){\r
- return null;\r
- }\r
- if (! $rr->ttl) {\r
- $rr->ttl = 0;\r
- }\r
- if (! strlen($rr->class)) {\r
- $rr->class = 'IN';\r
- }\r
- if (strlen($rr->rdata)) {\r
- $rr->rdlength = strlen($rr->rdata);\r
- }\r
- if (class_exists('Net_DNS_RR_' . $rr->rrtype)) {\r
- $scn = 'Net_DNS_RR_' . $rr->rrtype;\r
- return new $scn($rr, $rr->rdata);\r
- } else {\r
- return $rr;\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR::display() {{{ */\r
- function display()\r
- {\r
- echo $this->string() . "\n";\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR::string() {{{ */\r
- function string()\r
- {\r
- return $this->name . ".\t" . (strlen($this->name) < 16 ? "\t" : '') .\r
- $this->ttl . "\t" .\r
- $this->class. "\t" .\r
- $this->type . "\t" .\r
- $this->rdatastr();\r
-\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if ($this->rdlength) {\r
- return '; rdlength = ' . $this->rdlength;\r
- }\r
- return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR::rdata() {{{ */\r
- function rdata(&$packetORrdata, $offset = '')\r
- {\r
- if ($offset) {\r
- return $this->rr_rdata($packetORrdata, $offset);\r
- } else if (strlen($this->rdata)) {\r
- return $this->rdata;\r
- } else {\r
- return null;\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata(&$packet, $offset)\r
- {\r
- return (strlen($this->rdata) ? $this->rdata : '');\r
- }\r
- /* }}} */\r
- /* Net_DNS_RR::data() {{{ */\r
- function data(&$packet, $offset)\r
- {\r
- $data = $packet->dn_comp($this->name, $offset);\r
- $data .= pack('n', Net_DNS::typesbyname(strtoupper($this->type)));\r
- $data .= pack('n', Net_DNS::classesbyname(strtoupper($this->class)));\r
- $data .= pack('N', $this->ttl);\r
-\r
- $offset += strlen($data) + 2; // The 2 extra bytes are for rdlength\r
-\r
- $rdata = $this->rdata($packet, $offset);\r
- $data .= pack('n', strlen($rdata));\r
- $data .= $rdata;\r
-\r
- return $data;\r
- }\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-\r
-/* Net_DNS_RR_A object definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>A</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_A extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $address;\r
- /* }}} */\r
- /* class constructor - Net_DNS_RR_A(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_A(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- /*\r
- * We don't have inet_ntoa in PHP?\r
- */\r
- $aparts = unpack('C4b', $this->rdata);\r
- $addr = $aparts['b1'] . '.' .\r
- $aparts['b2'] . '.' .\r
- $aparts['b3'] . '.' .\r
- $aparts['b4'];\r
- $this->address = $addr;\r
- }\r
- } else {\r
- if (strlen($data) && ereg("([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)[ \t]*$", $data, $regs)) {\r
- if (($regs[1] >= 0 && $regs[1] <= 255) &&\r
- ($regs[2] >= 0 && $regs[2] <= 255) &&\r
- ($regs[3] >= 0 && $regs[3] <= 255) &&\r
- ($regs[4] >= 0 && $regs[4] <= 255)) {\r
- $this->address = $regs[1] . '.' . $regs[2] . '.' . $regs[3] . '.' .$regs[4];\r
- }\r
- }\r
- } \r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_A::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if (strlen($this->address)) {\r
- return $this->address;\r
- }\r
- return '; no data';\r
- }\r
- /* }}} */\r
- /* Net_DNS_RR_A::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- $aparts = split('\.', $this->address);\r
- if (count($aparts) == 4) {\r
- return pack('c4', $aparts[0], $aparts[1], $aparts[2], $aparts[3]);\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-\r
-/* Net_DNS_RR_AAAA object definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>AAAA</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_AAAA extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $address;\r
-\r
- /* }}} */\r
- /* class constructor - Net_DNS_RR_AAAA(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_AAAA(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- $this->address = Net_DNS_RR_AAAA::ipv6_decompress(substr($this->rdata, 0, $this->rdlength));\r
- } else {\r
- if (strlen($data)) {\r
- if (count($adata = explode(':', $data, 8)) >= 3) {\r
- foreach($adata as $addr)\r
- if (!preg_match('/^[0-9A-F]{0,4}$/i', $addr)) return;\r
- $this->address = trim($data);\r
- }\r
- }\r
- } \r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_AAAA::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if (strlen($this->address)) {\r
- return $this->address;\r
- }\r
- return '; no data';\r
- }\r
- /* }}} */\r
- /* Net_DNS_RR_AAAA::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- return Net_DNS_RR_AAAA::ipv6_compress($this->address);\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_AAAA::ipv6_compress($addr) {{{ */\r
- function ipv6_compress($addr)\r
- {\r
- $numparts = count(explode(':', $addr));\r
- if ($numparts < 3 || $numparts > 8 ||\r
- !preg_match('/^([0-9A-F]{0,4}:){0,7}(:[0-9A-F]{0,4}){0,7}$/i', $addr)) {\r
- /* Non-sensical IPv6 address */\r
- return pack('n8', 0, 0, 0, 0, 0, 0, 0, 0);\r
- }\r
- if (strpos($addr, '::') !== false) {\r
- /* First we have to normalize the address, turn :: into :0:0:0:0: */\r
- $filler = str_repeat(':0', 9 - $numparts) . ':';\r
- if (substr($addr, 0, 2) == '::') {\r
- $filler = "0$filler";\r
- }\r
- if (substr($addr, -2, 2) == '::') {\r
- $filler .= '0';\r
- }\r
- $addr = str_replace('::', $filler, $addr);\r
- }\r
- $aparts = explode(':', $addr);\r
- return pack('n8', hexdec($aparts[0]), hexdec($aparts[1]), hexdec($aparts[2]), hexdec($aparts[3]),\r
- hexdec($aparts[4]), hexdec($aparts[5]), hexdec($aparts[6]), hexdec($aparts[7]));\r
- }\r
- /* }}} */\r
-\r
- /* Net_DNS_RR_AAAA::ipv6_decompress($pack) {{{ */\r
- function ipv6_decompress($pack)\r
- {\r
- if (strlen($pack) != 16) {\r
- /* Must be 8 shorts long */\r
- return '::';\r
- }\r
- $a = unpack('n8', $pack);\r
- $addr = vsprintf("%x:%x:%x:%x:%x:%x:%x:%x", $a);\r
- /* Shorthand the first :0:0: set into a :: */\r
- /* TODO: Make this is a single replacement pattern */\r
- if (substr($addr, -4) == ':0:0') {\r
- return preg_replace('/((:0){2,})$/', '::', $addr);\r
- } elseif (substr($addr, 0, 4) == '0:0:') {\r
- return '0:0:'. substr($addr, 4);\r
- } else {\r
- return preg_replace('/(:(0:){2,})/', '::', $addr);\r
- }\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_CNAME definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>CNAME</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_CNAME extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $cname;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_CNAME(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- list($cname, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
- $this->cname = $cname;\r
- }\r
- } else {\r
- $this->cname = ereg_replace("[ \t]+(.+)[\. \t]*$", '\\1', $data);\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_CNAME::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if (strlen($this->cname)) {\r
- return $this->cname . '.';\r
- }\r
- return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_CNAME::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if (strlen($this->cname)) {\r
- return $packet->dn_comp($this->cname, $offset);\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_HINFO definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>HINFO</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_HINFO extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $cpu;\r
- var $os;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_HINFO(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- list($cpu, $offset) = Net_DNS_Packet::label_extract($data, $offset);\r
- list($os, $offset) = Net_DNS_Packet::label_extract($data, $offset);\r
-\r
- $this->cpu = $cpu;\r
- $this->os = $os;\r
- }\r
- } else {\r
- $data = str_replace('\\\\', chr(1) . chr(1), $data); /* disguise escaped backslash */\r
- $data = str_replace('\\"', chr(2) . chr(2), $data); /* disguise \" */\r
-\r
- ereg('("[^"]*"|[^ \t]*)[ \t]+("[^"]*"|[^ \t]*)[ \t]*$', $data, $regs);\r
- foreach($regs as $idx => $value) {\r
- $value = str_replace(chr(2) . chr(2), '\\"', $value);\r
- $value = str_replace(chr(1) . chr(1), '\\\\', $value);\r
- $regs[$idx] = stripslashes($value);\r
- }\r
-\r
- $this->cpu = $regs[1];\r
- $this->os = $regs[2];\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_HINFO::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if ($this->text) {\r
- return '"' . addslashes($this->cpu) . '" "' . addslashes($this->os) . '"';\r
- } else return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_HINFO::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if ($this->text) {\r
- $rdata = pack('C', strlen($this->cpu)) . $this->cpu;\r
- $rdata .= pack('C', strlen($this->os)) . $this->os;\r
- return $rdata;\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_MX definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>MX</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_MX extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $preference;\r
- var $exchange;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_MX(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- $a = unpack("@$offset/npreference", $data);\r
- $offset += 2;\r
- list($exchange, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
- $this->preference = $a['preference'];\r
- $this->exchange = $exchange;\r
- }\r
- } else {\r
- ereg("([0-9]+)[ \t]+(.+)[ \t]*$", $data, $regs);\r
- $this->preference = $regs[1];\r
- $this->exchange = ereg_replace('(.*)\.$', '\\1', $regs[2]);\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_MX::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if (preg_match('/^[0-9]+$/', $this->preference)) {\r
- return $this->preference . ' ' . $this->exchange . '.';\r
- }\r
- return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_MX::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if (preg_match('/^[0-9]+$/', $this->preference)) {\r
- $rdata = pack('n', $this->preference);\r
- $rdata .= $packet->dn_comp($this->exchange, $offset + strlen($rdata));\r
- return $rdata;\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>\r
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_NAPTR definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>NAPTR</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_NAPTR extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $order;\r
- var $preference;\r
- var $flags;\r
- var $services;\r
- var $regex;\r
- var $replacement;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_NAPTR(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- $a = unpack("@$offset/norder/npreference", $data);\r
- $offset += 4;\r
- list($flags, $offset) = Net_DNS_Packet::label_extract($data, $offset);\r
- list($services, $offset) = Net_DNS_Packet::label_extract($data, $offset);\r
- list($regex, $offset) = Net_DNS_Packet::label_extract($data, $offset);\r
- list($replacement, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
-\r
- $this->order = $a['order'];\r
- $this->preference = $a['preference'];\r
- $this->flags = $flags;\r
- $this->services = $services;\r
- $this->regex = $regex;\r
- $this->replacement = $replacement;\r
- }\r
- } else {\r
- $data = str_replace('\\\\', chr(1) . chr(1), $data); /* disguise escaped backslash */\r
- $data = str_replace('\\"', chr(2) . chr(2), $data); /* disguise \" */\r
- ereg('([0-9]+)[ \t]+([0-9]+)[ \t]+("[^"]*"|[^ \t]*)[ \t]+("[^"]*"|[^ \t]*)[ \t]+("[^"]*"|[^ \t]*)[ \t]+(.*?)[ \t]*$', $data, $regs);\r
- $this->preference = $regs[1];\r
- $this->weight = $regs[2];\r
- foreach($regs as $idx => $value) {\r
- $value = str_replace(chr(2) . chr(2), '\\"', $value);\r
- $value = str_replace(chr(1) . chr(1), '\\\\', $value);\r
- $regs[$idx] = stripslashes($value);\r
- }\r
- $this->flags = $regs[3];\r
- $this->services = $regs[4];\r
- $this->regex = $regs[5];\r
- $this->replacement = $regs[6];\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_NAPTR::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if ($this->rdata) {\r
- return intval($this->order) . ' ' . intval($this->preference) . ' "' . addslashes($this->flags) . '" "' . \r
- addslashes($this->services) . '" "' . addslashes($this->regex) . '" "' . addslashes($this->replacement) . '"';\r
- } else return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_NAPTR::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if ($this->preference) {\r
- $rdata = pack('nn', $this->order, $this->preference);\r
- $rdata .= pack('C', strlen($this->flags)) . $this->flags;\r
- $rdata .= pack('C', strlen($this->services)) . $this->services;\r
- $rdata .= pack('C', strlen($this->regex)) . $this->regex;\r
- $rdata .= $packet->dn_comp($this->replacement, $offset + strlen($rdata));\r
- return $rdata;\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_NS definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>NS</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_NS extends Net_DNS_RR\r
-{\r
- /* class variable defintiions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $nsdname;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_NS(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- list($nsdname, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
- $this->nsdname = $nsdname;\r
- }\r
- } else {\r
- $this->nsdname = ereg_replace("[ \t]+(.+)[ \t]*$", '\\1', $data);\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_NS::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if (strlen($this->nsdname)) {\r
- return $this->nsdname . '.';\r
- }\r
- return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_NS::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if (strlen($this->nsdname)) {\r
- return $packet->dn_comp($this->nsdname, $offset);\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_PTR definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>PTR</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_PTR extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $ptrdname;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_PTR(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- list($ptrdname, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
- $this->ptrdname = $ptrdname;\r
- }\r
- } else {\r
- $this->ptrdname = ereg_replace("[ \t]+(.+)[ \t]*$", '\\1', $data);\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_PTR::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if (strlen($this->ptrdname)) {\r
- return $this->ptrdname . '.';\r
- }\r
- return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_PTR::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if (strlen($this->ptrdname)) {\r
- return $packet->dn_comp($this->ptrdname, $offset);\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_SOA definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>SOA</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_SOA extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $mname;\r
- var $rname;\r
- var $serial;\r
- var $refresh;\r
- var $retry;\r
- var $expire;\r
- var $minimum;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_SOA(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- list($mname, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
- list($rname, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
-\r
- $a = unpack("@$offset/N5soavals", $data);\r
- $this->mname = $mname;\r
- $this->rname = $rname;\r
- $this->serial = $a['soavals1'];\r
- $this->refresh = $a['soavals2'];\r
- $this->retry = $a['soavals3'];\r
- $this->expire = $a['soavals4'];\r
- $this->minimum = $a['soavals5'];\r
- }\r
- } else {\r
- if (ereg("([^ \t]+)[ \t]+([^ \t]+)[ \t]+([0-9]+)[^ \t]+([0-9]+)[^ \t]+([0-9]+)[^ \t]+([0-9]+)[^ \t]*$", $string, $regs))\r
- {\r
- $this->mname = ereg_replace('(.*)\.$', '\\1', $regs[1]);\r
- $this->rname = ereg_replace('(.*)\.$', '\\1', $regs[2]);\r
- $this->serial = $regs[3];\r
- $this->refresh = $regs[4];\r
- $this->retry = $regs[5];\r
- $this->expire = $regs[6];\r
- $this->minimum = $regs[7];\r
- }\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_SOA::rdatastr($pretty = 0) {{{ */\r
- function rdatastr($pretty = 0)\r
- {\r
- if (strlen($this->mname)) {\r
- if ($pretty) {\r
- $rdatastr = $this->mname . '. ' . $this->rname . ". (\n";\r
- $rdatastr .= "\t\t\t\t\t" . $this->serial . "\t; Serial\n";\r
- $rdatastr .= "\t\t\t\t\t" . $this->refresh . "\t; Refresh\n";\r
- $rdatastr .= "\t\t\t\t\t" . $this->retry . "\t; Retry\n";\r
- $rdatastr .= "\t\t\t\t\t" . $this->expire . "\t; Expire\n";\r
- $rdatastr .= "\t\t\t\t\t" . $this->minimum . " )\t; Minimum TTL";\r
- } else {\r
- $rdatastr = $this->mname . '. ' . $this->rname . '. ' .\r
- $this->serial . ' ' . $this->refresh . ' ' . $this->retry . ' ' .\r
- $this->expire . ' ' . $this->minimum;\r
- }\r
- return $rdatastr;\r
- }\r
- return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_SOA::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if (strlen($this->mname)) {\r
- $rdata = $packet->dn_comp($this->mname, $offset);\r
- $rdata .= $packet->dn_comp($this->rname, $offset + strlen($rdata));\r
- $rdata .= pack('N5', $this->serial,\r
- $this->refresh,\r
- $this->retry,\r
- $this->expire,\r
- $this->minimum);\r
- return $rdata;\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_SRV definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>SRV</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_SRV extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $preference;\r
- var $weight;\r
- var $port;\r
- var $target;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_SRV(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- $a = unpack("@$offset/npreference/nweight/nport", $data);\r
- $offset += 6;\r
- list($target, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
- $this->preference = $a['preference'];\r
- $this->weight = $a['weight'];\r
- $this->port = $a['port'];\r
- $this->target = $target;\r
- }\r
- } else {\r
- ereg("([0-9]+)[ \t]+([0-9]+)[ \t]+([0-9]+)[ \t]+(.+)[ \t]*$", $data, $regs);\r
- $this->preference = $regs[1];\r
- $this->weight = $regs[2];\r
- $this->port = $regs[3];\r
- $this->target = ereg_replace('(.*)\.$', '\\1', $regs[4]);\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_SRV::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if ($this->port) {\r
- return intval($this->preference) . ' ' . intval($this->weight) . ' ' . intval($this->port) . ' ' . $this->target . '.';\r
- }\r
- return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_SRV::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if (isset($this->preference)) {\r
- $rdata = pack('nnn', $this->preference, $this->weight, $this->port);\r
- $rdata .= $packet->dn_comp($this->target, $offset + strlen($rdata));\r
- return $rdata;\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>\r
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-define('NET_DNS_DEFAULT_ALGORITHM', 'hmac-md5.sig-alg.reg.int');\r
-define('NET_DNS_DEFAULT_FUDGE', 300);\r
-\r
-/* Net_DNS_RR_TSIG definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>TSIG</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_TSIG extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $time_signed;\r
- var $fudge;\r
- var $mac_size;\r
- var $mac;\r
- var $original_id;\r
- var $error;\r
- var $other_len;\r
- var $other_data;\r
- var $key;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_TSIG(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- list($alg, $offset) = Net_DNS_Packet::dn_expand($data, $offset);\r
- $this->algorithm = $alg;\r
-\r
- $d = unpack("\@$offset/nth/Ntl/nfudge/nmac_size", $data);\r
- $time_high = $d['th'];\r
- $time_low = $d['tl'];\r
- $this->time_signed = $time_low;\r
- $this->fudge = $d['fudge'];\r
- $this->mac_size = $d['mac_size'];\r
- $offset += 10;\r
-\r
- $this->mac = substr($data, $offset, $this->mac_size);\r
- $offset += $this->mac_size;\r
-\r
- $d = unpack("@$offset/noid/nerror/nolen", $data);\r
- $this->original_id = $d['oid'];\r
- $this->error = $d['error'];\r
- $this->other_len = $d['olen'];\r
- $offset += 6;\r
-\r
- $odata = substr($data, $offset, $this->other_len);\r
- $d = unpack('nodata_high/Nodata_low', $odata);\r
- $this->other_data = $d['odata_low'];\r
- }\r
- } else {\r
- if (strlen($data) && preg_match('/^(.*)$/', $data, $regs)) {\r
- $this->key = $regs[1];\r
- }\r
-\r
- $this->algorithm = NET_DNS_DEFAULT_ALGORITHM;\r
- $this->time_signed = time();\r
-\r
- $this->fudge = NET_DNS_DEFAULT_FUDGE;\r
- $this->mac_size = 0;\r
- $this->mac = '';\r
- $this->original_id = 0;\r
- $this->error = 0;\r
- $this->other_len = 0;\r
- $this->other_data = '';\r
-\r
- // RFC 2845 Section 2.3\r
- $this->class = 'ANY';\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_TSIG::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- $error = $this->error;\r
- if (! $error) {\r
- $error = 'UNDEFINED';\r
- }\r
-\r
- if (strlen($this->algorithm)) {\r
- $rdatastr = $this->algorithm . '. ' . $this->time_signed . ' ' .\r
- $this->fudge . ' ';\r
- if ($this->mac_size && strlen($this->mac)) {\r
- $rdatastr .= ' ' . $this->mac_size . ' ' . base64_encode($this->mac);\r
- } else {\r
- $rdatastr .= ' 0 ';\r
- }\r
- $rdatastr .= ' ' . $this->original_id . ' ' . $error;\r
- if ($this->other_len && strlen($this->other_data)) {\r
- $rdatastr .= ' ' . $this->other_data;\r
- } else {\r
- $rdatastr .= ' 0 ';\r
- }\r
- } else {\r
- $rdatastr = '; no data';\r
- }\r
-\r
- return $rdatastr;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_TSIG::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- $rdata = '';\r
- $sigdata = '';\r
-\r
- if (strlen($this->key)) {\r
- $key = $this->key;\r
- $key = ereg_replace(' ', '', $key);\r
- $key = base64_decode($key);\r
-\r
- $newpacket = $packet;\r
- $newoffset = $offset;\r
- array_pop($newpacket->additional);\r
- $newpacket->header->arcount--;\r
- $newpacket->compnames = array();\r
-\r
- /*\r
- * Add the request MAC if present (used to validate responses).\r
- */\r
- if (isset($this->request_mac)) {\r
- $sigdata .= pack('H*', $this->request_mac);\r
- }\r
- $sigdata .= $newpacket->data();\r
-\r
- /*\r
- * Don't compress the record (key) name.\r
- */\r
- $tmppacket = new Net_DNS_Packet;\r
- $sigdata .= $tmppacket->dn_comp(strtolower($this->name), 0);\r
-\r
- $sigdata .= pack('n', Net_DNS::classesbyname(strtoupper($this->class)));\r
- $sigdata .= pack('N', $this->ttl);\r
-\r
- /*\r
- * Don't compress the algorithm name.\r
- */\r
- $tmppacket->compnames = array();\r
- $sigdata .= $tmppacket->dn_comp(strtolower($this->algorithm), 0);\r
-\r
- $sigdata .= pack('nN', 0, $this->time_signed);\r
- $sigdata .= pack('n', $this->fudge);\r
- $sigdata .= pack('nn', $this->error, $this->other_len);\r
-\r
- if (strlen($this->other_data)) {\r
- $sigdata .= pack('nN', 0, $this->other_data);\r
- }\r
-\r
- $this->mac = mhash(MHASH_MD5, $sigdata, $key);\r
- $this->mac_size = strlen($this->mac);\r
-\r
- /*\r
- * Don't compress the algorithm name.\r
- */\r
- unset($tmppacket);\r
- $tmppacket = new Net_DNS_Packet;\r
- $rdata .= $tmppacket->dn_comp(strtolower($this->algorithm), 0);\r
-\r
- $rdata .= pack('nN', 0, $this->time_signed);\r
- $rdata .= pack('nn', $this->fudge, $this->mac_size);\r
- $rdata .= $this->mac;\r
-\r
- $rdata .= pack('nnn',$packet->header->id,\r
- $this->error,\r
- $this->other_len);\r
-\r
- if ($this->other_data) {\r
- $rdata .= pack('nN', 0, $this->other_data);\r
- }\r
- }\r
- return $rdata;\r
- }\r
- /* }}} */\r
- /* Net_DNS_RR_TSIG::error() {{{ */\r
- function error()\r
- {\r
- if ($this->error != 0) {\r
- $rcode = Net_DNS::rcodesbyval($error);\r
- }\r
- return $rcode;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * expandtab on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>
\ No newline at end of file
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-/* Net_DNS_RR_TXT definition {{{ */\r
-/**\r
- * A representation of a resource record of type <b>TXT</b>\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_RR_TXT extends Net_DNS_RR\r
-{\r
- /* class variable definitions {{{ */\r
- var $name;\r
- var $type;\r
- var $class;\r
- var $ttl;\r
- var $rdlength;\r
- var $rdata;\r
- var $text;\r
-\r
- /* }}} */\r
- /* class constructor - RR(&$rro, $data, $offset = '') {{{ */\r
- function Net_DNS_RR_TXT(&$rro, $data, $offset = '')\r
- {\r
- $this->name = $rro->name;\r
- $this->type = $rro->type;\r
- $this->class = $rro->class;\r
- $this->ttl = $rro->ttl;\r
- $this->rdlength = $rro->rdlength;\r
- $this->rdata = $rro->rdata;\r
-\r
- if ($offset) {\r
- if ($this->rdlength > 0) {\r
- $maxoffset = $this->rdlength + $offset;\r
- while ($maxoffset > $offset) {\r
- list($text, $offset) = Net_DNS_Packet::label_extract($data, $offset);\r
- $this->text[] = $text;\r
- }\r
- }\r
- } else {\r
- $data = str_replace('\\\\', chr(1) . chr(1), $data); /* disguise escaped backslash */\r
- $data = str_replace('\\"', chr(2) . chr(2), $data); /* disguise \" */\r
-\r
- ereg('("[^"]*"|[^ \t]*)[ \t]*$', $data, $regs);\r
- $regs[1] = str_replace(chr(2) . chr(2), '\\"', $regs[1]);\r
- $regs[1] = str_replace(chr(1) . chr(1), '\\\\', $regs[1]);\r
- $regs[1] = stripslashes($regs[1]);\r
-\r
- $this->text = $regs[1];\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_TXT::rdatastr() {{{ */\r
- function rdatastr()\r
- {\r
- if ($this->text) {\r
- if (is_array($this->text)) {\r
- $tmp = array();\r
- foreach ($this->text as $t) {\r
- $tmp[] = '"'.addslashes($t).'"';\r
- }\r
- return implode(' ',$tmp);\r
- } else {\r
- return '"' . addslashes($this->text) . '"';\r
- }\r
- } else return '; no data';\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_RR_TXT::rr_rdata($packet, $offset) {{{ */\r
- function rr_rdata($packet, $offset)\r
- {\r
- if ($this->text) {\r
- $rdata = pack('C', strlen($this->text)) . $this->text;\r
- return $rdata;\r
- }\r
- return null;\r
- }\r
-\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>\r
+++ /dev/null
-<?php\r
-/*\r
- * License Information:\r
- *\r
- * Net_DNS: A resolver library for PHP\r
- * Copyright (c) 2002-2003 Eric Kilfoil eric@ypass.net\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-\r
-/* Net_DNS_Resolver object definition {{{ */\r
-/**\r
- * A DNS Resolver library\r
- *\r
- * Resolver library. Builds a DNS query packet, sends the packet to the\r
- * server and parses the reponse.\r
- *\r
- * @package Net_DNS\r
- */\r
-class Net_DNS_Resolver\r
-{\r
- /* class variable definitions {{{ */\r
- /**\r
- * An array of all nameservers to query\r
- *\r
- * @var array $nameservers\r
- * @access public\r
- */\r
- var $nameservers;\r
- /**\r
- * The UDP port to use for the query (default = 53)\r
- *\r
- * @var integer $port\r
- * @access public\r
- */\r
- var $port;\r
- /**\r
- * The domain in which the resolver client host resides.\r
- *\r
- * @var string $domain\r
- * @access public\r
- */\r
- var $domain;\r
- /**\r
- * The searchlist to apply to unqualified hosts\r
- *\r
- * An array of strings containg domains to apply to unqualified hosts\r
- * passed to the resolver.\r
- *\r
- * @var array $searchlist\r
- * @access public\r
- */\r
- var $searchlist;\r
- /**\r
- * The number of seconds between retransmission of unaswered queries\r
- *\r
- * @var integer $retrans\r
- * @access public\r
- */\r
- var $retrans;\r
- /**\r
- * The number of times unanswered requests should be retried\r
- *\r
- * @var integer $retry\r
- * @access public\r
- */\r
- var $retry;\r
- /**\r
- * Whether or not to use TCP (Virtual Circuits) instead of UDP\r
- *\r
- * If set to 0, UDP will be used unless TCP is required. TCP is\r
- * required for questions or responses greater than 512 bytes.\r
- *\r
- * @var boolean $usevc\r
- * @access public\r
- */\r
- var $usevc;\r
- /**\r
- * Unknown\r
- */\r
- var $stayopen;\r
- /**\r
- * Ignore TC (truncated) bit\r
- *\r
- * If the server responds with the TC bit set on a response, and $igntc\r
- * is set to 0, the resolver will automatically retransmit the request\r
- * using virtual circuits (TCP).\r
- *\r
- * @access public\r
- * @var boolean $igntc\r
- */\r
- var $igntc;\r
- /**\r
- * Recursion Desired\r
- *\r
- * Sets the value of the RD (recursion desired) bit in the header. If\r
- * the RD bit is set to 0, the server will not perform recursion on the\r
- * request.\r
- *\r
- * @var boolean $recurse\r
- * @access public\r
- */\r
- var $recurse;\r
- /**\r
- * Unknown\r
- */\r
- var $defnames;\r
- /**\r
- * Unknown\r
- */\r
- var $dnsrch;\r
- /**\r
- * Contains the value of the last error returned by the resolver.\r
- *\r
- * @var string $errorstring\r
- * @access public\r
- */\r
- var $errorstring;\r
- /**\r
- * The origin of the packet.\r
- *\r
- * This contains a string containing the IP address of the name server\r
- * from which the answer was given.\r
- *\r
- * @var string $answerfrom\r
- * @access public\r
- */\r
- var $answerfrom;\r
- /**\r
- * The size of the answer packet.\r
- *\r
- * This contains a integer containing the size of the DNS packet the\r
- * server responded with.\r
- *\r
- * @var string $answersize\r
- * @access public\r
- */\r
- var $answersize;\r
- /**\r
- * The number of seconds after which a TCP connection should timeout\r
- *\r
- * @var integer $tcp_timeout\r
- * @access public\r
- */\r
- var $tcp_timeout;\r
- /**\r
- * The location of the system resolv.conf file.\r
- *\r
- * @var string $resolv_conf\r
- */\r
- var $resolv_conf = '/etc/resolv.conf';\r
- /**\r
- * The name of the user defined resolv.conf\r
- *\r
- * The resolver will attempt to look in both the current directory as\r
- * well as the user's home directory for a user defined resolver\r
- * configuration file\r
- *\r
- * @var string $dotfile\r
- * @see Net_DNS_Resolver::$confpath\r
- */\r
- var $dotfile = '.resolv.conf';\r
- /**\r
- * A array of directories to search for the user's resolver config\r
- *\r
- * @var string $confpath\r
- * @see Net_DNS_Resolver::$dotfile\r
- */\r
- var $confpath;\r
- /**\r
- * debugging flag\r
- *\r
- * If set to true (non-zero), debugging code will be displayed as the\r
- * resolver makes the request.\r
- *\r
- * @var boolean $debug;\r
- * @access public\r
- */\r
- var $debug;\r
- /**\r
- * use the (currently) experimental PHP socket library\r
- *\r
- * If set to true (non-zero), the Resolver will attempt to use the\r
- * much more effecient PHP sockets extension (if available).\r
- *\r
- * @var boolean $useEnhancedSockets;\r
- * @access public\r
- */\r
- var $useEnhancedSockets = true;\r
- /**\r
- * An array of sockets connected to a name servers\r
- *\r
- * @var array $sockets\r
- * @access private\r
- */\r
- var $sockets;\r
- /**\r
- * axfr tcp socket\r
- *\r
- * Used to store a PHP socket resource for a connection to a server\r
- *\r
- * @var resource $_axfr_sock;\r
- * @access private\r
- */\r
- var $_axfr_sock;\r
- /**\r
- * axfr resource record list\r
- *\r
- * Used to store a resource record list from a zone transfer\r
- *\r
- * @var resource $_axfr_rr;\r
- * @access private\r
- */\r
- var $_axfr_rr;\r
- /**\r
- * axfr soa count\r
- *\r
- * Used to store the number of soa records received from a zone transfer\r
- *\r
- * @var resource $_axfr_soa_count;\r
- * @access private\r
- */\r
- var $_axfr_soa_count;\r
-\r
-\r
- /* }}} */\r
- /* class constructor - Net_DNS_Resolver() {{{ */\r
- /**\r
- * Initializes the Resolver Object\r
- *\r
- * @return Net_DNS_Resolver\r
- */\r
- function Net_DNS_Resolver($defaults = array())\r
- {\r
- $mydefaults = array(\r
- 'nameservers' => array(),\r
- 'port' => '53',\r
- 'domain' => '',\r
- 'searchlist' => array(),\r
- 'retrans' => 5,\r
- 'retry' => 4,\r
- 'usevc' => 0,\r
- 'stayopen' => 0,\r
- 'igntc' => 0,\r
- 'recurse' => 1,\r
- 'defnames' => 1,\r
- 'dnsrch' => 1,\r
- 'debug' => 0,\r
- 'errorstring' => 'unknown error or no error',\r
- 'answerfrom' => '',\r
- 'answersize' => 0,\r
- 'tcp_timeout' => 120\r
- );\r
- foreach ($mydefaults as $k => $v) {\r
- $this->{$k} = isset($defaults[$k]) ? $defaults[$k] : $v;\r
- }\r
- $this->confpath[0] = getenv('HOME');\r
- $this->confpath[1] = '.';\r
- $this->res_init();\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::res_init() {{{ */\r
- /**\r
- * Initalizes the resolver library\r
- *\r
- * res_init() searches for resolver library configuration files and\r
- * initializes the various properties of the resolver object.\r
- *\r
- * @see Net_DNS_Resolver::$resolv_conf, Net_DNS_Resolver::$dotfile,\r
- * Net_DNS_Resolver::$confpath, Net_DNS_Resolver::$searchlist,\r
- * Net_DNS_Resolver::$domain, Net_DNS_Resolver::$nameservers\r
- * @access public\r
- */\r
- function res_init()\r
- {\r
- $err = error_reporting(0);\r
- if (file_exists($this->resolv_conf) && is_readable($this->resolv_conf)) {\r
- $this->read_config($this->resolv_conf);\r
- }\r
-\r
- foreach ($this->confpath as $dir) {\r
- $file = $dir.DIRECTORY_SEPARATOR.$this->dotfile;\r
- if (file_exists($file) && is_readable($file)) {\r
- $this->read_config($file);\r
- }\r
- }\r
-\r
- $this->read_env();\r
-\r
- if (!strlen($this->domain) && sizeof($this->searchlist)) {\r
- $this->domain = $this->searchlist[0];\r
- } else if (! sizeof($this->searchlist) && strlen($this->domain)) {\r
- $this->searchlist = array($this->domain);\r
- }\r
- error_reporting($err);\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::read_config {{{ */\r
- /**\r
- * Reads and parses a resolver configuration file\r
- *\r
- * @param string $file The name of the file to open and parse\r
- */\r
- function read_config($file)\r
- {\r
- if (is_readable($file)) {\r
- if (! ($f = fopen($file, 'r'))) {\r
- $this->error = "can't open $file";\r
- }\r
- }\r
-\r
- if (!is_resource($f)) {\r
- $this->error = "can't open $file";\r
- } else {\r
- while (! feof($f)) {\r
- $line = chop(fgets($f, 10240));\r
- $line = ereg_replace('(.*)[;#].*', '\\1', $line);\r
- if (ereg("^[ \t]*$", $line, $regs)) {\r
- continue;\r
- }\r
- ereg("^[ \t]*([^ \t]+)[ \t]+([^ \t]+)", $line, $regs);\r
- $option = $regs[1];\r
- $value = $regs[2];\r
-\r
- switch ($option) {\r
- case 'domain':\r
- $this->domain = $regs[2];\r
- break;\r
- case 'search':\r
- $this->searchlist[count($this->searchlist)] = $regs[2];\r
- break;\r
- case 'nameserver':\r
- foreach (split(' ', $regs[2]) as $ns) {\r
- $this->nameservers[count($this->nameservers)] = $ns;\r
- }\r
- break;\r
- }\r
- }\r
- fclose($f);\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::read_env() {{{ */\r
- /**\r
- * Examines the environment for resolver config information\r
- */\r
- function read_env()\r
- {\r
- if (getenv('RES_NAMESERVERS')) {\r
- $this->nameservers = split(' ', getenv('RES_NAMESERVERS'));\r
- }\r
-\r
- if (getenv('RES_SEARCHLIST')) {\r
- $this->searchlist = split(' ', getenv('RES_SEARCHLIST'));\r
- }\r
-\r
- if (getenv('LOCALDOMAIN')) {\r
- $this->domain = getenv('LOCALDOMAIN');\r
- }\r
-\r
- if (getenv('RES_OPTIONS')) {\r
- $env = split(' ', getenv('RES_OPTIONS'));\r
- foreach ($env as $opt) {\r
- list($name, $val) = split(':', $opt);\r
- if ($val == '') {\r
- $val = 1;\r
- }\r
- $this->{$name} = $val;\r
- }\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::string() {{{ */\r
- /**\r
- * Builds a string containing the current state of the resolver\r
- *\r
- * Builds formatted string containing the state of the resolver library suited\r
- * for display.\r
- *\r
- * @access public\r
- */\r
- function string()\r
- {\r
- $state = ";; Net_DNS_Resolver state:\n";\r
- $state .= ';; domain = ' . $this->domain . "\n";\r
- $state .= ';; searchlist = ' . implode(' ', $this->searchlist) . "\n";\r
- $state .= ';; nameservers = ' . implode(' ', $this->nameservers) . "\n";\r
- $state .= ';; port = ' . $this->port . "\n";\r
- $state .= ';; tcp_timeout = ';\r
- $state .= ($this->tcp_timeout ? $this->tcp_timeout : 'indefinite') . "\n";\r
- $state .= ';; retrans = ' . $this->retrans . ' ';\r
- $state .= 'retry = ' . $this->retry . "\n";\r
- $state .= ';; usevc = ' . $this->usevc . ' ';\r
- $state .= 'stayopen = ' . $this->stayopen . ' ';\r
- $state .= 'igntc = ' . $this->igntc . "\n";\r
- $state .= ';; defnames = ' . $this->defnames . ' ';\r
- $state .= 'dnsrch = ' . $this->dnsrch . "\n";\r
- $state .= ';; recurse = ' . $this->recurse . ' ';\r
- $state .= 'debug = ' . $this->debug . "\n";\r
- return $state;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::nextid() {{{ */\r
- /**\r
- * Returns the next request Id to be used for the DNS packet header\r
- */\r
- function nextid()\r
- {\r
- if ($GLOBALS['_Net_DNS_packet_id']++ > 65535) {\r
- $GLOBALS['_Net_DNS_packet_id']= 1;\r
- }\r
- return $GLOBALS['_Net_DNS_packet_id'];\r
- }\r
- /* }}} */\r
- /* Net_DNS_Resolver::nameservers() {{{ */\r
- /**\r
- * Gets or sets the nameservers to be queried.\r
- *\r
- * Returns the current nameservers if an array of new nameservers is not\r
- * given as the argument OR sets the nameservers to the given nameservers.\r
- *\r
- * Nameservers not specified by ip address must be able to be resolved by\r
- * the default settings of a new Net_DNS_Resolver.\r
- *\r
- * @access public\r
- */\r
- function nameservers($nsa = array())\r
- {\r
- $defres = new Net_DNS_Resolver();\r
-\r
- if (is_array($nsa)) {\r
- $a = array();\r
- foreach ($nsa as $ns) {\r
- if (preg_match('/^(\d+(:?\.\d+){0,3})$/', $ns)) {\r
- $a[] = ($ns == 0) ? '0.0.0.0' : $ns;\r
- } else {\r
- $names = array();\r
- if (!preg_match('/\./', $ns)) {\r
- if (!empty($defres->searchlist)) {\r
- foreach ($defres->searchlist as $suffix) {\r
- $names[] = $ns .'.' . $suffix;\r
- }\r
- } elseif (!empty($defres->domain)) {\r
- $names[] = $ns .'.'. $defres->domain;\r
- }\r
- } else {\r
- $names[] = $ns;\r
- }\r
- $packet = $defres->search($ns);\r
- if (is_object($packet)) {\r
- $addresses = $this->cname_addr($names, $packet);\r
- foreach ($addresses as $b) {\r
- $a[] = $b;\r
- }\r
- $a = array_unique($a);\r
- }\r
- }\r
- }\r
- if (count($a)) {\r
- $this->nameservers = $a;\r
- }\r
- }\r
- return $this->nameservers;\r
- }\r
-\r
- /* }}} */\r
- /* not tested -- Net_DNS_Resolver::cname_addr() {{{ */\r
- function cname_addr($names, $packet)\r
- {\r
- $addr = array();\r
- //my $oct2 = '(?:2[0-4]\d|25[0-5]|[0-1]?\d\d|\d)';\r
- foreach ($packet->answer as $rr) {\r
- if (in_array($rr->name, $names)) {\r
- if ($rr->type == 'CNAME') {\r
- $names[] = $rr->cname;\r
- } elseif ($rr->type == 'A') {\r
- // Run a basic taint check.\r
- //next RR unless $rr->address =~ m/^($oct2\.$oct2\.$oct2\.$oct2)$/o;\r
-\r
- $addr[] = $rr->address;\r
- }\r
- }\r
- }\r
- return $addr;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::search() {{{ */\r
- /**\r
- * Searches nameservers for an answer\r
- *\r
- * Goes through the search list and attempts to resolve name based on\r
- * the information in the search list.\r
- *\r
- * @param string $name The name (LHS) of a resource record to query.\r
- * @param string $type The type of record to query.\r
- * @param string $class The class of record to query.\r
- * @return mixed an object of type Net_DNS_Packet on success,\r
- * or false on failure.\r
- * @see Net_DNS::typesbyname(), Net_DNS::classesbyname()\r
- * @access public\r
- */\r
- function search($name, $type = 'A', $class = 'IN')\r
- {\r
- /*\r
- * If the name looks like an IP address then do an appropriate\r
- * PTR query.\r
- */\r
- if (preg_match('/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/', $name, $regs)) {\r
- $name = $regs[4].'.'.$regs[3].'.'.$regs[2].'.'.$regs[1].'.in-addr.arpa.';\r
- $type = 'PTR';\r
- }\r
-\r
- /*\r
- * If the name contains at least one dot then try it as is first.\r
- */\r
- if (strstr($name, '.')) {\r
- if ($this->debug) {\r
- echo ";; search($name, $type, $class)\n";\r
- }\r
- $ans = $this->query($name, $type, $class);\r
- if (is_object($ans) && ($ans->header->ancount > 0)) {\r
- return $ans;\r
- }\r
- }\r
-\r
- /*\r
- * If the name does not end in a dot then apply the search list.\r
- */\r
- $domain = '';\r
- if ((! preg_match('/\.$/', $name)) && $this->dnsrch) {\r
- foreach ($this->searchlist as $domain) {\r
- $newname = "$name.$domain";\r
- if ($this->debug) {\r
- echo ";; search($newname, $type, $class)\n";\r
- }\r
- $ans = $this->query($newname, $type, $class);\r
- if (is_object($ans) && ($ans->header->ancount > 0)) {\r
- return $ans;\r
- }\r
- }\r
- }\r
-\r
- /*\r
- * Finally, if the name has no dots then try it as is.\r
- */\r
- if (strpos($name, '.') === false) {\r
- if ($this->debug) {\r
- echo ";; search($name, $type, $class)\n";\r
- }\r
- $ans = $this->query($name.'.', $type, $class);\r
- if (is_object($ans) && ($ans->header->ancount > 0)) {\r
- return $ans;\r
- }\r
- }\r
-\r
- /*\r
- * No answer was found.\r
- */\r
- return false;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::rawQuery() {{{ */\r
- /**\r
- * Queries nameservers for an answer\r
- *\r
- * Queries the nameservers listed in the resolver configuration for an\r
- * answer to a question packet.\r
- *\r
- * @param string $name The name (LHS) of a resource record to query.\r
- * @param string $type The type of record to query.\r
- * @param string $class The class of record to query.\r
- * @return mixed an object of type Net_DNS_Packet, regardless of whether the packet\r
- * has an answer or not\r
- * @see Net_DNS::typesbyname(), Net_DNS::classesbyname()\r
- * @access public\r
- */\r
- function rawQuery($name, $type = 'A', $class = 'IN')\r
- {\r
- /*\r
- * If the name does not contain any dots then append the default domain.\r
- */\r
- if ((strchr($name, '.') < 0) && $this->defnames) {\r
- $name .= '.' . $this->domain;\r
- }\r
-\r
- /*\r
- * If the name looks like an IP address then do an appropriate\r
- * PTR query.\r
- */\r
- if (preg_match('/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/', $name, $regs)) {\r
- $name = $regs[4].'.'.$regs[3].'.'.$regs[2].'.'.$regs[1].'.in-addr.arpa.';\r
- $type = 'PTR';\r
- }\r
-\r
- if ($this->debug) {\r
- echo ";; query($name, $type, $class)\n";\r
- }\r
- $packet = new Net_DNS_Packet($this->debug);\r
- $packet->buildQuestion($name, $type, $class);\r
- $packet->header->rd = $this->recurse;\r
- $ans = $this->send($packet);\r
- return $ans;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::query() {{{ */\r
- /**\r
- * Queries nameservers for an answer\r
- *\r
- * Queries the nameservers listed in the resolver configuration for an\r
- * answer to a question packet.\r
- *\r
- * @param string $name The name (LHS) of a resource record to query.\r
- * @param string $type The type of record to query.\r
- * @param string $class The class of record to query.\r
- * @return mixed an object of type Net_DNS_Packet on success,\r
- * or false on failure.\r
- * @see Net_DNS::typesbyname(), Net_DNS::classesbyname()\r
- * @access public\r
- */\r
- function query($name, $type = 'A', $class = 'IN')\r
- {\r
- $ans = $this->rawQuery($name, $type, $class);\r
- if (is_object($ans) && $ans->header->ancount > 0) {\r
- return $ans;\r
- }\r
- return false;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::send($packetORname, $qtype = '', $qclass = '') {{{ */\r
- /**\r
- * Sends a packet to a nameserver\r
- *\r
- * Determines the appropriate communication method (UDP or TCP) and\r
- * sends a DNS packet to a nameserver. Use of the this function\r
- * directly is discouraged. $packetORname should always be a properly\r
- * formatted binary DNS packet. However, it is possible to send a\r
- * query here and bypass Net_DNS_Resolver::query()\r
- *\r
- * @param string $packetORname A binary DNS packet stream or a\r
- * hostname to query\r
- * @param string $qtype This should not be used\r
- * @param string $qclass This should not be used\r
- * @return object Net_DNS_Packet An answer packet object\r
- */\r
- function send($packetORname, $qtype = '', $qclass = '')\r
- {\r
- $packet = $this->make_query_packet($packetORname, $qtype, $qclass);\r
- $packet_data = $packet->data();\r
-\r
- if ($this->usevc != 0 || strlen($packet_data > 512)) {\r
- $ans = $this->send_tcp($packet, $packet_data);\r
- } else {\r
- $ans = $this->send_udp($packet, $packet_data);\r
-\r
- if ($ans && $ans->header->tc && $this->igntc != 0) {\r
- if ($this->debug) {\r
- echo ";;\n;; packet truncated: retrying using TCP\n";\r
- }\r
- $ans = $this->send_tcp($packet, $packet_data);\r
- }\r
- }\r
- return $ans;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::printhex($packet_data) {{{ */\r
- /**\r
- * Prints packet data as hex code.\r
- */\r
- function printhex($data)\r
- {\r
- $data = ' ' . $data;\r
- $start = 0;\r
- while ($start < strlen($data)) {\r
- printf(';; %03d: ', $start);\r
- for ($ctr = $start; $ctr < $start+16; $ctr++) {\r
- if ($ctr < strlen($data)) {\r
- printf('%02x ', ord($data[$ctr]));\r
- } else {\r
- echo ' ';\r
- }\r
- }\r
- echo ' ';\r
- for ($ctr = $start; $ctr < $start+16; $ctr++) {\r
- if (ord($data[$ctr]) < 32 || ord($data[$ctr]) > 127) {\r
- echo '.';\r
- } else {\r
- echo $data[$ctr];\r
- }\r
- }\r
- echo "\n";\r
- $start += 16;\r
- }\r
- }\r
- /* }}} */\r
- /* Net_DNS_Resolver::send_tcp($packet, $packet_data) {{{ */\r
- /**\r
- * Sends a packet via TCP to the list of name servers.\r
- *\r
- * @param string $packet A packet object to send to the NS list\r
- * @param string $packet_data The data in the packet as returned by\r
- * the Net_DNS_Packet::data() method\r
- * @return object Net_DNS_Packet Returns an answer packet object\r
- * @see Net_DNS_Resolver::send_udp(), Net_DNS_Resolver::send()\r
- */\r
- function send_tcp($packet, $packet_data)\r
- {\r
- if (! count($this->nameservers)) {\r
- $this->errorstring = 'no nameservers';\r
- if ($this->debug) {\r
- echo ";; ERROR: send_tcp: no nameservers\n";\r
- }\r
- return null;\r
- }\r
- $timeout = $this->tcp_timeout;\r
-\r
- foreach ($this->nameservers as $ns) {\r
- $dstport = $this->port;\r
- if ($this->debug) {\r
- echo ";; send_tcp($ns:$dstport)\n";\r
- }\r
- $sock_key = "$ns:$dstport";\r
- if (isset($this->sockets[$sock_key]) && is_resource($this->sockets[$sock_key])) {\r
- $sock = &$this->sockets[$sock_key];\r
- } else {\r
- if (! ($sock = @fsockopen($ns, $dstport, $errno,\r
- $errstr, $timeout))) {\r
- $this->errorstring = 'connection failed';\r
- if ($this->debug) {\r
- echo ";; ERROR: send_tcp: connection failed: $errstr\n";\r
- }\r
- continue;\r
- }\r
- $this->sockets[$sock_key] = $sock;\r
- unset($sock);\r
- $sock = &$this->sockets[$sock_key];\r
- }\r
- $lenmsg = pack('n', strlen($packet_data));\r
- if ($this->debug) {\r
- echo ';; sending ' . strlen($packet_data) . " bytes\n";\r
- }\r
-\r
- if (($sent = fwrite($sock, $lenmsg)) == -1) {\r
- $this->errorstring = 'length send failed';\r
- if ($this->debug) {\r
- echo ";; ERROR: send_tcp: length send failed\n";\r
- }\r
- continue;\r
- }\r
-\r
- if (($sent = fwrite($sock, $packet_data)) == -1) {\r
- $this->errorstring = 'packet send failed';\r
- if ($this->debug) {\r
- echo ";; ERROR: send_tcp: packet data send failed\n";\r
- }\r
- }\r
-\r
- socket_set_timeout($sock, $timeout);\r
- $buf = fread($sock, 2);\r
- $e = socket_get_status($sock);\r
- /* If $buf is empty, we want to supress errors\r
- long enough to reach the continue; down the line */\r
- $len = @unpack('nint', $buf);\r
- $len = @$len['int'];\r
- if (!$len) {\r
- continue;\r
- }\r
- $buf = fread($sock, $len);\r
- $actual = strlen($buf);\r
- $this->answerfrom = $ns;\r
- $this->answersize = $len;\r
- if ($this->debug) {\r
- echo ";; received $actual bytes\n";\r
- }\r
- if ($actual != $len) {\r
- $this->errorstring = "expected $len bytes, received $buf";\r
- if ($this->debug) {\r
- echo ';; send_tcp: ' . $this->errorstring;\r
- }\r
- continue;\r
- }\r
-\r
- $ans = new Net_DNS_Packet($this->debug);\r
- if (is_null($ans->parse($buf))) {\r
- continue;\r
- }\r
- $this->errorstring = $ans->header->rcode;\r
- $ans->answerfrom = $this->answerfrom;\r
- $ans->answersize = $this->answersize;\r
- return $ans;\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::send_udp_no_sock_lib($packet, $packet_data) {{{ */\r
- /**\r
- * Sends a packet via UDP to the list of name servers.\r
- *\r
- * This function sends a packet to a nameserver. It is called by\r
- * send_udp if the sockets PHP extension is not compiled into PHP.\r
- *\r
- * @param string $packet A packet object to send to the NS list\r
- * @param string $packet_data The data in the packet as returned by\r
- * the Net_DNS_Packet::data() method\r
- * @return object Net_DNS_Packet Returns an answer packet object\r
- * @see Net_DNS_Resolver::send_tcp(), Net_DNS_Resolver::send(),\r
- * Net_DNS_Resolver::send_udp(), Net_DNS_Resolver::send_udp_with_sock_lib()\r
- */\r
- function send_udp_no_sock_lib($packet, $packet_data)\r
- {\r
- $retrans = $this->retrans;\r
- $timeout = $retrans;\r
-\r
- /*\r
- * PHP doesn't have excellent socket support as of this writing.\r
- * This needs to be rewritten when PHP POSIX socket support is\r
- * complete.\r
- * Obviously, this code is MUCH different than the PERL implementation\r
- */\r
-\r
- $w = error_reporting(0);\r
- $ctr = 0;\r
- // Create a socket handle for each nameserver\r
- foreach ($this->nameservers as $nameserver) {\r
- if ($sock[$ctr++] = fsockopen("udp://$nameserver", $this->port)) {\r
- $peerhost[$ctr-1] = $nameserver;\r
- $peerport[$ctr-1] = $this->port;\r
- socket_set_blocking($sock[$ctr-1], false);\r
- } else {\r
- $ctr--;\r
- }\r
- }\r
- error_reporting($w);\r
-\r
- if ($ctr == 0) {\r
- $this->errorstring = 'no nameservers';\r
- return null;\r
- }\r
-\r
- for ($i = 0; $i < $this->retry; $i++, $retrans *= 2,\r
- $timeout = (int) ($retrans / $ctr)) {\r
- if ($timeout < 1) {\r
- $timeout = 1;\r
- }\r
-\r
- foreach ($sock as $k => $s) {\r
- if ($this->debug) {\r
- echo ';; send_udp(' . $peerhost[$k] . ':' . $peerport[$k] . '): sending ' . strlen($packet_data) . " bytes\n";\r
- }\r
-\r
- if (! fwrite($s, $packet_data)) {\r
- if ($this->debug) {\r
- echo ";; send error\n";\r
- }\r
- }\r
-\r
- /*\r
- * Here's where it get's really nasty. We don't have a select()\r
- * function here, so we have to poll for a response... UGH!\r
- */\r
-\r
- $timetoTO = time() + (double)microtime() + $timeout;\r
-\r
- /*\r
- * let's sleep for a few hundred microseconds to let the\r
- * data come in from the network...\r
- */\r
- usleep(500);\r
- $buf = '';\r
- while (! strlen($buf) && $timetoTO > (time() +\r
- (double)microtime())) {\r
- socket_set_blocking($s, false);\r
- if ($buf = fread($s, 512)) {\r
- $this->answerfrom = $peerhost[$k];\r
- $this->answersize = strlen($buf);\r
- if ($this->debug) {\r
- echo ';; answer from ' . $peerhost[$k] . ':' .\r
- $peerport[$k] . ': ' . strlen($buf) . " bytes\n";\r
- }\r
- $ans = new Net_DNS_Packet($this->debug);\r
- if ($ans->parse($buf)) {\r
- if ($ans->header->qr != '1') {\r
- continue;\r
- }\r
- if ($ans->header->id != $packet->header->id) {\r
- continue;\r
- }\r
- $this->errorstring = $ans->header->rcode;\r
- $ans->answerfrom = $this->answerfrom;\r
- $ans->answersize = $this->answersize;\r
- return $ans;\r
- }\r
- }\r
- // Sleep another 1/100th of a second... this sucks...\r
- usleep(1000);\r
- }\r
-\r
- }\r
- \r
- $this->errorstring = 'query timed out';\r
- return null;\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::send_udp_with_sock_lib($packet, $packet_data) {{{ */\r
- /**\r
- * Sends a packet via UDP to the list of name servers.\r
- *\r
- * This function sends a packet to a nameserver. It is called by\r
- * send_udp if the sockets PHP extension is compiled into PHP.\r
- *\r
- * @param string $packet A packet object to send to the NS list\r
- * @param string $packet_data The data in the packet as returned by\r
- * the Net_DNS_Packet::data() method\r
- * @return object Net_DNS_Packet Returns an answer packet object\r
- * @see Net_DNS_Resolver::send_tcp(), Net_DNS_Resolver::send(),\r
- * Net_DNS_Resolver::send_udp(), Net_DNS_Resolver::send_udp_no_sock_lib()\r
- */\r
- function send_udp_with_sock_lib($packet, $packet_data)\r
- {\r
- $retrans = $this->retrans;\r
- $timeout = $retrans;\r
-\r
- //$w = error_reporting(0);\r
- $ctr = 0;\r
- // Create a socket handle for each nameserver\r
- foreach ($this->nameservers as $nameserver) {\r
- if ((($sock[$ctr++] = socket_create(AF_INET, SOCK_DGRAM, SOL_UDP))) &&\r
- socket_connect($sock[$ctr-1], $nameserver, $this->port))\r
- {\r
- $peerhost[$ctr-1] = $nameserver;\r
- $peerport[$ctr-1] = $this->port;\r
- socket_set_nonblock($sock[$ctr-1]);\r
- } else {\r
- $ctr--;\r
- }\r
- }\r
- //error_reporting($w);\r
-\r
- if ($ctr == 0) {\r
- $this->errorstring = 'no nameservers';\r
- return null;\r
- }\r
- // Try each nameserver up to $this->retry times\r
- for ($i = 0; $i < $this->retry; $i++) {\r
- if ($i != 0) {\r
- // Set the timeout for each retry based on the number of\r
- // nameservers there is a connected socket for.\r
- $retrans *= 2;\r
- $timeout = (int) ($retrans / $ctr);\r
- }\r
- // Make sure the timeout is at least 1 second\r
- if ($timeout < 1) {\r
- $timeout = 1;\r
- }\r
-\r
- // Try each nameserver\r
- foreach ($sock as $k => $s) {\r
- if ($this->debug) {\r
- echo "\n;; send_udp(" . $peerhost[$k] . ':' . $peerport[$k] . '): sending ' . strlen($packet_data) . " bytes\n";\r
- }\r
-\r
- if (! socket_write($s, $packet_data)) {\r
- if ($this->debug) {\r
- echo ";; send error\n";\r
- }\r
- }\r
-\r
- $set = array($s);\r
- if ($this->debug) {\r
- echo ";; timeout set to $timeout seconds\n";\r
- }\r
- $changed = socket_select($set, $w = null, $e = null, $timeout);\r
- if ($changed) {\r
- // Test to see if the connection was refused. Linux servers will send\r
- // an ICMP message which will cause the client's next system call to\r
- // return ECONNREFUSED if the server is not listening on the ip:port queried\r
- if (socket_get_option($s, SOL_SOCKET, SO_ERROR) == SOCKET_ECONNREFUSED) {\r
- // Unix socket connection was refused\r
- if ($this->debug) {\r
- echo ';; connection to ' . $peerhost[$k] . ':' . $peerport[$k] . " was refused\n";\r
- }\r
- // Try the next server.\r
- continue;\r
- }\r
-\r
- // Read the response\r
- $buf = @socket_read($s, 512);\r
- if ($buf === false) {\r
- // No data could be read from socket\r
- if ($this->debug) {\r
- echo ';; no data could be read from ' . $peerhost[$k] . ':' . $peerport[$k] . "\n";\r
- echo ';; socket_error: ' . socket_strerror(socket_last_error()) . "\n";\r
- }\r
- // Reset the non-specific socket error status\r
- socket_clear_error();\r
- // Try the next server.\r
- continue;\r
- }\r
-\r
- $this->answerfrom = $peerhost[$k];\r
- $this->answersize = strlen($buf);\r
- if ($this->debug) {\r
- echo ';; answer from ' . $peerhost[$k] . ':' .\r
- $peerport[$k] . ': ' . strlen($buf) . " bytes\n";\r
- }\r
- $ans = new Net_DNS_Packet($this->debug);\r
- if ($ans->parse($buf)) {\r
- if ($ans->header->qr != '1') {\r
- // Ignore packet if it is not a response\r
- continue;\r
- } elseif ($ans->header->id != $packet->header->id) {\r
- // Ignore packet if the response id does not match the query id\r
- continue;\r
- } else {\r
- // Return the DNS response packet\r
- $this->errorstring = $ans->header->rcode;\r
- $ans->answerfrom = $this->answerfrom;\r
- $ans->answersize = $this->answersize;\r
- return $ans;\r
- }\r
- }\r
- } elseif ($this->debug) {\r
- echo ";; query to ". $peerhost[$k] . ':' . $peerport[$k] . " timed out\n";\r
- }\r
- }\r
- }\r
- $this->errorstring = 'query timed out';\r
- return null;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::send_udp($packet, $packet_data) {{{ */\r
- /**\r
- * Sends a packet via UDP to the list of name servers.\r
- *\r
- * This function sends a packet to a nameserver. send_udp calls\r
- * either Net_DNS_Resolver::send_udp_no_sock_lib() or\r
- * Net_DNS_Resolver::send_udp_with_sock_lib() depending on whether or\r
- * not the sockets extension is compiled into PHP. Note that using the\r
- * sockets extension is MUCH more efficient.\r
- *\r
- * @param object Net_DNS_Packet $packet A packet object to send to the NS list\r
- * @param string $packet_data The data in the packet as returned by\r
- * the Net_DNS_Packet::data() method\r
- * @return object Net_DNS_Packet Returns an answer packet object\r
- * @see Net_DNS_Resolver::send_tcp(), Net_DNS_Resolver::send(),\r
- * Net_DNS_Resolver::send_udp(), Net_DNS_Resolver::send_udp_no_sock_lib()\r
- */\r
- function send_udp($packet, $packet_data)\r
- {\r
- if (extension_loaded('sockets') && $this->useEnhancedSockets) {\r
- if ($this->debug) {\r
- echo "\n;; using extended PHP sockets\n";\r
- }\r
- return $this->send_udp_with_sock_lib($packet, $packet_data);\r
- } else {\r
- if ($this->debug) {\r
- echo "\n;; using simple sockets\n";\r
- }\r
- return $this->send_udp_no_sock_lib($packet, $packet_data);\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::make_query_packet($packetORname, $type = '', $class = '') {{{ */\r
- /**\r
- * Unknown\r
- */\r
- function make_query_packet($packetORname, $type = '', $class = '')\r
- {\r
- if (is_object($packetORname) && strcasecmp(get_class($packetORname), 'net_dns_packet') == 0) {\r
- $packet = $packetORname;\r
- } else {\r
- $name = $packetORname;\r
- if ($type == '') {\r
- $type = 'A';\r
- }\r
- if ($class == '') {\r
- $class = 'IN';\r
- }\r
-\r
- /*\r
- * If the name looks like an IP address then do an appropriate\r
- * PTR query.\r
- */\r
- if (preg_match('/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/', $name, $regs)) {\r
- $name = $regs[4].'.'.$regs[3].'.'.$regs[2].'.'.$regs[1].'.in-addr.arpa.';\r
- $type = 'PTR';\r
- }\r
-\r
- if ($this->debug) {\r
- echo ";; query($name, $type, $class)\n";\r
- }\r
- $packet = new Net_DNS_Packet($this->debug);\r
- $packet->buildQuestion($name, $type, $class);\r
- }\r
-\r
- $packet->header->rd = $this->recurse;\r
- return $packet;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::axfr_old($dname, $class = 'IN') {{{ */\r
- /**\r
- * Performs an AXFR query (zone transfer) (OLD BUGGY STYLE)\r
- *\r
- * This is deprecated and should not be used!\r
- *\r
- * @param string $dname The domain (zone) to transfer\r
- * @param string $class The class in which to look for the zone.\r
- * @return object Net_DNS_Packet\r
- * @access public\r
- */\r
- function axfr_old($dname, $class = 'IN')\r
- {\r
- return $this->axfr($dname, $class, true);\r
- }\r
- /* }}} */\r
- /* Net_DNS_Resolver::axfr($dname, $class = 'IN', $old = false) {{{ */\r
- /**\r
- * Performs an AXFR query (zone transfer)\r
- *\r
- * Requests a zone transfer from the nameservers. Note that zone\r
- * transfers will ALWAYS use TCP regardless of the setting of the\r
- * Net_DNS_Resolver::$usevc flag. If $old is set to true, Net_DNS requires\r
- * a nameserver that supports the many-answers style transfer format. Large\r
- * zone transfers will not function properly. Setting $old to true is _NOT_\r
- * recommended and should only be used for backwards compatibility.\r
- *\r
- * @param string $dname The domain (zone) to transfer\r
- * @param string $class The class in which to look for the zone.\r
- * @param boolean $old Requires 'old' style many-answer format to function.\r
- Used for backwards compatibility only.\r
- * @return object Net_DNS_Packet\r
- * @access public\r
- */\r
- function axfr($dname, $class = 'IN', $old = false)\r
- {\r
- if ($old) {\r
- if ($this->debug) {\r
- echo ";; axfr_start($dname, $class)\n";\r
- }\r
- if (! count($this->nameservers)) {\r
- $this->errorstring = 'no nameservers';\r
- if ($this->debug) {\r
- echo ";; ERROR: no nameservers\n";\r
- }\r
- return null;\r
- }\r
- $packet = $this->make_query_packet($dname, 'AXFR', $class);\r
- $packet_data = $packet->data();\r
- $ans = $this->send_tcp($packet, $packet_data);\r
- return $ans;\r
- } else {\r
- if ($this->axfr_start($dname, $class) === null) {\r
- return null;\r
- }\r
- $ret = array();\r
- while (($ans = $this->axfr_next()) !== null) {\r
- if ($ans === null) {\r
- return null;\r
- }\r
- array_push($ret, $ans);\r
- }\r
- return $ret;\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::axfr_start($dname, $class = 'IN') {{{ */\r
- /**\r
- * Sends a packet via TCP to the list of name servers.\r
- *\r
- * @param string $packet A packet object to send to the NS list\r
- * @param string $packet_data The data in the packet as returned by\r
- * the Net_DNS_Packet::data() method\r
- * @return object Net_DNS_Packet Returns an answer packet object\r
- * @see Net_DNS_Resolver::send_tcp()\r
- */\r
- function axfr_start($dname, $class = 'IN')\r
- {\r
- if ($this->debug) {\r
- echo ";; axfr_start($dname, $class)\n";\r
- }\r
-\r
- if (! count($this->nameservers)) {\r
- $this->errorstring = "no nameservers";\r
- if ($this->debug) {\r
- echo ";; ERROR: axfr_start: no nameservers\n";\r
- }\r
- return null;\r
- }\r
- $packet = $this->make_query_packet($dname, "AXFR", $class);\r
- $packet_data = $packet->data();\r
-\r
- $timeout = $this->tcp_timeout;\r
-\r
- foreach ($this->nameservers as $ns) {\r
- $dstport = $this->port;\r
- if ($this->debug) {\r
- echo ";; axfr_start($ns:$dstport)\n";\r
- }\r
- $sock_key = "$ns:$dstport";\r
- if (is_resource($this->sockets[$sock_key])) {\r
- $sock = &$this->sockets[$sock_key];\r
- } else {\r
- if (! ($sock = fsockopen($ns, $dstport, $errno,\r
- $errstr, $timeout))) {\r
- $this->errorstring = "connection failed";\r
- if ($this->debug) {\r
- echo ";; ERROR: axfr_start: connection failed: $errstr\n";\r
- }\r
- continue;\r
- }\r
- $this->sockets[$sock_key] = $sock;\r
- unset($sock);\r
- $sock = &$this->sockets[$sock_key];\r
- }\r
- $lenmsg = pack("n", strlen($packet_data));\r
- if ($this->debug) {\r
- echo ";; sending " . strlen($packet_data) . " bytes\n";\r
- }\r
-\r
- if (($sent = fwrite($sock, $lenmsg)) == -1) {\r
- $this->errorstring = "length send failed";\r
- if ($this->debug) {\r
- echo ";; ERROR: axfr_start: length send failed\n";\r
- }\r
- continue;\r
- }\r
-\r
- if (($sent = fwrite($sock, $packet_data)) == -1) {\r
- $this->errorstring = "packet send failed";\r
- if ($this->debug) {\r
- echo ";; ERROR: axfr_start: packet data send failed\n";\r
- }\r
- }\r
-\r
- socket_set_timeout($sock, $timeout);\r
-\r
- $this->_axfr_sock = $sock;\r
- $this->_axfr_rr = array();\r
- $this->_axfr_soa_count = 0;\r
- return $sock;\r
- }\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::axfr_next() {{{ */\r
- /**\r
- * Requests the next RR from a existing transfer started with axfr_start\r
- *\r
- * @return object Net_DNS_RR Returns a Net_DNS_RR object of the next RR\r
- * from a zone transfer.\r
- * @see Net_DNS_Resolver::send_tcp()\r
- */\r
- function axfr_next()\r
- {\r
- if (! count($this->_axfr_rr)) {\r
- if (! isset($this->_axfr_sock) || ! is_resource($this->_axfr_sock)) {\r
- $this->errorstring = 'no zone transfer in progress';\r
- return null;\r
- }\r
- $timeout = $this->tcp_timeout;\r
- $buf = $this->read_tcp($this->_axfr_sock, 2, $this->debug);\r
- if (! strlen($buf)) {\r
- $this->errorstring = 'truncated zone transfer';\r
- return null;\r
- }\r
- $len = unpack('n1len', $buf);\r
- $len = $len['len'];\r
- if (! $len) {\r
- $this->errorstring = 'truncated zone transfer';\r
- return null;\r
- }\r
- $buf = $this->read_tcp($this->_axfr_sock, $len, $this->debug);\r
- if ($this->debug) {\r
- echo ';; received ' . strlen($buf) . "bytes\n";\r
- }\r
- if (strlen($buf) != $len) {\r
- $this->errorstring = 'expected ' . $len . ' bytes, received ' . strlen($buf);\r
- if ($this->debug) {\r
- echo ';; ' . $err . "\n";\r
- }\r
- return null;\r
- }\r
- $ans = new Net_DNS_Packet($this->debug);\r
- if (! $ans->parse($buf)) {\r
- if (! $this->errorstring) {\r
- $this->errorstring = 'unknown error during packet parsing';\r
- }\r
- return null;\r
- }\r
- if ($ans->header->ancount < 1) {\r
- $this->errorstring = 'truncated zone transfer';\r
- return null;\r
- }\r
- if ($ans->header->rcode != 'NOERROR') {\r
- $this->errorstring = 'errorcode ' . $ans->header->rcode . ' returned';\r
- return null;\r
- }\r
- foreach ($ans->answer as $rr) {\r
- if ($rr->type == 'SOA') {\r
- if (++$this->_axfr_soa_count < 2) {\r
- array_push($this->_axfr_rr, $rr);\r
- }\r
- } else {\r
- array_push($this->_axfr_rr, $rr);\r
- }\r
- }\r
- if ($this->_axfr_soa_count >= 2) {\r
- unset($this->_axfr_sock);\r
- }\r
- }\r
- $rr = array_shift($this->_axfr_rr);\r
- return $rr;\r
- }\r
-\r
- /* }}} */\r
- /* Net_DNS_Resolver::read_tcp() {{{ */\r
- /**\r
- * Unknown - not ported yet\r
- */\r
- function read_tcp($sock, $nbytes, $debug = 0)\r
- {\r
- $buf = '';\r
- while (strlen($buf) < $nbytes) {\r
- $nread = $nbytes - strlen($buf);\r
- $read_buf = '';\r
- if ($debug) {\r
- echo ";; read_tcp: expecting $nread bytes\n";\r
- }\r
- $read_buf = fread($sock, $nread);\r
- if (! strlen($read_buf)) {\r
- if ($debug) {\r
- echo ";; ERROR: read_tcp: fread failed\n";\r
- }\r
- break;\r
- }\r
- if ($debug) {\r
- echo ';; read_tcp: received ' . strlen($read_buf) . " bytes\n";\r
- }\r
- if (!strlen($read_buf)) {\r
- break;\r
- }\r
-\r
- $buf .= $read_buf;\r
- }\r
- return $buf;\r
- }\r
- /* }}} */\r
-}\r
-/* }}} */\r
-/* VIM settings {{{\r
- * Local variables:\r
- * tab-width: 4\r
- * c-basic-offset: 4\r
- * soft-stop-width: 4\r
- * c indent on\r
- * expandtab on\r
- * End:\r
- * vim600: sw=4 ts=4 sts=4 cindent fdm=marker et\r
- * vim<600: sw=4 ts=4\r
- * }}} */\r
-?>\r
+++ /dev/null
-- Replace:
-SURBL.php
-require_once 'Cache/Lite.php';
-require_once dirname(__FILE__) . '/../../Cache/Lite.php';
-
-require_once 'HTTP/Request.php';
-require_once dirname(__FILE__) . '/../../HTTP/Request.php';
-
-require_once 'Net/CheckIP.php';
-require_once dirname(__FILE__) . '/../CheckIP.php';
-
-require_once 'Net/DNSBL.php';
-require_once dirname(__FILE__) . '/../DNSBL.php';
\ No newline at end of file
+++ /dev/null
-<?php
-/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
-
-/**
- * PEAR::Net_DNSBL
- *
- * This class acts as interface to generic Realtime Blocking Lists
- * (RBL)
- *
- * PHP versions 4 and 5
- *
- * LICENSE: This source file is subject to version 3.01 of the PHP license
- * that is available through the world-wide-web at the following URI:
- * http://www.php.net/license/3_01.txt. If you did not receive a copy of
- * the PHP License and are unable to obtain it through the web, please
- * send a note to license@php.net so we can mail you a copy immediately.
- *
- * Net_DNSBL looks up an supplied host if it's listed in 1-n supplied
- * Blacklists
- *
- * @category Net
- * @package DNSBL
- * @author Sebastian Nohn <sebastian@nohn.net>
- * @author Ammar Ibrahim <fixxme@fixme.com>
- * @copyright 2004-2007 Sebastian Nohn <sebastian@nohn.net>
- * @license http://www.php.net/license/3_01.txt PHP License 3.01
- * @version CVS: $Id: SURBL.php,v 1.4 2006/12/25 10:40:59 nohn Exp $
- * @link http://pear.php.net/package/Net_DNSBL
- * @see Net_DNS
- * @since File available since Release 1.0.0
- */
-
-require_once 'Cache/Lite.php';
-require_once 'HTTP/Request.php';
-require_once 'Net/CheckIP.php';
-require_once 'Net/DNSBL.php';
-
-/**
- * PEAR::Net_DNSBL_SURBL
- *
- * This class acts as interface to the SURBL - Spam URI Realtime Blocklists.
- *
- * Services_SURBL looks up an supplied URI if it's listed in a
- * Spam URI Realtime Blocklists.
- *
- * @author Sebastian Nohn <sebastian@nohn.net>
- * @package Net_DNSBL
- * @license http://www.php.net/license/3_01.txt
- * @version 1.2.0
- */
-
-class Net_DNSBL_SURBL extends Net_DNSBL {
-
- /**
- * Array of blacklists.
- *
- * Must have one or more elements.
- *
- * @var string[]
- * @access protected
- */
- var $blacklists = array('multi.surbl.org');
-
- /**
- * File containing whitelisted hosts.
- *
- * There are some whitelisted hosts (co.uk for example). This
- * requires the package to not ask the domain name but the host
- * name (spammer.co.uk instead of co.uk).
- *
- * @var string
- * @see $twoLevelCcTld
- * @access protected
- */
- var $doubleCcTldFile = 'http://spamcheck.freeapp.net/two-level-tlds';
-
- /**
- * Array of whitelisted hosts.
- *
- * @var array
- * @see $twoLevelCcTldFile
- * @access private
- */
- var $twoLevelCcTld = array();
-
- /**
- * Check if the last two parts of the FQDN are whitelisted.
- *
- * @param string Host to check if it is whitelisted
- * @access protected
- * @return boolean True if the host is whitelisted
- */
- function isDoubleCcTld($fqdn)
- {
- // 30 Days should be way enough
- $options = array(
- 'lifeTime' => '2592000',
- 'automaticSerialization' => true
- );
- $id = md5($this->doubleCcTldFile);
-
- $cache = new Cache_Lite($options);
- if ($data = $cache->get($id)) {
- // Cache hit
- } else {
- // Cache miss
- $http = &new HTTP_Request($this->doubleCcTldFile);
- if (!PEAR::isError($http->sendRequest())) {
- $data = $http->getResponseBody();
- }
- $data = explode("\n", $data);
- $data = array_flip($data);
- $cache->save($data, $id);
- } // if
- if (array_key_exists($fqdn, $data)) {
- return true;
- } else {
- return false;
- } // if
- } // function
-
- /**
- * Get Hostname to ask for.
- *
- * Performs the following steps:
- *
- * (1) Extract the hostname from the given URI
- * (2) Check if the "hostname" is an ip
- * (3a) IS_IP Reverse the IP (1.2.3.4 -> 4.3.2.1)
- * (3b) IS_FQDN Check if is in "CC-2-level-TLD"
- * (3b1) IS_IN_2LEVEL: we want the last three names
- * (3b2) IS_NOT_2LEVEL: we want the last two names
- * (4) return the FQDN to query.
- *
- * @param string URL to check.
- * @access protected
- * @return string Host to lookup
- */
- function getHostForLookup($uri, $blacklist)
- {
- $host = '';
- // (1) Extract the hostname from the given URI
- $parsed_uri = parse_url($uri);
- $host = $parsed_uri['host'];
- // (2) Check if the "hostname" is an ip
- if (Net_CheckIP::check_ip($host)) {
- // (3a) IS_IP Reverse the IP (1.2.3.4 -> 4.3.2.1)
- $host = $this->reverseIp($host);
- } else {
- $host_elements = explode('.', $host);
- while (count($host_elements) > 3) {
- array_shift($host_elements);
- } // while
- $host_3_elements = implode('.', $host_elements);
-
- $host_elements = explode('.', $host);
- while (count($host_elements) > 2) {
- array_shift($host_elements);
- } // while
- $host_2_elements = implode('.', $host_elements);
-
- // (3b) IS_FQDN Check if is in "CC-2-level-TLD"
- if ($this->isDoubleCcTld($host_2_elements)) {
- // (3b1) IS_IN_2LEVEL: we want the last three names
- $host = $host_3_elements;
- } else {
- // (3b2) IS_NOT_2LEVEL: we want the last two names
- $host = $host_2_elements;
- } // if
- } // if
- // (4) return the FQDN to query
- $host .= '.'.$blacklist;
- return $host;
- } // function
-
-} // class
-?>
\ No newline at end of file
projects / s9y.git / commitdiff