Project

General

Profile

Download (10.6 KB) Statistics
| Branch: | Tag: | Revision:
1 737ed7d1 jim-p
<?php
2
/*
3 aaec5634 Renato Botelho
 * diag_dns.php
4
 *
5
 * part of pfSense (https://www.pfsense.org)
6 2a2396a6 Renato Botelho
 * Copyright (c) 2004-2016 Rubicon Communications, LLC (Netgate)
7 aaec5634 Renato Botelho
 * All rights reserved.
8
 *
9
 * Redistribution and use in source and binary forms, with or without
10
 * modification, are permitted provided that the following conditions are met:
11
 *
12
 * 1. Redistributions of source code must retain the above copyright notice,
13
 *    this list of conditions and the following disclaimer.
14
 *
15
 * 2. Redistributions in binary form must reproduce the above copyright
16
 *    notice, this list of conditions and the following disclaimer in
17
 *    the documentation and/or other materials provided with the
18
 *    distribution.
19
 *
20
 * 3. All advertising materials mentioning features or use of this software
21
 *    must display the following acknowledgment:
22
 *    "This product includes software developed by the pfSense Project
23
 *    for use in the pfSense® software distribution. (http://www.pfsense.org/).
24
 *
25
 * 4. The names "pfSense" and "pfSense Project" must not be used to
26
 *    endorse or promote products derived from this software without
27
 *    prior written permission. For written permission, please contact
28
 *    coreteam@pfsense.org.
29
 *
30
 * 5. Products derived from this software may not be called "pfSense"
31
 *    nor may "pfSense" appear in their names without prior written
32
 *    permission of the Electric Sheep Fencing, LLC.
33
 *
34
 * 6. Redistributions of any form whatsoever must retain the following
35
 *    acknowledgment:
36
 *
37
 * "This product includes software developed by the pfSense Project
38
 * for use in the pfSense software distribution (http://www.pfsense.org/).
39
 *
40
 * THIS SOFTWARE IS PROVIDED BY THE pfSense PROJECT ``AS IS'' AND ANY
41
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
42
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
43
 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE pfSense PROJECT OR
44
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
45
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
46
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
47
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
49
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
50
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
51
 * OF THE POSSIBILITY OF SUCH DAMAGE.
52 fd9ebcd5 Stephen Beaver
 */
