pfSense » pfSense Packages

<?php

/* $Id$ */

/*

	tinydns.inc

	Copyright (C) 2006, 2007, 2008, 2009 Scott Ullrich

	Parts Copyright (C) 2007 Goffredo Andreone

	part of pfSense

	All rights reserved.

	Redistribution and use in source and binary forms, with or without

	modification, are permitted provided that the following conditions are met:

	1. Redistributions of source code must retain the above copyright notice,

	   this list of conditions and the following disclaimer.

	2. Redistributions in binary form must reproduce the above copyright

	   notice, this list of conditions and the following disclaimer in the

	   documentation and/or other materials provided with the distribution.

	THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,

	INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY

	AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE

	AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,

	OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF

	SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS

	INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN

	CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)

	ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

	POSSIBILITY OF SUCH DAMAGE.

*/

if(!function_exists("filter_configure")) 

	require_once("filter.inc");

function tinydns_custom_php_install_command() {

	global $g, $config;

	conf_mount_rw();

	$fd = fopen("/usr/local/etc/rc.d/svscan.sh", "w");

	if(!$fd) {

		log_error("Could not open /usr/local/etc/rc.d/svscan.sh for writing.");

		return;

	}

	$ipaddress = $config['installedpackages']['tinydns']['config'][0]['ipaddress'];

	$minsegment = "10240";

	$maxfilesize = "10240";

	$maxsegment  = "20480";

	$maxfd = "100";

	$maxchild = "40";

	if($config['installedpackages']['tinydns']['config'][0]['minsegment'])

		$minsegment = $config['installedpackages']['tinydns']['config'][0]['minsegment'];

	if($config['installedpackages']['tinydns']['config'][0]['maxfilesize'])

		$maxfilesize = $config['installedpackages']['tinydns']['config'][0]['maxfilesize'];

	if($config['installedpackages']['tinydns']['config'][0]['maxsegment'])

		$maxsegment = $config['installedpackages']['tinydns']['config'][0]['maxsegment'];

	if($config['installedpackages']['tinydns']['config'][0]['maxfd'])

		$maxfd = $config['installedpackages']['tinydns']['config'][0]['maxfd'];

	if($config['installedpackages']['tinydns']['config'][0]['maxchild'])

		$maxchild = $config['installedpackages']['tinydns']['config'][0]['maxchild'];

	if($config['installedpackages']['tinydns']['config'][0]['refreshinterval'])

		$refreshinterval = $config['installedpackages']['tinydns']['config'][0]['refreshinterval'];

	$svscan = <<<EOD

#!/bin/sh

# PROVIDE: svscan

# REQUIRE: LOGIN

# KEYWORD: FreeBSD

. /etc/rc.subr

name="svscan"

rcvar=`set_rcvar`

command="/usr/local/bin/svscan"

svscan_enable=\${svscan_enable-"YES"}

svscan_servicedir=\${svscan_servicedir-"/service"}

start_cmd="svscan_start"

stop_postcmd="svscan_stop_post"

load_rc_config \$name

required_dirs="\${svscan_servicedir}"

svscan_start () {

        echo "Starting svscan."

        /usr/bin/env \

        PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin \

        /usr/sbin/daemon -f /bin/sh -c "\$command \$svscan_servicedir 2>&1 | /usr/local/bin/readproctitle service errors: ................................................................................................................................................................................................................................................................................................................................................................................................................ &" > /dev/null

        minicron {$refreshinterval} /var/run/ping_hosts.pid "/etc/ping_hosts.sh; cd /etc/tinydns/root && /usr/local/bin/tinydns-data"

}

svscan_stop_post () {

        echo "Stopping svscan."

        find -L "\$svscan_servicedir" -mindepth 1 -maxdepth 2 -type d \( \! -path "\$svscan_servicedir/*/*" -or -name 'log' \) -print0 | xargs -0 /usr/local/bin/svc -dx

        PIDTOKILL=`cat /var/run/ping_hosts.pid`

        kill $PIDTOKILL

}

run_rc_command "\$1"

EOD;

	fwrite($fd, $svscan);

	fclose($fd);

	conf_mount_ro();

	filter_configure();

	tinydns_custom_php_changeip_command();

	exec("/usr/local/etc/rc.d/svscan.sh start");

}

