Merge branch 'master' into bootstrap

1 files changed, 447 insertions, 0 deletions

diff --git a/src/usr/local/www/status_dhcp_leases.php b/src/usr/local/www/status_dhcp_leases.php
new file mode 100644
index 0000000..c961eca
--- /dev/null
+++ b/src/usr/local/www/status_dhcp_leases.php
@@ -0,0 +1,447 @@
+<?php
+/* $Id$ */
+/*
+	status_dhcp_leases.php
+	Copyright (C) 2013-2015 Electric Sheep Fencing, LP
+	Copyright (C) 2004-2009 Scott Ullrich
+	All rights reserved.
+
+	originally part of m0n0wall (http://m0n0.ch/wall)
+	Copyright (C) 2003-2004 Manuel Kasper <mk@neon1.net>.
+	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.
+*/
+
+/*
+	pfSense_BUILDER_BINARIES:	/usr/bin/awk	/bin/cat	/usr/sbin/arp	/usr/bin/wc	/usr/bin/grep
+	pfSense_MODULE:	dhcpserver
+*/
+
+##|+PRIV
+##|*IDENT=page-status-dhcpleases
+##|*NAME=Status: DHCP leases page
+##|*DESCR=Allow access to the 'Status: DHCP leases' page.
+##|*MATCH=status_dhcp_leases.php*
+##|-PRIV
+
+require("guiconfig.inc");
+require_once("config.inc");
+
+$pgtitle = array(gettext("Status"), gettext("DHCP leases"));
+$shortcut_section = "dhcp";
+
+$leasesfile = "{$g['dhcpd_chroot_path']}/var/db/dhcpd.leases";
+
+if (($_GET['deleteip']) && (is_ipaddr($_GET['deleteip']))) {
+	/* Stop DHCPD */
+	killbyname("dhcpd");
+
+	/* Read existing leases */
+	/* $leases_contents has the lines of the file, including the newline char at the end of each line. */
+	$leases_contents = file($leasesfile);
+	$newleases_contents = array();
+	$i = 0;
+	while ($i < count($leases_contents)) {
+		/* Find the lease(s) we want to delete */
+		if ($leases_contents[$i] == "lease {$_GET['deleteip']} {\n") {
+			/* Skip to the end of the lease declaration */
+			do {
+				$i++;
+			} while ($leases_contents[$i] != "}\n");
+		} else {
+			/* It's a line we want to keep, copy it over. */
+			$newleases_contents[] = $leases_contents[$i];
+		}
+		$i++;
+	}
+
+	/* Write out the new leases file */
+	$fd = fopen($leasesfile, 'w');
+	fwrite($fd, implode("\n", $newleases_contents));
+	fclose($fd);
+
+	/* Restart DHCP Service */
+	services_dhcpd_configure();
+	header("Location: status_dhcp_leases.php?all={$_GET['all']}");
+}
+
+// Load MAC-Manufacturer table
+$mac_man = load_mac_manufacturer_table();
+
+include("head.inc");
+
+function leasecmp($a, $b) {
+	return strcmp($a[$_GET['order']], $b[$_GET['order']]);
+}
+
+function adjust_gmt($dt) {
+	global $config;
+	$dhcpd = $config['dhcpd'];
+	foreach ($dhcpd as $dhcpditem) {
+		$dhcpleaseinlocaltime = $dhcpditem['dhcpleaseinlocaltime'];
+		if ($dhcpleaseinlocaltime == "yes") {
+			break;
+		}
+	}
+	if ($dhcpleaseinlocaltime == "yes") {
+		$ts = strtotime($dt . " GMT");
+		if ($ts !== false) {
+			return strftime("%Y/%m/%d %I:%M:%S%p", $ts);
+		}
+	}
+	/* If we did not need to convert to local time or the conversion failed, just return the input. */
+	return $dt;
+}
+
+function remove_duplicate($array, $field) {
+	foreach ($array as $sub) {
+		$cmp[] = $sub[$field];
+	}
+	$unique = array_unique(array_reverse($cmp, true));
+	foreach ($unique as $k => $rien) {
+		$new[] = $array[$k];
+	}
+	return $new;
+}
+
+$awk = "/usr/bin/awk";
+/* this pattern sticks comments into a single array item */
+$cleanpattern = "'{ gsub(\"#.*\", \"\");} { gsub(\";\", \"\"); print;}'";
+/* We then split the leases file by } */
+$splitpattern = "'BEGIN { RS=\"}\";} {for (i=1; i<=NF; i++) printf \"%s \", \$i; printf \"}\\n\";}'";
+
+/* stuff the leases file in a proper format into a array by line */
+exec("/bin/cat {$leasesfile} | {$awk} {$cleanpattern} | {$awk} {$splitpattern}", $leases_content);
+$leases_count = count($leases_content);
+exec("/usr/sbin/arp -an", $rawdata);
+$arpdata_ip = array();
+$arpdata_mac = array();
+foreach ($rawdata as $line) {
+	$elements = explode(' ', $line);
+	if ($elements[3] != "(incomplete)") {
+		$arpent = array();
+		$arpdata_ip[] = trim(str_replace(array('(', ')'), '', $elements[1]));
+		$arpdata_mac[] = strtolower(trim($elements[3]));
+	}
+}
+unset($rawdata);
+$pools = array();
+$leases = array();
+$i = 0;
+$l = 0;
+$p = 0;
+
+// Put everything together again
+foreach ($leases_content as $lease) {
+	/* split the line by space */
+	$data = explode(" ", $lease);
+	/* walk the fields */
+	$f = 0;
+	$fcount = count($data);
+	/* with less than 20 fields there is nothing useful */
+	if ($fcount < 20) {
+		$i++;
+		continue;
+	}
+	while ($f < $fcount) {
+		switch ($data[$f]) {
+			case "failover":
+				$pools[$p]['name'] = trim($data[$f+2], '"');
+				$pools[$p]['name'] = "{$pools[$p]['name']} (" . convert_friendly_interface_to_friendly_descr(substr($pools[$p]['name'], 5)) . ")";
+				$pools[$p]['mystate'] = $data[$f+7];
+				$pools[$p]['peerstate'] = $data[$f+14];
+				$pools[$p]['mydate'] = $data[$f+10];
+				$pools[$p]['mydate'] .= " " . $data[$f+11];
+				$pools[$p]['peerdate'] = $data[$f+17];
+				$pools[$p]['peerdate'] .= " " . $data[$f+18];
+				$p++;
+				$i++;
+				continue 3;
+			case "lease":
+				$leases[$l]['ip'] = $data[$f+1];
+				$leases[$l]['type'] = "dynamic";
+				$f = $f+2;
+				break;
+			case "starts":
+				$leases[$l]['start'] = $data[$f+2];
+				$leases[$l]['start'] .= " " . $data[$f+3];
+				$f = $f+3;
+				break;
+			case "ends":
+				if ($data[$f+1] == "never") {
+					// Quote from dhcpd.leases(5) man page:
+					// If a lease will never expire, date is never instead of an actual date.
+					$leases[$l]['end'] = gettext("Never");
+					$f = $f+1;
+				} else {
+					$leases[$l]['end'] = $data[$f+2];
+					$leases[$l]['end'] .= " " . $data[$f+3];
+					$f = $f+3;
+				}
+				break;
+			case "tstp":
+				$f = $f+3;
+				break;
+			case "tsfp":
+				$f = $f+3;
+				break;
+			case "atsfp":
+				$f = $f+3;
+				break;
+			case "cltt":
+				$f = $f+3;
+				break;
+			case "binding":
+				switch ($data[$f+2]) {
+					case "active":
+						$leases[$l]['act'] = "active";
+						break;
+					case "free":
+						$leases[$l]['act'] = "expired";
+						$leases[$l]['online'] = "offline";
+						break;
+					case "backup":
+						$leases[$l]['act'] = "reserved";
+						$leases[$l]['online'] = "offline";
+						break;
+				}
+				$f = $f+1;
+				break;
+			case "next":
+				/* skip the next binding statement */
+				$f = $f+3;
+				break;
+			case "rewind":
+				/* skip the rewind binding statement */
+				$f = $f+3;
+				break;
+			case "hardware":
+				$leases[$l]['mac'] = $data[$f+2];
+				/* check if it's online and the lease is active */
+				if (in_array($leases[$l]['ip'], $arpdata_ip)) {
+					$leases[$l]['online'] = 'online';
+				} else {
+					$leases[$l]['online'] = 'offline';
+				}
+				$f = $f+2;
+				break;
+			case "client-hostname":
+				if ($data[$f+1] <> "") {
+					$leases[$l]['hostname'] = preg_replace('/"/', '', $data[$f+1]);
+				} else {
+					$hostname = gethostbyaddr($leases[$l]['ip']);
+					if ($hostname <> "") {
+						$leases[$l]['hostname'] = $hostname;
+					}
+				}
+				$f = $f+1;
+				break;
+			case "uid":
+				$f = $f+1;
+				break;
+		}
+		$f++;
+	}
+	$l++;
+	$i++;
+	/* slowly chisel away at the source array */
+	array_shift($leases_content);
+}
+/* remove the old array */
+unset($lease_content);
+
+/* remove duplicate items by mac address */
+if (count($leases) > 0) {
+	$leases = remove_duplicate($leases, "ip");
+}
+
+if (count($pools) > 0) {
+	$pools = remove_duplicate($pools, "name");
+	asort($pools);
+}
+
+foreach ($config['interfaces'] as $ifname => $ifarr) {
+	if (is_array($config['dhcpd'][$ifname]) &&
+	    is_array($config['dhcpd'][$ifname]['staticmap'])) {
+		$staticmap_array_index = 0;
+		foreach ($config['dhcpd'][$ifname]['staticmap'] as $static) {
+			$slease = array();
+			$slease['ip'] = $static['ipaddr'];
+			$slease['type'] = "static";
+			$slease['mac'] = $static['mac'];
+			$slease['if'] = $ifname;
+			$slease['start'] = "";
+			$slease['end'] = "";
+			$slease['hostname'] = htmlentities($static['hostname']);
+			$slease['act'] = "static";
+			$slease['online'] = in_array(strtolower($slease['mac']), $arpdata_mac) ? 'online' : 'offline';
+			$slease['staticmap_array_index'] = $staticmap_array_index;
+			$leases[] = $slease;
+			$staticmap_array_index++;
+		}
+	}
+}
+
+if ($_GET['order']) {
+	usort($leases, "leasecmp");
+}
+
+/* only print pool status when we have one */
+if (count($pools) > 0) {
+?>
+<div class="panel panel-default">
+	<div class="panel-heading"><h2 class="panel-title"><?=gettext('Pool status')?></h2></div>
+	<div class="panel-body">
+		<table class="table">
+		<thead>
+			<tr>
+				<th><?=gettext("Failover Group")?></a></th>
+				<th><?=gettext("My State")?></a></th>
+				<th><?=gettext("Since")?></a></th>
+				<th><?=gettext("Peer State")?></a></th>
+				<th><?=gettext("Since")?></a></th>
+			</tr>
+		</thead>
+		<tbody>
+<? foreach ($pools as $data):?>
+			<tr>
+				<td><?=$data['name']?></td>
+				<td><?=$data['mystate']?></td>
+				<td><?=adjust_gmt($data['mydate'])?></td>
+				<td><?=$data['peerstate']?></td>
+				<td><?=adjust_gmt($data['peerdate'])?></td>
+			</tr>
+<? endforeach?>
+		</tbody>
+		</table>
+	</div>
+</div>
+<?php
+/* only print pool status when we have one */
+}
+?>
+<div class="panel panel-default">
+	<div class="panel-heading"><h2 class="panel-title"><?=gettext('Leases')?></h2></div>
+	<div class="panel-body">
+		<table class="table">
+		<thead>
+			<tr>
+				<th><!-- icon --></th>
+				<th><?=gettext("IP address")?></th>
+				<th><?=gettext("MAC address")?></th>
+				<th><?=gettext("Hostname")?></th>
+				<th><?=gettext("Start")?></th>
+				<th><?=gettext("End")?></th>
+				<th><?=gettext("Online")?></th>
+				<th><?=gettext("Lease Type")?></th>
+			</tr>
+		</thead>
+		<tbody>
+<?php
+foreach ($leases as $data):
+	if ($data['act'] != "active" && $data['act'] != "static" && $_GET['all'] != 1)
+		continue;
+
+	if ($data['act'] == 'active')
+		$icon = 'icon-ok-circle';
+	elseif ($data['act'] == 'expired')
+		$icon = 'icon-ban-circle';
+	else
+		$icon = 'icon-remove-circle';
+
+	$lip = ip2ulong($data['ip']);
+	if ($data['act'] != "static") {
+		foreach ($config['dhcpd'] as $dhcpif => $dhcpifconf) {
+			if (!is_array($dhcpifconf['range']))
+				continue;
+			if (($lip >= ip2ulong($dhcpifconf['range']['from'])) && ($lip <= ip2ulong($dhcpifconf['range']['to']))) {
+				$data['if'] = $dhcpif;
+				break;
+			}
+		}
+	}
+
+	$mac = $data['mac'];
+	$mac_hi = strtoupper($mac[0] . $mac[1] . $mac[3] . $mac[4] . $mac[6] . $mac[7]);
+?>
+			<tr>
+				<td><i class="icon <?=$icon?>"></i></td>
+				<td><?=$data['ip']?></td>
+				<td>
+					<?=$mac?>
+
+					<? if(isset($mac_man[$mac_hi])):?>
+						(<?=$mac_man[$mac_hi]?>)
+					<?endif?>
+				</td>
+				<td><?=htmlentities($data['hostname'])?></td>
+<? if ($data['type'] != "static"):?>
+				<td><?=adjust_gmt($data['start'])?></td>
+				<td><?=adjust_gmt($data['end'])?></td>
+<? else: ?>
+				<td>n/a</td>
+				<td>n/a</td>
+<? endif; ?>
+				<td><?=$data['online']?></td>
+				<td><?=$data['act']?></td>
+				<td>
+<? if ($data['type'] == "dynamic"): ?>
+					<a class="btn btn-xs btn-primary" href="services_dhcp_edit.php?if=<?=$data['if']?>&amp;mac=<?=$data['mac']?>&amp;hostname=<?=htmlspecialchars($data['hostname'])?>">
+						<?=gettext("add static mapping")?>
+					</a>
+<? else: ?>
+					<a class="btn btn-xs btn-primary" href="services_dhcp_edit.php?if=<?=$data['if']?>&amp;id=<?=$data['staticmap_array_index']?>">
+						<?=gettext("edit static mapping")?>
+					</a>
+<? endif; ?>
+
+					<a class="btn btn-xs btn-success" href="services_wol_edit.php?if=<?=$data['if']?>&amp;mac=<?=$data['mac']?>&amp;descr=<?=htmlentities($data['hostname'])?>">
+						add WOL mapping
+					</a>
+
+<? if ($data['online'] != "online"):?>
+					<a class="btn btn-xs btn-warning" href="services_wol.php?if=<?=$data['if']?>&amp;mac=<?=$data['mac']?>">
+						send WOL packet
+					</a>
+<? endif; ?>
+
+<? if ($data['type'] == "dynamic" && $data['online'] != "online"):?>
+					<a class="btn btn-xs btn-danger" href="status_dhcp_leases.php?deleteip=<?=$data['ip']?>&amp;all=<?=intval($_GET['all'])?>">
+						delete lease
+					</a>
+<? endif?>
+				</td>
+<? endforeach; ?>
+			</tr>
+		</tbody>
+		</table>
+	</div>
+</div>
+
+<?php if ($_GET['all']): ?>
+	<a class="btn btn-default" href="status_dhcp_leases.php?all=0"><?=gettext("Show active and static leases only")?></a>
+<?php else: ?>
+	<a class="btn btn-default" href="status_dhcp_leases.php?all=1"><?=gettext("Show all configured leases")?></a>
+<?php endif;
+
+include("foot.inc");
\ No newline at end of file