53 13d193c2 Scott Ullrich
54 a57d9fa2 jim-p
##|+PRIV
55
##|*IDENT=page-diagnostics-dns
56 5230f468 jim-p
##|*NAME=Diagnostics: DNS Lookup
57 a57d9fa2 jim-p
##|*DESCR=Allow access to the 'Diagnostics: DNS Lookup' page.
58
##|*MATCH=diag_dns.php*
59
##|-PRIV
60
61 699737d9 Phil Davis
$pgtitle = array(gettext("Diagnostics"), gettext("DNS Lookup"));
62 aceaf18c Phil Davis
require_once("guiconfig.inc");
63 737ed7d1 jim-p
64 ed2a6e89 jim-p
$host = trim($_REQUEST['host'], " \t\n\r\0\x0B[];\"'");
65 76c4ff0e Renato Botelho
66 6ee37b41 Sjon Hortensius
/* If this section of config.xml has not been populated yet we need to set it up
67 d5b28fcf Stephen Beaver
*/
68
if (!is_array($config['aliases']['alias'])) {
69
	$config['aliases']['alias'] = array();
70 bc0a452f jim-p
}
71 d5b28fcf Stephen Beaver
$a_aliases = &$config['aliases']['alias'];
72
73 7bc19545 Chris Buechler
$aliasname = substr(str_replace(array(".", "-"), "_", $host), 0, 31);
74 ed2a6e89 jim-p
$alias_exists = false;
75 6c07db48 Phil Davis
$counter = 0;
76 5f601060 Phil Davis
foreach ($a_aliases as $a) {
77
	if ($a['name'] == $aliasname) {
78 ed2a6e89 jim-p
		$alias_exists = true;
79 6c07db48 Phil Davis
		$id = $counter;
80 ed2a6e89 jim-p
	}
81
	$counter++;
82
}
83
84 0b316bd1 PiBa-NL
function resolve_host_addresses($host) {
85
	$recordtypes = array(DNS_A, DNS_AAAA, DNS_CNAME);
86
	$dnsresult = array();
87
	$resolved = array();
88
	$errreporting = error_reporting();
89
	error_reporting($errreporting & ~E_WARNING);// dns_get_record throws a warning if nothing is resolved..
90 9488f42b Phil Davis
	foreach ($recordtypes as $recordtype) {
91 0b316bd1 PiBa-NL
		$tmp = dns_get_record($host, $recordtype);
92
		if (is_array($tmp)) {
93
			$dnsresult = array_merge($dnsresult, $tmp);
94
		}
95
	}
96
	error_reporting($errreporting);// restore original php warning/error settings.
97 6002af93 NewEraCracker
98 9488f42b Phil Davis
	foreach ($dnsresult as $item) {
99 0b316bd1 PiBa-NL
		$newitem = array();
100
		$newitem['type'] = $item['type'];
101
		switch ($item['type']) {
102
			case 'CNAME':
103
				$newitem['data'] = $item['target'];
104
				$resolved[] = $newitem;
105
				break;
106
			case 'A':
107
				$newitem['data'] = $item['ip'];
108
				$resolved[] = $newitem;
109
				break;
110
			case 'AAAA':
111
				$newitem['data'] = $item['ipv6'];
112
				$resolved[] = $newitem;
113
				break;
114
		}
115
	}
116
	return $resolved;
117
}
118
119 5f601060 Phil Davis
if (isset($_POST['create_alias']) && (is_hostname($host) || is_ipaddr($host))) {
120 e55d4b3c Scott Ullrich
	$resolved = gethostbyname($host);
121 ed2a6e89 jim-p
	$type = "hostname";
122 5f601060 Phil Davis
	if ($resolved) {
123 0b316bd1 PiBa-NL
		$resolved = resolve_host_addresses($host);
124 e55d4b3c Scott Ullrich
		$isfirst = true;
125 288a2a0f Phil Davis
		foreach ($resolved as $re) {
126 0b316bd1 PiBa-NL
			if ($re['data'] != "") {
127 947141fd Phil Davis
				if (!$isfirst) {
128 7a87cb97 Scott Ullrich
					$addresses .= " ";
129 947141fd Phil Davis
				}
130 0b316bd1 PiBa-NL
				$re = rtrim($re['data']);
131 11614bc9 Phil Davis
				if (is_ipaddr($re)) {
132
					$sn = is_ipaddrv6($re) ? '/128' : '/32';
133
				} else {
134
					// The name was a CNAME and resolved to another name, rather than an address.
135
					// In this case the alias entry will have a FQDN, so do not put a CIDR after it.
136
					$sn = "";
137
				}
138 97f42a05 Renato Botelho
				$addresses .= $re . $sn;
139 7a87cb97 Scott Ullrich
				$isfirst = false;
140
			}
141 e55d4b3c Scott Ullrich
		}
142
		$newalias = array();
143 4d9a5d99 Stephen Beaver
		$newalias['name'] = $aliasname;
144
		$newalias['type'] = "network";
145
		$newalias['address'] = $addresses;
146
		$newalias['descr'] = gettext("Created from Diagnostics-> DNS Lookup");
147
		if ($alias_exists) {
148
			$a_aliases[$id] = $newalias;
149
		} else {
150
			$a_aliases[] = $newalias;
151 e55d4b3c Scott Ullrich
		}
152 4d9a5d99 Stephen Beaver
		write_config();
153
		$createdalias = true;
154 e55d4b3c Scott Ullrich
	}
155
}
156
157 737ed7d1 jim-p
if ($_POST) {
158
	unset($input_errors);
159
160
	$reqdfields = explode(" ", "host");
161
	$reqdfieldsn = explode(",", "Host");
162
163 1e9b4611 Renato Botelho
	do_input_validation($_POST, $reqdfields, $reqdfieldsn, $input_errors);
164 286aa3f2 sbeaver
165 72cd706b bcyrill
	if (!is_hostname($host) && !is_ipaddr($host)) {
166 ee91ae30 jean.feltrin
		$input_errors[] = gettext("Host must be a valid hostname or IP address.");
167 72cd706b bcyrill
	} else {
168
		// Test resolution speed of each DNS server.
169 86ab47ff sullrich
		$dns_speeds = array();
170 ed2a6e89 jim-p
		$dns_servers = array();
171
		exec("/usr/bin/grep nameserver /etc/resolv.conf | /usr/bin/cut -f2 -d' '", $dns_servers);
172 40af551f jim-p
		foreach ($dns_servers as $dns_server) {
173 ed2a6e89 jim-p
			$query_time = exec("/usr/bin/drill {$host_esc} " . escapeshellarg("@" . trim($dns_server)) . " | /usr/bin/grep Query | /usr/bin/cut -d':' -f2");
174 5f601060 Phil Davis
			if ($query_time == "") {
175 ee91ae30 jean.feltrin
				$query_time = gettext("No response");
176 5f601060 Phil Davis
			}
177 86ab47ff sullrich
			$new_qt = array();
178
			$new_qt['dns_server'] = $dns_server;
179 ed2a6e89 jim-p
			$new_qt['query_time'] = $query_time;
180 86ab47ff sullrich
			$dns_speeds[] = $new_qt;
181
			unset($new_qt);
182
		}
183 737ed7d1 jim-p
	}
184
185 da652a46 Vinicius Coque
	$type = "unknown";
186 6002af93 NewEraCracker
	$resolved = array();
187 2312b0eb jim-p
	$ipaddr = "";
188 737ed7d1 jim-p
	if (!$input_errors) {
189
		if (is_ipaddr($host)) {
190
			$type = "ip";
191 c4045b79 Chris Buechler
			$resolvedptr = gethostbyaddr($host);
192 2312b0eb jim-p
			$ipaddr = $host;
193 c4045b79 Chris Buechler
			if ($host != $resolvedptr) {
194
				$tmpresolved = array();
195
				$tmpresolved['type'] = "PTR";
196
				$tmpresolved['data'] = $resolvedptr;
197
				$resolved[] = $tmpresolved;
198 5f601060 Phil Davis
			}
199 737ed7d1 jim-p
		} elseif (is_hostname($host)) {
200
			$type = "hostname";
201 6002af93 NewEraCracker
			$ipaddr = gethostbyname($host);
202
			$resolved = resolve_host_addresses($host);
203 737ed7d1 jim-p
		}
204
	}
205
}
206
207 6002af93 NewEraCracker
if ($_POST['host'] && $_POST['dialog_output']) {
208
	$host = (isset($resolvedptr) ? $resolvedptr : $host);
209
	display_host_results ($ipaddr, $host, $dns_speeds);
210 fe74228f N0YB
	exit;
211
}
212
213 699737d9 Phil Davis
function display_host_results ($address, $hostname, $dns_speeds) {
214 79f5aebe Robert Nelson
	$map_lengths = function($element) { return strlen($element[0]); };
215 6ff71328 Robert Nelson
216 d2466ce6 jim-p
	echo gettext("IP Address") . ": " . htmlspecialchars($address) . " \n";
217
	echo gettext("Host Name") . ": " . htmlspecialchars($hostname) .  " \n";
218 fe74228f N0YB
	echo "\n";
219 6ff71328 Robert Nelson
	$text_table = array();
220
	$text_table[] = array(gettext("Server"), gettext("Query Time"));
221
	if (is_array($dns_speeds)) {
222
		foreach ($dns_speeds as $qt) {
223
			$text_table[] = array(trim($qt['dns_server']), trim($qt['query_time']));
224 fe74228f N0YB
		}
225 6ff71328 Robert Nelson
	}
226 79f5aebe Robert Nelson
	$col0_padlength = max(array_map($map_lengths, $text_table)) + 4;
227 6ff71328 Robert Nelson
	foreach ($text_table as $text_row) {
228 79f5aebe Robert Nelson
		echo str_pad($text_row[0], $col0_padlength) . $text_row[1] . "\n";
229 6ff71328 Robert Nelson
	}
230 fe74228f N0YB
}
231
232 286aa3f2 sbeaver
include("head.inc");
233 e55d4b3c Scott Ullrich
234 286aa3f2 sbeaver
/* Display any error messages resulting from user input */
235 947141fd Phil Davis
if ($input_errors) {
236 286aa3f2 sbeaver
	print_input_errors($input_errors);
237 947141fd Phil Davis
} else if (!$resolved && $type) {
238 02342d8c k-paulius
	print_info_box(sprintf(gettext('Host "%s" could not be resolved.'), $host), 'warning', false);
239 947141fd Phil Davis
}
240 286aa3f2 sbeaver
241 947141fd Phil Davis
if ($createdalias) {
242 4d9a5d99 Stephen Beaver
	if ($alias_exists) {
243
		print_info_box(gettext("Alias was updated successfully."), 'success');
244
	} else {
245
		print_info_box(gettext("Alias was created successfully."), 'success');
246
	}
247 947141fd Phil Davis
}
248 286aa3f2 sbeaver
249 37676f4e jim-p
$form = new Form(false);
250 06da0d4e Sjon Hortensius
$section = new Form_Section('DNS Lookup');
251 286aa3f2 sbeaver
252
$section->addInput(new Form_Input(
253
	'host',
254 06da0d4e Sjon Hortensius
	'Hostname',
255 286aa3f2 sbeaver
	'text',
256 06da0d4e Sjon Hortensius
	$host,
257
	['placeholder' => 'Hostname to look up.']
258
));
259 286aa3f2 sbeaver
260 7208f387 Chris Buechler
$form->add($section);
261
262
$form->addGlobal(new Form_Button(
263
        'Submit',
264
        'Lookup',
265
        null,
266
        'fa-search'
267
))->addClass('btn-primary');
268
269 06da0d4e Sjon Hortensius
if (!empty($resolved)) {
270 4d9a5d99 Stephen Beaver
	if ($alias_exists) {
271
		$button_text = gettext("Update alias");
272
	} else {
273
		$button_text = gettext("Add alias");
274
	}
275 286aa3f2 sbeaver
	$form->addGlobal(new Form_Button(
276 06da0d4e Sjon Hortensius
		'create_alias',
277 4d9a5d99 Stephen Beaver
		$button_text,
278 37676f4e jim-p
		null,
279
		'fa-plus'
280 286aa3f2 sbeaver
	))->removeClass('btn-primary')->addClass('btn-success');
281
}
282
283
print $form;
284
285 bcd938ef sbeaver
if (!$input_errors && $type) {
286 6ee37b41 Sjon Hortensius
	if ($resolved):
287 86ab47ff sullrich
?>
288 06da0d4e Sjon Hortensius
<div class="panel panel-default">
289 babf5d85 Phil Davis
	<div class="panel-heading"><h2 class="panel-title"><?=gettext('Results')?></h2></div>
290 06da0d4e Sjon Hortensius
	<div class="panel-body">
291 6002af93 NewEraCracker
292 0b316bd1 PiBa-NL
		<table class="table">
293
		<thead>
294
			<tr>
295
				<th><?=gettext('Result')?></th>
296
				<th><?=gettext('Record type')?></th>
297
			</tr>
298
		</thead>
299
		<tbody>
300
<?php foreach ((array)$resolved as $hostitem):?>
301
		<tr>
302 d2466ce6 jim-p
			<td><?=htmlspecialchars($hostitem['data'])?></td><td><?=htmlspecialchars($hostitem['type'])?></td>
303 0b316bd1 PiBa-NL
		</tr>
304
<?php endforeach; ?>
305
		</tbody>
306
		</table>
307 06da0d4e Sjon Hortensius
	</div>
308
</div>
309 fa172bc5 NewEraCracker
<?php endif; ?>
310 06da0d4e Sjon Hortensius
311
<!-- Second table displays the server resolution times -->
312
<div class="panel panel-default">
313 babf5d85 Phil Davis
	<div class="panel-heading"><h2 class="panel-title"><?=gettext('Timings')?></h2></div>
314 06da0d4e Sjon Hortensius
	<div class="panel-body">
315
		<table class="table">
316
		<thead>
317
			<tr>
318 babf5d85 Phil Davis
				<th><?=gettext('Name server')?></th>
319
				<th><?=gettext('Query time')?></th>
320 06da0d4e Sjon Hortensius
			</tr>
321
		</thead>
322
323
		<tbody>
324 fa172bc5 NewEraCracker
<?php foreach ((array)$dns_speeds as $qt):?>
325 737ed7d1 jim-p
		<tr>
326 d2466ce6 jim-p
			<td><?=htmlspecialchars($qt['dns_server'])?></td><td><?=htmlspecialchars($qt['query_time'])?></td>
327 737ed7d1 jim-p
		</tr>
328 fa172bc5 NewEraCracker
<?php endforeach; ?>
329 06da0d4e Sjon Hortensius
		</tbody>
330
		</table>
331
	</div>
332
</div>
333
334
<!-- Third table displays "More information" -->
335
<div class="panel panel-default">
336 3d7a8696 k-paulius
	<div class="panel-heading"><h2 class="panel-title"><?=gettext('More Information')?></h2></div>
337 06da0d4e Sjon Hortensius
	<div class="panel-body">
338
		<ul class="list-group">
339 7d67222e heper
			<li class="list-group-item"><a href="/diag_ping.php?host=<?=htmlspecialchars($host)?>&amp;count=3"><?=gettext("Ping")?></a></li>
340 06da0d4e Sjon Hortensius
			<li class="list-group-item"><a href="/diag_traceroute.php?host=<?=htmlspecialchars($host)?>&amp;ttl=18"><?=gettext("Traceroute")?></a></li>
341
		</ul>
342 57adffdd Jared Dillard
		<h5><?=gettext("NOTE: The following links are to external services, so their reliability cannot be guaranteed.");?></h5>
343 06da0d4e Sjon Hortensius
		<ul class="list-group">
344 5c0ab3cd NewEraCracker
			<li class="list-group-item"><a target="_blank" href="http://private.dnsstuff.com/tools/whois.ch?ip=<?=$ipaddr;?>"><?=gettext("IP WHOIS @ DNS Stuff");?></a></li>
345
			<li class="list-group-item"><a target="_blank" href="http://private.dnsstuff.com/tools/ipall.ch?ip=<?=$ipaddr;?>"><?=gettext("IP Info @ DNS Stuff");?></a></li>
346 06da0d4e Sjon Hortensius
		</ul>
347
	</div>
348
</div>
349
<?php
350 bcd938ef sbeaver
}
351 c10cb196 Stephen Beaver
include("foot.inc");