function tinydns_custom_php_deinstall_command() {

	global $g, $config;

	conf_mount_rw();

	/* destroy all daemontools items */

	exec("/usr/bin/killall supervise");

	exec("/usr/bin/killall tinydns");	

	exec("/usr/sbin/pw groupdel Gtinydns");

	exec("/usr/sbin/pw groupdel Gdnscache");

	exec("/usr/sbin/pw groupdel Gdnslog");

	exec("/usr/sbin/pw userdel Gtinydns");

	exec("/usr/sbin/pw userdel Gdnscache");

	exec("/usr/sbin/pw userdel Gdnslog");

	exec("/usr/sbin/pw groupdel Gaxfrdns");

	exec("rm /usr/local/www/*tinydns*");

	exec("rm /usr/local/pkg/*tinydns*");

	exec("rm /usr/local/pkg/pf/*tinydns*");

	exec("rm -rf /etc/tinydns");

	filter_configure();

	conf_mount_ro();

}

function tinydns_custom_php_changeip_command() {

	global $g, $config;

	conf_mount_rw();

	$ip = $config['interfaces']['lan']['ipaddr'];

	$ipmask = $config['interfaces']['lan']['subnet'];

	$arr = tinydns_get_ip_subnet_arpa($ip, $ipmask);

	$dnscacheip = $ip;

	$dnsuserip = $arr[0];

	/* For now force $dnsserverip to to 127.0.0.1 unless a separate IP is specified */

	$localhost = "127.0.0.1";

	$dnsserverip = $localhost;

	if($config['installedpackages']['tinydns']['config'][0]['ipaddress'] != $localhost AND $config['installedpackages']['tinydns']['config'][0]['ipaddress'] != "")

		$dnsserverip = $config['installedpackages']['tinydns']['config'][0]['ipaddress'];

	if($config['installedpackages']['tinydns']['config'][0]['regdhcpstatic'] OR $config['installedpackages']['tinydns']['config'][0]['regdhcp']) 

		$dnsserverip = $localhost;

	$config['installedpackages']['tinydns']['config'][0]['ipaddress'] = $dnsserverip;

	$updatecron = $config['installedpackages']['tinydns']['config'][0]['updatecron'];

	/* Populate Zone Transfer array */

	$ztipaddress = populate_zt_array();

	/* setup daemon tools service area */

	if(!is_dir("/service"))	

		exec("/bin/mkdir /service");

	exec("/usr/sbin/pw useradd Gtinydns");

	exec("/usr/sbin/pw useradd Gdnslog");

	exec("/usr/sbin/pw useradd Gdnscache");

	exec("/usr/sbin/pw useradd Gaxfrdns");

	/* TinyDNS Server */

	exec("/usr/local/bin/tinydns-conf Gtinydns Gdnslog /etc/tinydns {$dnsserverip}");

	exec("/bin/ln -s /etc/tinydns /service/");

	/* AXFRDNS - Zone transfers */

	if(is_array($ztipaddress)) {

		exec("/usr/local/bin/axfrdns-conf Gaxfrdns Gdnslog /etc/axfrdns /etc/tinydns {$dnsserverip}");

                tinydns_setup_axfrdns();

        }

	exec("/bin/ln -s /etc/axfrdns /service/");

	exec("echo {$dnsserverip} > /etc/tinydns/env/IP");

	exec("/usr/bin/killall -9 tinydns");

	if($config['installedpackages']['tinydns']['config'][0]['enableforwarding']) {

		if(!is_dir("/service/dnscache")) {

			exec("/usr/sbin/pw useradd Gdnscache");

			exec("/usr/local/bin/dnscache-conf Gdnscache Gdnslog /etc/dnscache {$dnscacheip}");

			exec("/bin/ln -s /etc/dnscache /service/");

			exec("/bin/cp /var/etc/resolv.conf /var/etc/resolv.conf.original");

			exec("/bin/cp /var/etc/resolv.conf /var/etc/resolv.conf.dnscache");

		}

		exec("echo {$dnscacheip} > /etc/dnscache/env/IP");

		tinydns_dnscache_forwarding_servers();

		exec("touch /etc/dnscache/root/ip/{$dnsuserip}");

		tinydns_create_soa_domain_list($dnsserverip);

		exec("echo domain {$config['system']['domain']} > /var/etc/resolv.conf");

		exec("echo nameserver {$dnscacheip} >> /var/etc/resolv.conf");

		exec("/usr/bin/killall -9 dnscache");

	} else {

		if(file_exists("/var/etc/resolv.conf.original"))

			exec("/bin/cp /var/etc/resolv.conf.original /var/etc/resolv.conf");

		if(is_dir("/etc/dnscache")) {

			dnscache_use_root_servers();

			exec("/usr/bin/killall -9 dnscache");

		}

	}

	conf_mount_ro();

	filter_configure();

}

