<?php

# Creates guifi's Reverse Name Resolution Zone Files (RRZ) entries
# Gets data from guifi's CNML 'ips' command
#
# joan.llopart _AT_ guifi.net  09-2008

# Very simple example of use (Debian):
#
#	Install PHP's command line interpreter:
#		apt-get install php5-cli
#
# 	Put script in /root/scripts
#
# 	Set in root crontab:
# 		0 4 * * * cd /etc/bind && php /root/scripts/get_guifi_ips.php  && /etc/init.d/bind9 reload
#
#	Add this to /etc/bind/named.conf.local:
# 		zone "10.in-addr.arpa" IN {
# 		type master;
# 		file "/etc/bind/10.ip.guifi.net.rrz";
# 		};
# 		zone "172.in-addr.arpa" IN {
# 		type master;
# 		file "/etc/bind/172.ip.guifi.net.rrz";
# 		};
#

error_reporting( E_PARSE );
$timestamp = time();

# 172.x.x.x RRZ header
$rrz172 = <<<EOF
\$TTL 86400
\$ORIGIN 172.in-addr.arpa.
@               IN     SOA    ns1.guifi.net.   nobody.guifi.net. (
                   $timestamp     ; Serial no., based on date
                        21600     ; Refresh after 6 hours
                         3600     ; Retry after 1 hour
                       604800     ; Expire after 7 days
                         3600     ; Minimum TTL of 1 hour
                      )

@               IN      NS      ns1.guifi.net.

EOF;

# 10.x.x.x RRZ header
$rrz10 = <<<EOF
\$TTL 86400
\$ORIGIN 10.in-addr.arpa.
@               IN     SOA    ns1.guifi.net.   nobody.guifi.net. (
                   $timestamp     ; Serial no., based on date
                        21600     ; Refresh after 6 hours
                         3600     ; Retry after 1 hour
                       604800     ; Expire after 7 days
                         3600     ; Minimum TTL of 1 hour
                      )

@               IN      NS      ns1.guifi.net.

EOF;

$cnml = '';
$h = fopen("http://guifi.net/guifi/cnml/0/ips", "r") or die( "Unable to fetch CNML.\n" );
while (!feof($h)) { $cnml .= fgets( $h ) or die( "Unable to read CNML.\n" ); }
fclose( $h );

$xml = new SimpleXMLElement( $cnml );

foreach ($xml->subnet as $subnet) {

	$tmp='';
	foreach ($subnet->IP as $ip) {
		# Need to output octets in reverse order
		list( $ip1, $ip2, $ip3, $ip4 ) = split( "\.", $ip['address'], 4 );
		# Only "A-Z", "a-z", "-" and "0-9" are allowed
		$nick = preg_replace( '/[^A-Za-z-0-9]/i', '', $ip['nick']  );
		# Nice looking TABs
		if( strlen( "$ip4$ip3$ip2" ) < 6 ) { $ip2.="\t"; }
	
		$tmp .= "$ip4.$ip3.$ip2\tIN\tPTR\t$nick--{$ip['device_id']}.ip.guifi.net.\n";
	}
	
	switch ($subnet['range'] ) {
		case '172':
			$rrz172 .= $tmp;
			break;
		case '10':
			$rrz10 .= $tmp;
			break;			
	}

}


$fn="172.ip.guifi.net.rrz";
$h = fopen($fn, 'w') or die( "Unable to create file ($fn), check filesystem permissions.\n" );
fwrite($h, $rrz172) or die( "Unable to write to file ($fn).\n" );
fclose($h);

$fn="10.ip.guifi.net.rrz";
$h = fopen($fn, 'w') or die( "Unable to create file ($fn), check filesystem permissions.\n" );
fwrite( $h, $rrz10 ) or die( "Unable to write to file ($fn).\n" );
fclose($h);


?>