From 07cf2c4b20230ddedee1bf9dddc1e7cd407385f5 Mon Sep 17 00:00:00 2001 From: Renato Botelho Date: Thu, 5 Feb 2015 10:02:24 -0200 Subject: Packages repo cleanup: - Drop support for pfSense < 2 - Remove archive/, old files can be reached using git - Remove old and unused packages - Move stale files from config subdir to a package subdir --- config/dyntables/www/php/diag_dhcp_leases.php | 440 -------------------------- 1 file changed, 440 deletions(-) delete mode 100644 config/dyntables/www/php/diag_dhcp_leases.php (limited to 'config/dyntables/www/php/diag_dhcp_leases.php') diff --git a/config/dyntables/www/php/diag_dhcp_leases.php b/config/dyntables/www/php/diag_dhcp_leases.php deleted file mode 100644 index 4ff8e241..00000000 --- a/config/dyntables/www/php/diag_dhcp_leases.php +++ /dev/null @@ -1,440 +0,0 @@ -. - 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"); -require("dyntables.inc"); - -/* ========================================================================== */ -/* ======================= NON GUI RELATED FUNCTIONS ======================== */ -/* ========================================================================== */ - -function leasecmp($a, $b) { - return strcmp($a[$_GET['order']], $b[$_GET['order']]); -} - -function adjust_gmt($dt) { - $ts = strtotime($dt . " GMT"); - return strftime("%Y/%m/%d %H:%M:%S", $ts); -} - -function remove_duplicate($array, $field) -{ - foreach ($array as $sub) - $cmp[] = $sub[$field]; - $unique = array_unique($cmp); - foreach ($unique as $k => $rien) - $new[] = $array[$k]; - return $new; -} - -$leasesfile = "{$g['dhcpd_chroot_path']}/var/db/dhcpd.leases"; -$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("cat {$leasesfile} | {$awk} {$cleanpattern} | {$awk} {$splitpattern}", $leases_content); -$leases_count = count($leases_content); - -$pools = array(); -$leases = array(); -$i = 0; -$l = 0; -$p = 0; - -// Put everything together again -while($i < $leases_count) { - /* split the line by space */ - $data = explode(" ", $leases_content[$i]); - /* walk the fields */ - $f = 0; - $fcount = count($data); - /* with less then 20 fields there is nothing useful */ - if($fcount < 20) { - $i++; - continue; - } - while($f < $fcount) { - switch($data[$f]) { - case "failover": - $pools[$p]['name'] = $data[$f+2]; - $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": - $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 "hardware": - $leases[$l]['mac'] = $data[$f+2]; - /* check if it's online and the lease is active */ - if($leases[$l]['act'] == "active") { - $online = exec("/usr/sbin/arp -an |/usr/bin/awk '/{$leases[$l]['ip']}/ {print}'|wc -l"); - if ($online == 1) { - $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++; -} - -/* 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]['staticmap'])) { - foreach($config['dhcpd'][$ifname]['staticmap'] as $static) { - $slease = array(); - $slease['ip'] = $static['ipaddr']; - $slease['type'] = "static"; - $slease['mac'] = $static['mac']; - $slease['start'] = gmdate("M d Y H:i:s", time()); - $slease['end'] = gmdate("M d Y H:i:s", time()); - $slease['end'] = gmdate("M d Y H:i:s", strtotime('+5 minutes')); - $slease['hostname'] = $static['hostname']; - $slease['act'] = "static"; - $online = exec("/usr/sbin/arp -an |/usr/bin/grep {$slease['mac']}| /usr/bin/wc -l|/usr/bin/awk '{print $1;}'"); - if ($online == 1) { - $slease['online'] = 'online'; - } else { - $slease['online'] = 'offline'; - } - $leases[] = $slease; - } - } -} - -/* ========================================================================== */ -/* ====================== PROCESS POST AND GET VARS ========================= */ -/* ========================================================================== */ - -if ($_GET['order']) { - usort($leases, "leasecmp"); -} else if ($_GET['refresh']) { - dl( 'json.so' ); - echo json_encode($leases); - exit; -} - -/* ========================================================================== */ -/* =================== GUI RELATED FUNCTIONS AND STUFF ====================== */ -/* ========================================================================== */ - -$pgtitle = "Diagnostics: DHCP leases"; - -$effectStyle = ' - -'; - -include("head.inc"); - -// add extra stuff to HTML head -if (isset($pfSenseHead)) { - $pfSenseHead->setCloseHead(false); - print($pfSenseHead->getHTML()); -} else { - $closehead = false; -} - -$scriptaculousRefs = ' - - -'; - -$ajaxRequest = " - - -"; - -print($ajaxRequest); -print($scriptaculousRefs); - -foreach(getWindowJSScriptRefs() as $jscript){ - print("{$jscript}\n"); -} - -foreach(getWindowJSStyleRefs() as $style){ - print("{$style}\n"); -} - -print($effectStyle); - -?> - - - - - -

- 0) { -?> - - - - - - - - -\n"; - echo "\n"; - echo "\n"; - echo "\n"; - echo "\n"; - echo "\n"; - echo "\n"; - echo "\n"; - echo "\n"; -} - -?> -
Failover GroupMy StateSincePeer StateSince
{$fspans}{$data['name']}{$fspane} {$fspans}{$data['mystate']}{$fspane} {$fspans}" . adjust_gmt($data['mydate']) . "{$fspane} {$fspans}{$data['peerstate']}{$fspane} {$fspans}" . adjust_gmt($data['peerdate']) . "{$fspane}   
- -addColumn("IP address", "ip"); -$table->addColumn("MAC address", "mac"); -$table->addColumn("Hostname", "hostname"); -$table->addColumn("Start", "start"); -$table->addColumn("End", "end"); -$table->addColumn("Online", "online"); -$table->addColumn("Lease Type", "act", "listhdr"); - -// populate table data -$table->setData($leases); - -?> - -

- - -getColumnHTML(); ?> -getData() as $data) { - if (($data['act'] == "active") || ($data['act'] == "static") || ($_GET['all'] == 1)) { - if ($data['act'] != "active" && $data['act'] != "static") { - $fspans = ""; - $fspane = ""; - } else { - $fspans = $fspane = ""; - } - $lip = ip2long($data['ip']); - if ($data['act'] == "static") { - foreach ($config['dhcpd'] as $dhcpif => $dhcpifconf) { - if(is_array($dhcpifconf['staticmap'])) { - foreach ($dhcpifconf['staticmap'] as $staticent) { - if ($data['ip'] == $staticent['ipaddr']) { - $data['if'] = $dhcpif; - break; - } - } - } - /* exit as soon as we have an interface */ - if ($data['if'] != "") - break; - } - } else { - foreach ($config['dhcpd'] as $dhcpif => $dhcpifconf) { - if (($lip >= ip2long($dhcpifconf['range']['from'])) && ($lip <= ip2long($dhcpifconf['range']['to']))) { - $data['if'] = $dhcpif; - break; - } - } - } - echo "\n"; - echo "\n"; - if ($data['online'] != "online") { - echo "\n"; - } else { - echo "\n"; - } - echo "\n"; - echo "\n"; - echo "\n"; - echo "\n"; - echo "\n"; - - if ($data['type'] == "dynamic") { - echo "\n"; - } else { - echo "\n"; - } - - echo "\n"; - echo "\n"; - } -} - -?> -
{$fspans}{$data['ip']}{$fspane} {$fspans}{$data['mac']}{$fspane} {$fspans}{$data['mac']}{$fspane} {$fspans}{$data['hostname']}{$fspane} {$fspans}" . adjust_gmt($data['start']) . "{$fspane} {$fspans}" . adjust_gmt($data['end']) . "{$fspane} {$fspans}{$data['online']}{$fspane} {$fspans}{$data['act']}{$fspane} "; - echo ""; - echo ""; - echo "
-

-

- - - - - - - - -
- -

No leases file found. Is the DHCP server active?

- - -
 
- - - - - -- cgit v1.2.3