function populate_zt_array() {

	global $g, $config;	

	/* Populate Zone Transfer array */

	if($config['installedpackages']['tinydns']['config'][0]['row']) {

		$ztipaddress = array();

		foreach($config['installedpackages']['tinydns']['config'][0]['row'] as $zt) {

			$tmp = array();

			$tmp['ztipaddress'] = $zt['ztipaddress'];

			$tmp['dnszone'] = $zt['dnszone'];

			$ztipaddress[] = $tmp;

		}

	}

	return $ztipaddress;

}

function tinydns_setup_axfrdns() {

	global $g, $config;

	/* Populate Zone Transfer array */

	$ztipaddress = populate_zt_array();

	if(!is_array($ztipaddress)) 

		return;

	$fd = fopen("/etc/axfrdns/tcp","w");

	if(!$fd) {

		log_error("Could not open /etc/axfrdns/tcp for writing");

		return;

	}

        // Add a default deny rule

        fwrite($fd, ":deny\n");

	foreach($ztipaddress as $zt) {

		if($zt['ztipaddress'] && $zt['dnszone'])

			$zonet = "{$zt['ztipaddress']}:allow";

			if($zt['dnszone'] <> "*")

				$zonet .= ",AXFR=\"{$zt['dnszone']}\"";

			fwrite($fd, $zonet . "\n");

	}

	fclose($fd);

	// Recompile database

	exec("cd /service/axfrdns && tcprules tcp.cdb tcp.tmp < tcp");

}

function tinydns_get_record_status($record, $pingthreshold = "", $wanpingthreshold = "") {

	global $g, $config;

	if(file_exists("/var/db/pingstatus/{$record}")) {

		$status = "";

		$status = file_get_contents("/var/db/pingstatus/{$record}");

		if(stristr($status,"DOWN"))

			return "DOWN";

	}

	if($pingthreshold) {

		$current_ms = "";

		if(file_exists("var/db/pingmsstatus/$record"))

			$current_ms = file_get_contents("/var/db/pingmsstatus/$record");

		if($pingthreshold > $current_ms)

			return "DOWN";

	}

	if($wanpingthreshold) {

		$current_avg = "";

		if(file_exists("/var/db/wanaverage"))

			$current_avg = file_get_contents("/var/db/wanaverage");

		if($wanpingthreshold > $current_avg)

			return "DOWN";

	}

	return "UP";

}

function tinydns_get_backup_record($record) {

	global $g, $config;

	if($config['installedpackages']['tinydnsdomains']) {

		foreach($config['installedpackages']['tinydnsdomains']['config'] as $domain) {

			if($domain['ipaddress'] == $record) {

				/* if no failover host exists, simply return original record */

				if(!$domain['row'])

					return $record;

				foreach($domain['row'] as $row) {

					$status = tinydns_get_record_status($row['failoverip']);

					if($status == "UP")

						return $row['failoverip'];

				}

			}

		}

	}

	return $record;

}

