Initial revision

author: Scott Ullrich <sullrich@pfsense.org> 2004-11-07 03:06:49 +0000
committer: Scott Ullrich <sullrich@pfsense.org> 2004-11-07 03:06:49 +0000
commit: 5b237745003431d487de361ca0980a467ee2f5d5 (patch)
tree: 0a29f0237f9e8e536112f9fc816e7a52bbc19691 /usr/local/www/diag_dhcp_leases.php
download: pfsense-5b237745003431d487de361ca0980a467ee2f5d5.zip
pfsense-5b237745003431d487de361ca0980a467ee2f5d5.tar.gz
1 files changed, 189 insertions, 0 deletions
diff --git a/usr/local/www/diag_dhcp_leases.php b/usr/local/www/diag_dhcp_leases.php
new file mode 100755
index 0000000..4b730fa
--- /dev/null
+++ b/usr/local/www/diag_dhcp_leases.php
@@ -0,0 +1,189 @@
+#!/usr/local/bin/php
+<?php 
+/*
+	diag_dhcp_leases.php
+	part of m0n0wall (http://m0n0.ch/wall)
+	
+	Copyright (C) 2003-2004 Björn Pålsson <bjorn@networksab.com> and 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.
+*/
+
+require("guiconfig.inc");
+?>
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title><?=gentitle("Diagnostics: DHCP leases");?></title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<link href="gui.css" rel="stylesheet" type="text/css">
+</head>
+
+<body link="#0000CC" vlink="#0000CC" alink="#0000CC">
+<?php include("fbegin.inc"); ?>
+<p class="pgtitle">Diagnostics: DHCP leases</p>
+<?php
+
+flush();
+
+function leasecmp($a, $b) {
+	return strcmp($a[$_GET['order']], $b[$_GET['order']]);
+}
+
+$fp = @fopen("{$g['vardb_path']}/dhcpd.leases","r");
+
+if ($fp):
+
+$return = array();
+
+while ($line = fgets($fp)) {
+	$matches = "";
+
+	// Sort out comments
+	// C-style comments not supported!
+	if (preg_match("/^\s*[\r|\n]/", $line, $matches[0]) ||
+				preg_match("/^([^\"#]*)#.*$/", $line, $matches[1]) ||
+				preg_match("/^([^\"]*)\/\/.*$/", $line, $matches[2]) ||
+				preg_match("/\s*#(.*)/", $line, $matches[3]) ||
+				preg_match("/\\\"\176/", $line, $matches[4])
+		) {
+		$line = "";
+		continue;
+	}
+
+	if (preg_match("/(.*)#(.*)/", $line, $matches))
+		$line = $matches[0];
+
+	// Tokenize lines
+	do {
+		if (preg_match("/^\s*\"([^\"]*)\"(.*)$/", $line, $matches)) {
+			$line = $matches[2];
+			$return[] = array($matches[1], 0);
+		} else if (preg_match("/^\s*([{};])(.*)$/", $line, $matches)) {
+			$line = $matches[2];
+			$return[] = array($matches[0], 1);
+		} else if (preg_match("/^\s*([^{}; \t]+)(.*)$/", $line, $matches)) {
+			$line = $matches[2];
+			$return[] = array($matches[1], 0);
+		} else
+			break;
+
+	} while($line);
+
+	$lines++;
+}
+
+fclose($fp);
+
+$leases = array();
+$i = 0;
+
+// Put everything together again
+while ($data = array_shift($return)) {
+	if ($data[0] == "next") {
+		$d = array_shift($return);
+	}
+	if ($data[0] == "lease") {
+		$d = array_shift($return);
+		$leases[$i]['ip'] = $d[0];
+	}
+	if ($data[0] == "client-hostname") {
+		$d = array_shift($return);
+		$leases[$i]['hostname'] = $d[0];
+	}
+	if ($data[0] == "hardware") {
+		$d = array_shift($return);
+		if ($d[0] == "ethernet") {
+			$d = array_shift($return);
+			$leases[$i]['mac'] = $d[0];
+		}
+	} else if ($data[0] == "starts") {
+		$d = array_shift($return);
+		$d = array_shift($return);
+		$leases[$i]['start'] = $d[0];
+		$d = array_shift($return);
+		$leases[$i]['start'] .= " " . $d[0];
+	} else if ($data[0] == "ends") {
+		$d = array_shift($return);
+		$d = array_shift($return);
+		$leases[$i]['end'] = $d[0];
+		$d = array_shift($return);
+		$leases[$i]['end'] .= " " . $d[0];
+	} else if ($data[0] == "binding") {
+		$d = array_shift($return);
+		if ($d[0] == "state") {
+			$d = array_shift($return);
+			$leases[$i]['act'] = $d[0];
+		}
+	} else if (($data[0] == "}") && ($data[1] == 1))		// End of group
+		$i++;
+}
+
+if ($_GET['order'])
+	usort($leases, "leasecmp");
+?>
+<table width="100%" border="0" cellpadding="0" cellspacing="0">
+  <tr>
+    <td class="listhdrr"><a href="?all=<?=$_GET['all'];?>&order=ip">IP address</a></td>
+    <td class="listhdrr"><a href="?all=<?=$_GET['all'];?>&order=mac">MAC address</a></td>
+    <td class="listhdrr"><a href="?all=<?=$_GET['all'];?>&order=hostname">Hostname</a></td>
+    <td class="listhdrr"><a href="?all=<?=$_GET['all'];?>&order=start">Start</a></td>
+    <td class="listhdr"><a href="?all=<?=$_GET['all'];?>&order=end">End</a></td>
+	</tr>
+<?php
+foreach ($leases as $data) {
+	if (($data['act'] == "active") || ($_GET['all'] == 1)) {
+		if ($data['act'] != "active") {
+			$fspans = "<span class=\"gray\">";
+			$fspane = "</span>";
+		} else {
+			$fspans = $fspane = "";
+		}
+		echo "<tr>\n";
+		echo "<td class=\"listlr\">{$fspans}{$data['ip']}{$fspane}&nbsp;</td>\n";
+		echo "<td class=\"listr\">{$fspans}{$data['mac']}{$fspane}&nbsp;</td>\n";
+		echo "<td class=\"listr\">{$fspans}{$data['hostname']}{$fspane}&nbsp;</td>\n";
+		echo "<td class=\"listr\">{$fspans}{$data['start']}{$fspane}&nbsp;</td>\n";
+		echo "<td class=\"listr\">{$fspans}{$data['end']}{$fspane}&nbsp;</td>\n";
+		echo "</tr>\n";
+	}
+}
+?>
+</table>
+<p>
+<form action="diag_dhcp_leases.php" method="GET">
+<input type="hidden" name="order" value="<?=$_GET['order'];?>">
+<?php if ($_GET['all']): ?>
+<input type="hidden" name="all" value="0">
+<input type="submit" class="formbtn" value="Show active leases only">
+<?php else: ?>
+<input type="hidden" name="all" value="1">
+<input type="submit" class="formbtn" value="Show active and expired leases">
+<?php endif; ?>
+</form>
+<?php else: ?>
+<p><strong>No leases file found. Is the DHCP server active?</strong></p>
+<?php endif; ?>
+<?php include("fend.inc"); ?>
+</body>
+</html>
author	Scott Ullrich <sullrich@pfsense.org>	2004-11-07 03:06:49 +0000
committer	Scott Ullrich <sullrich@pfsense.org>	2004-11-07 03:06:49 +0000
commit	5b237745003431d487de361ca0980a467ee2f5d5 (patch)
tree	0a29f0237f9e8e536112f9fc816e7a52bbc19691 /usr/local/www/diag_dhcp_leases.php
download	pfsense-5b237745003431d487de361ca0980a467ee2f5d5.zip pfsense-5b237745003431d487de361ca0980a467ee2f5d5.tar.gz