function tinydns_setup_ping_items() {

	global $g, $config;

	if(!$config['installedpackages']['tinydnsdomains'])

		return;

	$wanif = get_real_wan_interface();

	$ip = find_interface_ip($wanif);

	conf_mount_rw();

	$processed = array();

	/* XXX: make this work with other packages */

	$fd = fopen("/var/db/pkgpinghosts", "w");

	if(!$fd) {

		log_error("Could not open /var/db/pkgpinghosts for writing.");

		return;

	}

	config_lock();

	/*   write out each ip address so ping_hosts.sh can begin monitoring ip

	 *   status and create a database of the status information that we can use.

	 */

	foreach($config['installedpackages']['tinydnsdomains']['config'] as $domain) {

		if(!in_array($domain['ipaddress'], $processed)) {

			fwrite($fd, $ip . "|" . $domain['ipaddress'] . "|1|/usr/local/pkg/tinydns_down.php|/usr/local/pkg/tinydns_up.php\n");

			$processed[] = $domain['ipaddress'];

		}

		if($domain['monitorip'] <> "")

			$monitorip = $domain['monitorip'];

		if($domain['row']) {

			foreach($domain['row'] as $row) {

				if($row['pingthreshold'])

					$pingthreshold = $row['pingthreshold'];

				else

					$row['pingthreshold'] = "";

				if($row['monitorip']) {

					if(!in_array($row['monitorip'], $processed)) {

						fwrite($fd, $ip . "|" . $row['monitorip'] . "|1|/usr/local/pkg/tinydns_down.php|/usr/local/pkg/tinydns_up.php|{$pingthreshold}\n");

						$processed[] = $row['monitorip'];

					}

				} else {

					if(!in_array($monitorip, $processed)) {

						fwrite($fd, $ip . "|" . $monitorip . "|1|/usr/local/pkg/tinydns_down.php|/usr/local/pkg/tinydns_up.php|{$pingthreshold}\n");

						$processed[] = $monitorip;

					}

				}

			}

		}

		if($domain['monitorip']) {

			if(!in_array($domain['monitorip'], $processed)) {

				fwrite($fd, $ip . "|" . $domain['monitorip'] . "|1|/usr/local/pkg/tinydns_down.php|/usr/local/pkg/tinydns_up.php|{$pingthreshold}\n");

				$processed[] = $domain['monitorip'];

			}

		} else {

			if(!in_array($row['failoverip'], $processed)) {

				fwrite($fd, $ip . "|" . $row['failoverip'] . "|1|/usr/local/pkg/tinydns_down.php|/usr/local/pkg/tinydns_up.php|{$pingthreshold}\n");

				$processed[] = $row['failoverip'];

			}

		}

	}

	fclose($fd);

	config_unlock();

	conf_mount_ro();

}

function tinydns_create_zone_file() {

	global $g, $config;

	conf_mount_rw();

	if(file_exists("/tmp/config.cache"))

		unlink("/tmp/config.cache");

	parse_config(true);

	config_lock();

	if(file_exists("/service/tinydns/root/data"))

		exec("rm -f /service/tinydns/root/data");

	if(!is_dir("/service/tinydns/root"))

		return;

	$fd = fopen("/service/tinydns/root/data", "w");

	if(!$fd) {

		log_error("Could not open /service/tinydns/root/data for writing.");

		return;

	}

	/* For now do not allow registration of 'local' DNS data if tinyDNS not bound to 127.0.0.1 */

	if($config['installedpackages']['tinydns']['config'][0]['ipaddress'] == "127.0.0.1") {

		/* Load the root servers if Forwarding is enabled  */

		/* Register LAN IP and SOA Forward and Reverse DNS recors in TinyDNS Server*/

		if($config['installedpackages']['tinydns']['config'][0]['enableforwarding']) {

			$forwardingservers = tinydns_register_root_servers();

			if($forwardingservers) 

				fwrite($fd, $forwardingservers);

			if($config['system']['hostname']['domain']) {

				$dhcpdhostname = $config['system']['hostname'];		

				if($config['dhcpd']['lan'])

					$dhcpddomain = $config['system']['domain'];

				$dhcpdlanip = $config['interfaces']['lan']['ipaddr'];		

				$dhcpdipmask = $config['interfaces']['lan']['subnet'];		

				$dhcpdfqdn = "{$dhcpdhostname}.{$dhcpddomain}";

				tinydns_complete_soa_record($fd, $dhcpdlanip, $dhcpdipmask, $dhcpdhostname, $dhcpddomain);

			}

		}

		/* Register Static IPs */

        if($config['installedpackages']['tinydns']['config'][0]['regdhcpstatic']) {

                foreach($config['dhcpd'] as $zone_key => $zone ) {

                        $dhcpdhostname = $config['system']['hostname'];

                        if ($zone['ddnsdomain']) 

                                $dhcpddomain = $zone['ddnsdomain'];

                        else

                                $dhcpddomain = $config['system']['domain'];

                        $dhcpdlanip = $config['interfaces'][$zone_key]['ipaddr'];

                        $dhcpdipmask = $config['interfaces'][$zone_key]['subnet'];

                        $dhcpdfqdn = "{$dhcpdhostname}.{$dhcpddomain}";

                        tinydns_complete_soa_record($fd, $dhcpdlanip, $dhcpdipmask, $dhcpdhostname, $dhcpddomain);

                        if(is_array($zone['staticmap'])) {

                                foreach($zone['staticmap'] as $dhcpdstatic) {

                                        $dhcpdhostname = $dhcpdstatic['hostname'];

                                        $dhcpdfqdn = "{$dhcpdhostname}.{$dhcpddomain}";

                                        $dhcpdlanip = $dhcpdstatic['ipaddr'];

                                        $dhcpda = "={$dhcpdfqdn}:{$dhcpdlanip}";

                                        if($dhcpdhostname)

                                                fwrite($fd, $dhcpda . "\n");

                                }

                        }

                }

        }

		/* Register Dynamic IPs */

		if($config['installedpackages']['tinydns']['config'][0]['regdhcp']) {

			$leasesfile = "{$g['dhcpd_chroot_path']}/var/db/dhcpd.leases";

			$fl = fopen($leasesfile, "r");

			if(!$fl) {

				log_error("Could not open {$leasesfile} for reading.");

				return;

			}

			tinydns_add_active_leases($fl,$fd, $dhcpddomain);

		}

	}

	if($config['installedpackages']['tinydnsdomains']) {

		for($x=0; $x< count($config['installedpackages']['tinydnsdomains']['config']); $x++) {

			$domain = $config['installedpackages']['tinydnsdomains']['config'][$x];

			$record_data = "";

			$hostname = $domain['hostname'];

			$ipaddress = $domain['ipaddress'];

			$ttl = $domain['ttl'];

			$dist = $domain['dist'];

			/*   check record status, if it is down request

			 *   backup server if defined.

			 */

			if($domain['monitorip'])

				$monitorip = $domain['monitorip'];

			if($monitorip) {

				$status = tinydns_get_record_status($monitorip);

				if($status == "DOWN") {

					if($debug)

						log_error("$ipaddress monitor ip $monitorip is offline.");

					$ipaddress = tinydns_get_backup_record($ipaddress);

					if($debug)

						log_error("tinydns_get_backup_record returned $ipaddress ");

				}

			}

			$record_data = tinydns_get_rowline_data($ipaddress, $domain['recordtype'], $ttl, $hostname, $domain['rdns'], $dist);

			if($record_data) 

				fwrite($fd, $record_data . "\n");

			/* process load balanced items */

			if($domain['row']) {

				foreach($domain['row'] as $row) {

					if($row['loadbalance']) {

						if($row['pingthreshold'])

							$pingthreshold = $row['pingthreshold'];

						else

							$pingthreshold = "";

						if($row['wanpingthreshold'])

							$wanpingthreshold =	$row['wanpingthreshold'];

						else

							$wanpingthreshold = "";

						$status = tinydns_get_record_status($row['failoverip'], $pingthreshold, $wanpingthreshold);

						if($status == "DOWN") {

							$record_data = tinydns_get_rowline_data($row['failoverip'], $domain['recordtype'], $ttl, $hostname, "");

							fwrite($fd, $record_data . "\n");

						}

					}

				}

			}

		}

	}

	fclose($fd);

	/* tell tinydns to reload zone file */

	exec("cd /service/tinydns/root && /usr/local/bin/tinydns-data");

	config_unlock();

	conf_mount_ro();

}

function tinydns_sync_on_changes() {

	global $g, $config;

	log_error("[tinydns] tinydns_xmlrpc_sync.php is starting.");

	$synconchanges = $config['installedpackages']['tinydnssync']['config'][0]['synconchanges'];	

	if(!$synconchanges) 

		return;

	$sync_hosts = $config['installedpackages']['tinydnssync']['config'];

	$previous_ip = "";

	$x=0;

	$sh = $config['installedpackages']['tinydnssync']['config'][0];

	for($x=1; $x<5; $x++) {

		if($x > 1) 

			$counter = $x;

		else 

			$counter = "";

		$sync_to_ip = "";

		$password = "";

		if($sh['ipaddress' . $counter]) {

			$sync_to_ip = $sh['ipaddress' . $counter];

			$password   = $sh['password'  . $counter];

		}

		if($password && $sync_to_ip)

			tinydns_do_xmlrpc_sync($sync_to_ip, $password);

	}

	tinydns_create_zone_file();

	tinydns_setup_ping_items();

	log_error("[tinydns] tinydns_xmlrpc_sync.php is ending.");

}

function tinydns_do_xmlrpc_sync($sync_to_ip, $password) {

	global $config, $g;

	if(!$password)

		return;

	if(!$sync_to_ip)

		return;

	$xmlrpc_sync_neighbor = $sync_to_ip;

    if($config['system']['webgui']['protocol'] != "") {

		$synchronizetoip = $config['system']['webgui']['protocol'];

		$synchronizetoip .= "://";

    }

    $port = $config['system']['webgui']['port'];

    /* if port is empty lets rely on the protocol selection */

    if($port == "") {

		if($config['system']['webgui']['protocol'] == "http") 

			$port = "80";

		else 

			$port = "443";

    }

	$synchronizetoip .= $sync_to_ip;

	/* xml will hold the sections to sync */

	$xml = array();

	$xml['tinydnsdomains'] = $config['installedpackages']['tinydnsdomains'];

	/* assemble xmlrpc payload */

	$params = array(

		XML_RPC_encode($password),

		XML_RPC_encode($xml)

	);

	/* set a few variables needed for sync code borrowed from filter.inc */

	$url = $synchronizetoip;

	log_error("Beginning TinyDNS XMLRPC sync to {$url}:{$port}.");

	$method = 'pfsense.merge_installedpackages_section_xmlrpc';

	$msg = new XML_RPC_Message($method, $params);

	$cli = new XML_RPC_Client('/xmlrpc.php', $url, $port);

	$cli->setCredentials('admin', $password);

	if($g['debug'])

		$cli->setDebug(1);

	/* send our XMLRPC message and timeout after 250 seconds */

	$resp = $cli->send($msg, "250");

	if(!$resp) {

		$error = "A communications error occured while attempting tinydns XMLRPC sync with {$url}:{$port}.";

		log_error($error);

		file_notice("sync_settings", $error, "tinydns Settings Sync", "");

	} elseif($resp->faultCode()) {

		$cli->setDebug(1);

		$resp = $cli->send($msg, "250");

		$error = "An error code was received while attempting tinydns XMLRPC sync with {$url}:{$port} - Code " . $resp->faultCode() . ": " . $resp->faultString();

		log_error($error);

		file_notice("sync_settings", $error, "tinydns Settings Sync", "");

	} else {

		log_error("tinydns XMLRPC sync successfully completed with {$url}:{$port}.");

	}

	/* tell tinydns to reload our settings on the destionation sync host. */

	$method = 'pfsense.exec_php';

	$execcmd  = "require_once('/usr/local/pkg/tinydns.inc');\n";

	$execcmd .= "tinydns_custom_php_changeip_command();\n";

	$execcmd .= "tinydns_create_zone_file();\n";

	$execcmd .= "tinydns_setup_ping_items();\n";

	/* assemble xmlrpc payload */

	$params = array(

		XML_RPC_encode($password),

		XML_RPC_encode($execcmd)

	);

	log_error("tinydns XMLRPC reload data {$url}:{$port}.");

	$msg = new XML_RPC_Message($method, $params);

	$cli = new XML_RPC_Client('/xmlrpc.php', $url, $port);

	$cli->setCredentials('admin', $password);

	$resp = $cli->send($msg, "250");

	if(!$resp) {

		$error = "A communications error occured while attempting tinydns XMLRPC sync with {$url}:{$port} (pfsense.exec_php).";

		log_error($error);

		file_notice("sync_settings", $error, "tinydns Settings Sync", "");

	} elseif($resp->faultCode()) {

		$cli->setDebug(1);

		$resp = $cli->send($msg, "250");

		$error = "An error code was received while attempting tinydns XMLRPC sync with {$url}:{$port} - Code " . $resp->faultCode() . ": " . $resp->faultString();

		log_error($error);

		file_notice("sync_settings", $error, "tinydns Settings Sync", "");

	} else {

		log_error("tinydns XMLRPC reload data success with {$url}:{$port} (pfsense.exec_php).");

	}

}

/* formats data as a tinydns data row item */

function tinydns_get_rowline_data($recordip, $recordtype, $ttl, $hostname, $rdns, $dist) {

		if($ttl)

			$ttl_string = ":{$ttl}";

		else

			$ttl_string = "";

		switch ($recordtype) {

			/* Note that some of these are simplistic versions of TinyDNS record handling.  Uber-users can always do "raw" entries...  */

			case "SOA":	

				//     .fqdn:ip:x:ttl:timestamp:lo

				$record_data = ".{$hostname}::{$recordip}{$ttl_string}";

				break;

			case "NS":

				//      &serious.panic.mil:1.8.248.6:a

				$record_data = "&{$hostname}:{$recordip}{$ttl_string}";

				break;

			case "MX":

				//      @fqdn:ip:x:dist:ttl:timestamp:lo

				if(!$dist)

					$dist = "10"; // default to 10 if no preference has been defined.  0 is ugly.

				$record_data = "@{$hostname}:{$recordip}::{$dist}{$ttl_string}";

				break;

			case "PTR":

				/* "^" creates "PTR" record only to allow reverse DNS */

				//		^fqdn:p:ttl:timestamp:lo

				$record_data = "^{$hostname}:{$recordip}{$ttl_string}";

				break;

			case "A":

				/* "=" creates both "A" and "PTR" records to allow both forward and reverse DNS */

				if($rdns) {

					//		=fqdn:ip:ttl:timestamp:lo

					$record_data = "={$hostname}:{$recordip}{$ttl_string}";

				} else {

					/* "+" creates "A" records only to allow forward DNS */

					//		+fqdn:ip:ttl:timestamp:lo

					$record_data = "+{$hostname}:{$recordip}{$ttl_string}";

				}

				break;

			case "CNAME":

				//     Cfqdn:p:ttl:timestamp:lo

				$record_data = "C{$hostname}:{$recordip}{$ttl_string}";

				break;

			case "TXT":

				/* "'" creates "TXT" record                                                             */

				/* ":" creates a generic record entry, (and record code 16 below makes it a TXT record) */

				/* Q: Why bother with generic?                                                          */

				/* A: TinyDNS TXT records get split up every 127 chars and some clients have trouble re-assembling them.                               */

				/* TinyDNS generic records allow up to the maximum DNS record size of 255 chars but it is a hard limit, no splitting of larger strings */

				/* ...so try to always create the best record for the need                                                                             */

				/* Initial cleanup required for TXT records in TinyDNS where we substitute Octal escape codes for certain chars*/

				$saferecordip = str_replace(":", "\\072", $recordip);

				$saferecordip = str_replace(" ", "\\040", $saferecordip);

				$saferecordip = str_replace("\r", "\\015", $saferecordip);

				$saferecordip = str_replace("\n", "\\012", $saferecordip);

				/* Logically this should be comparing against 127 and 255 but PHP has a boundary error?                 */

				/* Boundary errors or not, 128 and 256 at least evaluate properly!!!                                    */

				/* Also note that reclen checks against the original string and not the "safe" one we generated above.  */

				$reclen = mb_strlen($recordip, '8bit');

				if($reclen > 128 && $reclen <= 256) {	

					/* TinyDNS generic records require an escaped Octal string length padded to three chars before the actual string!    */

					/* The logic here shouldn't ever require padding but including it anyway in case somebody changes code down the road */

					$reclen = str_pad(decoct($reclen),3,"0",STR_PAD_LEFT);

					//		:fqdn:n:rdata:ttl:timestamp:lo

					$record_data = ":{$hostname}:16:\\{$reclen}{$saferecordip}{$ttl_string}";

				} else {

					//		'fqdn:s:ttl:timestamp:lo

					$record_data = "'{$hostname}:{$saferecordip}{$ttl_string}";

				}	

				break;

			case "raw":

				/* We don't know or care what is in a raw entry, just pass it along as-is */

				$record_data = "{$recordip}";

				break;				

		}

		return $record_data;

}

/* Returns the last IP byte and the Trimmed IP*/

function tinydns_get_lastip_byte($ipsub) {

	$len= strlen($ipsub); 	

	$pos = strrpos($ipsub, ".");

	$last_byte = "";

	if ($pos === false) { 

			$last_byte = $ipsub; 

			return array ($last_byte,$ipsub); 

	} 

	$last_byte = substr($ipsub,$pos + 1);

	$ipsub = substr($ipsub,0,$pos);

	return array ($last_byte,$ipsub);

}

/* in-add.arpa IP calculated from D.C.B.A and Mask to A.B.C.D.in-addr.arpa */

/* subnet IP calculated from A.B.C.D and Mask */

function tinydns_get_ip_subnet_arpa($ip, $ipmask) {

	$ipsub = $ip;	

	$arpaip = "";	

	$array = tinydns_get_lastip_byte($ipsub);

	$a = $array[0];

	$ipsub = $array[1];

	$array = tinydns_get_lastip_byte($ipsub);

	$b = $array[0];

	$ipsub = $array[1];

	$array = tinydns_get_lastip_byte($ipsub);

	$c = $array[0];

	$ipsub = $array[1];

	$array = tinydns_get_lastip_byte($ipsub);

	$d = $array[0];

	$ipsub = $array[1];

	switch ($ipmask) {

		case ($ipmask <= 32 AND $ipmask > 24):

			$s = 32 - $ipmask;

			$a >> $s;

			$arpaip = "{$a}.{$b}.{$c}.{$d}.in-addr.arpa";

			$subnet = "{$d}.{$c}.{$b}.{$a}";

			break;

		case ($ipmask <= 24 AND $ipmask > 16):

			$s = 24 - $ipmask;

			$b >> $s;

			$arpaip = "{$b}.{$c}.{$d}.in-addr.arpa";

			$subnet = "{$d}.{$c}.{$b}";

			break;

		case ($ipmask <= 16 AND $ipmask > 8):

			$s = 16 - $ipmask;

			$c >> $s;

			$arpaip = "{$c}.{$d}.in-addr.arpa";

			$subnet = "{$d}.{$c}";

			break;

		case ($ipmask <= 8 AND $ipmask > 0):

			$s = 8 - $ipmask;

			$d >> $s;

			$arpaip = "{$d}.in-addr.arpa";

			$subnet = "{$d}";

			break;

		}

	return 	array($subnet,$arpaip);

}

/* Create a Forward and a Reverse DNS (SOA, A, PTR) records for Fully Qualififed Domain Name*/

function tinydns_complete_soa_record($fd, $ip, $ipmask, $nsname, $domain) {

	$fqdn = "{$nsname}.{$domain}";

	$rip = tinydns_get_ip_subnet_arpa($ip, $ipmask);

	$soa = ".{$domain}::{$fqdn}";

	$rsoa = ".{$rip[1]}::{$fqdn}";

	$a = "={$fqdn}:{$ip}";

	if($fqdn)

		fwrite($fd, $soa . "\n");

	if($rip) 

		fwrite($fd, $rsoa . "\n");

	if($nsname) 

		fwrite($fd, $a . "\n");

}

/* Search for active leases in the dhcpd.leases file and add them to tinyDNS */

/* Currently it will add duplicate leases that are ignored by thee tinyDNS server*/

/* Should duplicate leases be purged by DCHCP server in a remove stale records operation? */

function tinydns_add_active_leases($fl,$fd, $leasedomain) {

	$i = 0;

	$lip = strlen("lease") + 1;

	$lis = strlen("binding state active");

	$lic = strlen("client-hostname");

	$leaseip = "";

	$leasestatus = "";

	$leasehostname = "";

	while (!feof($fl)) {

		$leases = fgets($fl, 4096);

		$discard = ($leases[0] == "#") OR ($leases[0] == "\n"); 

		if(!$discard) {

			if($leaseip == "") {

				if ($leaseip = strstr($leases,"lease")) {

					$leaseip = substr($leaseip,$lip,strpos($leases,"{") - $lip - 1);

				}

			}

			elseif($leasestatus == FALSE) {

				if (stristr($leases,"binding state active")) {

					$leasestatus = TRUE;

				}

			}