Project

General

Profile

Download (76.3 KB) Statistics
| Branch: | Tag: | Revision:
1
<?php
2
/****h* pfSense/pfsense-utils
3
 * NAME
4
 *   pfsense-utils.inc - Utilities specific to pfSense
5
 * DESCRIPTION
6
 *   This include contains various pfSense specific functions.
7
 * HISTORY
8
 *   $Id$
9
 ******
10
 *
11
 * Copyright (C) 2004-2007 Scott Ullrich (sullrich@gmail.com)
12
 * All rights reserved.
13
 * Redistribution and use in source and binary forms, with or without
14
 * modification, are permitted provided that the following conditions are met:
15
 *
16
 * 1. Redistributions of source code must retain the above copyright notice,
17
 * this list of conditions and the following disclaimer.
18
 *
19
 * 2. Redistributions in binary form must reproduce the above copyright
20
 * notice, this list of conditions and the following disclaimer in the
21
 * documentation and/or other materials provided with the distribution.
22
 *
23
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
24
 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
25
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
26
 * AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
27
 * OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
28
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
29
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
30
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
31
 * RISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
32
 * POSSIBILITY OF SUCH DAMAGE.
33
 *
34
 */
35

    
36
/*
37
	pfSense_BUILDER_BINARIES:	/sbin/sysctl	/sbin/ifconfig	/sbin/pfctl	/usr/local/bin/php /usr/bin/netstat
38
	pfSense_BUILDER_BINARIES:	/bin/df	/usr/bin/grep	/usr/bin/awk	/bin/rm	/usr/sbin/pwd_mkdb	/usr/bin/host
39
	pfSense_BUILDER_BINARIES:	/sbin/kldload
40
	pfSense_MODULE:	utils
41
*/
42

    
43
/****f* pfsense-utils/have_natpfruleint_access
44
 * NAME
45
 *   have_natpfruleint_access
46
 * INPUTS
47
 *	none
48
 * RESULT
49
 *   returns true if user has access to edit a specific firewall nat port forward interface
50
 ******/
51
function have_natpfruleint_access($if) {
52
	$security_url = "firewall_nat_edit.php?if=". strtolower($if);
53
	if(isAllowedPage($security_url, $allowed))
54
		return true;
55
	return false;
56
}
57

    
58
/****f* pfsense-utils/have_ruleint_access
59
 * NAME
60
 *   have_ruleint_access
61
 * INPUTS
62
 *	none
63
 * RESULT
64
 *   returns true if user has access to edit a specific firewall interface
65
 ******/
66
function have_ruleint_access($if) {
67
	$security_url = "firewall_rules.php?if=". strtolower($if);
68
	if(isAllowedPage($security_url))
69
		return true;
70
	return false;
71
}
72

    
73
/****f* pfsense-utils/does_url_exist
74
 * NAME
75
 *   does_url_exist
76
 * INPUTS
77
 *	none
78
 * RESULT
79
 *   returns true if a url is available
80
 ******/
81
function does_url_exist($url) {
82
	$fd = fopen("$url","r");
83
	if($fd) {
84
		fclose($fd);
85
		return true;
86
	} else {
87
		return false;
88
	}
89
}
90

    
91
/****f* pfsense-utils/is_private_ip
92
 * NAME
93
 *   is_private_ip
94
 * INPUTS
95
 *	none
96
 * RESULT
97
 *   returns true if an ip address is in a private range
98
 ******/
99
function is_private_ip($iptocheck) {
100
	$isprivate = false;
101
	$ip_private_list=array(
102
		"10.0.0.0/8",
103
		"100.64.0.0/10",
104
		"172.16.0.0/12",
105
		"192.168.0.0/16",
106
	);
107
	foreach($ip_private_list as $private) {
108
		if(ip_in_subnet($iptocheck,$private)==true)
109
			$isprivate = true;
110
	}
111
	return $isprivate;
112
}
113

    
114
/****f* pfsense-utils/get_tmp_file
115
 * NAME
116
 *   get_tmp_file
117
 * INPUTS
118
 *	none
119
 * RESULT
120
 *   returns a temporary filename
121
 ******/
122
function get_tmp_file() {
123
	global $g;
124
	return "{$g['tmp_path']}/tmp-" . time();
125
}
126

    
127
/****f* pfsense-utils/get_dns_servers
128
 * NAME
129
 *   get_dns_servres - get system dns servers
130
 * INPUTS
131
 *   $dns_servers - an array of the dns servers
132
 * RESULT
133
 *   null
134
 ******/
135
function get_dns_servers() {
136
	$dns_servers = array();
137
	$dns_s = file("/etc/resolv.conf", FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES);
138
	foreach($dns_s as $dns) {
139
		$matches = "";
140
		if (preg_match("/nameserver (.*)/", $dns, $matches))
141
			$dns_servers[] = $matches[1];
142
	}
143
	return array_unique($dns_servers);
144
}
145

    
146
/****f* pfsense-utils/enable_hardware_offloading
147
 * NAME
148
 *   enable_hardware_offloading - Enable a NIC's supported hardware features.
149
 * INPUTS
150
 *   $interface	- string containing the physical interface to work on.
151
 * RESULT
152
 *   null
153
 * NOTES
154
 *   This function only supports the fxp driver's loadable microcode.
155
 ******/
156
function enable_hardware_offloading($interface) {
157
	global $g, $config;
158

    
159
	if(isset($config['system']['do_not_use_nic_microcode']))
160
		return;
161

    
162
	/* translate wan, lan, opt -> real interface if needed */
163
	$int = get_real_interface($interface);
164
	if(empty($int))
165
		return;
166
	$int_family = preg_split("/[0-9]+/", $int);
167
	$supported_ints = array('fxp');
168
	if (in_array($int_family, $supported_ints)) {
169
		if(does_interface_exist($int))
170
			pfSense_interface_flags($int, IFF_LINK0);
171
	}
172

    
173
	return;
174
}
175

    
176
/****f* pfsense-utils/interface_supports_polling
177
 * NAME
178
 *   checks to see if an interface supports polling according to man polling
179
 * INPUTS
180
 *
181
 * RESULT
182
 *   true or false
183
 * NOTES
184
 *
185
 ******/
186
function interface_supports_polling($iface) {
187
	$opts = pfSense_get_interface_addresses($iface);
188
	if (is_array($opts) && isset($opts['caps']['polling']))
189
		return true;
190

    
191
	return false;
192
}
193

    
194
/****f* pfsense-utils/is_alias_inuse
195
 * NAME
196
 *   checks to see if an alias is currently in use by a rule
197
 * INPUTS
198
 *
199
 * RESULT
200
 *   true or false
201
 * NOTES
202
 *
203
 ******/
204
function is_alias_inuse($alias) {
205
	global $g, $config;
206

    
207
	if($alias == "") return false;
208
	/* loop through firewall rules looking for alias in use */
209
	if(is_array($config['filter']['rule']))
210
		foreach($config['filter']['rule'] as $rule) {
211
			if($rule['source']['address'])
212
				if($rule['source']['address'] == $alias)
213
					return true;
214
			if($rule['destination']['address'])
215
				if($rule['destination']['address'] == $alias)
216
					return true;
217
		}
218
	/* loop through nat rules looking for alias in use */
219
	if(is_array($config['nat']['rule']))
220
		foreach($config['nat']['rule'] as $rule) {
221
			if($rule['target'] && $rule['target'] == $alias)
222
				return true;
223
			if($rule['source']['address'] && $rule['source']['address'] == $alias)
224
				return true;
225
			if($rule['destination']['address'] && $rule['destination']['address'] == $alias)
226
				return true;
227
		}
228
	return false;
229
}
230

    
231
/****f* pfsense-utils/is_schedule_inuse
232
 * NAME
233
 *   checks to see if a schedule is currently in use by a rule
234
 * INPUTS
235
 *
236
 * RESULT
237
 *   true or false
238
 * NOTES
239
 *
240
 ******/
241
function is_schedule_inuse($schedule) {
242
	global $g, $config;
243

    
244
	if($schedule == "") return false;
245
	/* loop through firewall rules looking for schedule in use */
246
	if(is_array($config['filter']['rule']))
247
		foreach($config['filter']['rule'] as $rule) {
248
			if($rule['sched'] == $schedule)
249
				return true;
250
		}
251
	return false;
252
}
253

    
254
/****f* pfsense-utils/setup_polling
255
 * NAME
256
 *   sets up polling
257
 * INPUTS
258
 *
259
 * RESULT
260
 *   null
261
 * NOTES
262
 *
263
 ******/
264
function setup_polling() {
265
	global $g, $config;
266

    
267
	if (isset($config['system']['polling']))
268
		mwexec("/sbin/sysctl kern.polling.idle_poll=1");
269
	else
270
		mwexec("/sbin/sysctl kern.polling.idle_poll=0");
271

    
272
	if($config['system']['polling_each_burst'])
273
		mwexec("/sbin/sysctl kern.polling.each_burst={$config['system']['polling_each_burst']}");
274
	if($config['system']['polling_burst_max'])
275
		mwexec("/sbin/sysctl kern.polling.burst_max={$config['system']['polling_burst_max']}");
276
	if($config['system']['polling_user_frac'])
277
		mwexec("/sbin/sysctl kern.polling.user_frac={$config['system']['polling_user_frac']}");
278
}
279

    
280
/****f* pfsense-utils/setup_microcode
281
 * NAME
282
 *   enumerates all interfaces and calls enable_hardware_offloading which
283
 *   enables a NIC's supported hardware features.
284
 * INPUTS
285
 *
286
 * RESULT
287
 *   null
288
 * NOTES
289
 *   This function only supports the fxp driver's loadable microcode.
290
 ******/
291
function setup_microcode() {
292

    
293
	/* if list */
294
	$ifs = get_interface_arr();
295

    
296
	foreach($ifs as $if)
297
		enable_hardware_offloading($if);
298
}
299

    
300
/****f* pfsense-utils/get_carp_status
301
 * NAME
302
 *   get_carp_status - Return whether CARP is enabled or disabled.
303
 * RESULT
304
 *   boolean	- true if CARP is enabled, false if otherwise.
305
 ******/
306
function get_carp_status() {
307
	/* grab the current status of carp */
308
	$status = `/sbin/sysctl -n net.inet.carp.allow`;
309
	return (intval($status) > 0);
310
}
311

    
312
/*
313
 * convert_ip_to_network_format($ip, $subnet): converts an ip address to network form
314

    
315
 */
316
function convert_ip_to_network_format($ip, $subnet) {
317
	$ipsplit = explode('.', $ip);
318
	$string = $ipsplit[0] . "." . $ipsplit[1] . "." . $ipsplit[2] . ".0/" . $subnet;
319
	return $string;
320
}
321

    
322
/*
323
 * get_carp_interface_status($carpinterface): returns the status of a carp ip
324
 */
325
function get_carp_interface_status($carpinterface) {
326
	$carp_query = "";
327
	exec("/sbin/ifconfig $carpinterface | /usr/bin/grep -v grep | /usr/bin/grep carp:", $carp_query);
328
	foreach($carp_query as $int) {
329
		if(stristr($int, "MASTER"))
330
			return gettext("MASTER");
331
		if(stristr($int, "BACKUP"))
332
			return gettext("BACKUP");
333
		if(stristr($int, "INIT"))
334
			return gettext("INIT");
335
	}
336
	return;
337
}
338

    
339
/*
340
 * get_pfsync_interface_status($pfsyncinterface): returns the status of a pfsync
341
 */
342
function get_pfsync_interface_status($pfsyncinterface) {
343
	$result = does_interface_exist($pfsyncinterface);
344
	if($result <> true) return;
345
	$status = exec_command("/sbin/ifconfig {$pfsyncinterface} | /usr/bin/awk '/pfsync:/ {print \$5}'");
346
	return $status;
347
}
348

    
349
/*
350
 * add_rule_to_anchor($anchor, $rule): adds the specified rule to an anchor
351
 */
352
function add_rule_to_anchor($anchor, $rule, $label) {
353
	mwexec("echo " . $rule . " | /sbin/pfctl -a " . $anchor . ":" . $label . " -f -");
354
}
355

    
356
/*
357
 * remove_text_from_file
358
 * remove $text from file $file
359
 */
360
function remove_text_from_file($file, $text) {
361
	if(!file_exists($file) && !is_writable($file))
362
		return;
363
	$filecontents = file_get_contents($file);
364
	$text = str_replace($text, "", $filecontents);
365
	@file_put_contents($file, $text);
366
}
367

    
368
/*
369
 * add_text_to_file($file, $text): adds $text to $file.
370
 * replaces the text if it already exists.
371
 */
372
function add_text_to_file($file, $text, $replace = false) {
373
	if(file_exists($file) and is_writable($file)) {
374
		$filecontents = file($file);
375
		$filecontents = array_map('rtrim', $filecontents);
376
		array_push($filecontents, $text);
377
		if ($replace)
378
			$filecontents = array_unique($filecontents);
379

    
380
		$file_text = implode("\n", $filecontents);
381

    
382
		@file_put_contents($file, $file_text);
383
		return true;
384
	}
385
	return false;
386
}
387

    
388
/*
389
 *   after_sync_bump_adv_skew(): create skew values by 1S
390
 */
391
function after_sync_bump_adv_skew() {
392
	global $config, $g;
393
	$processed_skew = 1;
394
	$a_vip = &$config['virtualip']['vip'];
395
	foreach ($a_vip as $vipent) {
396
		if($vipent['advskew'] <> "") {
397
			$processed_skew = 1;
398
			$vipent['advskew'] = $vipent['advskew']+1;
399
		}
400
	}
401
	if($processed_skew == 1)
402
		write_config(gettext("After synch increase advertising skew"));
403
}
404

    
405
/*
406
 * get_filename_from_url($url): converts a url to its filename.
407
 */
408
function get_filename_from_url($url) {
409
	return basename($url);
410
}
411

    
412
/*
413
 *   get_dir: return an array of $dir
414
 */
415
function get_dir($dir) {
416
	$dir_array = array();
417
	$d = dir($dir);
418
	while (false !== ($entry = $d->read())) {
419
		array_push($dir_array, $entry);
420
	}
421
	$d->close();
422
	return $dir_array;
423
}
424

    
425
/****f* pfsense-utils/WakeOnLan
426
 * NAME
427
 *   WakeOnLan - Wake a machine up using the wake on lan format/protocol
428
 * RESULT
429
 *   true/false - true if the operation was successful
430
 ******/
431
function WakeOnLan($addr, $mac)
432
{
433
	$addr_byte = explode(':', $mac);
434
	$hw_addr = '';
435

    
436
	for ($a=0; $a < 6; $a++)
437
		$hw_addr .= chr(hexdec($addr_byte[$a]));
438

    
439
	$msg = chr(255).chr(255).chr(255).chr(255).chr(255).chr(255);
440

    
441
	for ($a = 1; $a <= 16; $a++)
442
		$msg .= $hw_addr;
443

    
444
	// send it to the broadcast address using UDP
445
	$s = socket_create(AF_INET, SOCK_DGRAM, SOL_UDP);
446
	if ($s == false) {
447
		log_error(gettext("Error creating socket!"));
448
		log_error(sprintf(gettext("Error code is '%1\$s' - %2\$s"), socket_last_error($s), socket_strerror(socket_last_error($s))));
449
	} else {
450
		// setting a broadcast option to socket:
451
		$opt_ret =  socket_set_option($s, 1, 6, TRUE);
452
		if($opt_ret < 0)
453
			log_error(sprintf(gettext("setsockopt() failed, error: %s"), strerror($opt_ret)));
454
		$e = socket_sendto($s, $msg, strlen($msg), 0, $addr, 2050);
455
		socket_close($s);
456
		log_error(sprintf(gettext('Magic Packet sent (%1$s) to {%2$s} MAC=%3$s'), $e, $addr, $mac));
457
		return true;
458
	}
459

    
460
	return false;
461
}
462

    
463
/*
464
 * reverse_strrchr($haystack, $needle):  Return everything in $haystack up to the *last* instance of $needle.
465
 *					 Useful for finding paths and stripping file extensions.
466
 */
467
function reverse_strrchr($haystack, $needle) {
468
	if (!is_string($haystack))
469
		return;
470
	return strrpos($haystack, $needle) ? substr($haystack, 0, strrpos($haystack, $needle) +1 ) : false;
471
}
472

    
473
/*
474
 *  backup_config_section($section): returns as an xml file string of
475
 *                                   the configuration section
476
 */
477
function backup_config_section($section_name) {
478
	global $config;
479
	$new_section = &$config[$section_name];
480
	/* generate configuration XML */
481
	$xmlconfig = dump_xml_config($new_section, $section_name);
482
	$xmlconfig = str_replace("<?xml version=\"1.0\"?>", "", $xmlconfig);
483
	return $xmlconfig;
484
}
485

    
486
/*
487
 *  restore_config_section($section_name, new_contents): restore a configuration section,
488
 *                                                  and write the configuration out
489
 *                                                  to disk/cf.
490
 */
491
function restore_config_section($section_name, $new_contents) {
492
	global $config, $g;
493
	conf_mount_rw();
494
	$fout = fopen("{$g['tmp_path']}/tmpxml","w");
495
	fwrite($fout, $new_contents);
496
	fclose($fout);
497

    
498
	$xml = parse_xml_config($g['tmp_path'] . "/tmpxml", null);
499
	if ($xml['pfsense']) {
500
		$xml = $xml['pfsense'];
501
	}
502
	else if ($xml['m0n0wall']) {
503
		$xml = $xml['m0n0wall'];
504
	}
505
	if ($xml[$section_name]) {
506
		$section_xml = $xml[$section_name];
507
	} else {
508
		$section_xml = -1;
509
	}
510

    
511
	@unlink($g['tmp_path'] . "/tmpxml");
512
	if ($section_xml === -1) {
513
		return false;
514
	}
515
	$config[$section_name] = &$section_xml;
516
	if(file_exists("{$g['tmp_path']}/config.cache"))
517
		unlink("{$g['tmp_path']}/config.cache");
518
	write_config(sprintf(gettext("Restored %s of config file (maybe from CARP partner)"), $section_name));
519
	disable_security_checks();
520
	conf_mount_ro();
521
	return true;
522
}
523

    
524
/*
525
 *  merge_config_section($section_name, new_contents):   restore a configuration section,
526
 *                                                  and write the configuration out
527
 *                                                  to disk/cf.  But preserve the prior
528
 * 													structure if needed
529
 */
530
function merge_config_section($section_name, $new_contents) {
531
	global $config;
532
	conf_mount_rw();
533
	$fname = get_tmp_filename();
534
	$fout = fopen($fname, "w");
535
	fwrite($fout, $new_contents);
536
	fclose($fout);
537
	$section_xml = parse_xml_config($fname, $section_name);
538
	$config[$section_name] = $section_xml;
539
	unlink($fname);
540
	write_config(sprintf(gettext("Restored %s of config file (maybe from CARP partner)"), $section_name));
541
	disable_security_checks();
542
	conf_mount_ro();
543
	return;
544
}
545

    
546
/*
547
 * http_post($server, $port, $url, $vars): does an http post to a web server
548
 *                                         posting the vars array.
549
 * written by nf@bigpond.net.au
550
 */
551
function http_post($server, $port, $url, $vars) {
552
	$user_agent = "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)";
553
	$urlencoded = "";
554
	while (list($key,$value) = each($vars))
555
		$urlencoded.= urlencode($key) . "=" . urlencode($value) . "&";
556
	$urlencoded = substr($urlencoded,0,-1);
557
	$content_length = strlen($urlencoded);
558
	$headers = "POST $url HTTP/1.1
559
Accept: */*
560
Accept-Language: en-au
561
Content-Type: application/x-www-form-urlencoded
562
User-Agent: $user_agent
563
Host: $server
564
Connection: Keep-Alive
565
Cache-Control: no-cache
566
Content-Length: $content_length
567

    
568
";
569

    
570
	$errno = "";
571
	$errstr = "";
572
	$fp = fsockopen($server, $port, $errno, $errstr);
573
	if (!$fp) {
574
		return false;
575
	}
576

    
577
	fputs($fp, $headers);
578
	fputs($fp, $urlencoded);
579

    
580
	$ret = "";
581
	while (!feof($fp))
582
		$ret.= fgets($fp, 1024);
583
	fclose($fp);
584

    
585
	return $ret;
586
}
587

    
588
/*
589
 *  php_check_syntax($code_tocheck, $errormessage): checks $code_to_check for errors
590
 */
591
if (!function_exists('php_check_syntax')){
592
	global $g;
593
	function php_check_syntax($code_to_check, &$errormessage){
594
		return false;
595
		$fout = fopen("{$g['tmp_path']}/codetocheck.php","w");
596
		$code = $_POST['content'];
597
		$code = str_replace("<?php", "", $code);
598
		$code = str_replace("?>", "", $code);
599
		fwrite($fout, "<?php\n\n");
600
		fwrite($fout, $code_to_check);
601
		fwrite($fout, "\n\n?>\n");
602
		fclose($fout);
603
		$command = "/usr/local/bin/php -l {$g['tmp_path']}/codetocheck.php";
604
		$output = exec_command($command);
605
		if (stristr($output, "Errors parsing") == false) {
606
			echo "false\n";
607
			$errormessage = '';
608
			return(false);
609
		} else {
610
			$errormessage = $output;
611
			return(true);
612
		}
613
	}
614
}
615

    
616
/*
617
 *  php_check_filename_syntax($filename, $errormessage): checks the file $filename for errors
618
 */
619
if (!function_exists('php_check_syntax')){
620
	function php_check_syntax($code_to_check, &$errormessage){
621
		return false;
622
		$command = "/usr/local/bin/php -l " . $code_to_check;
623
		$output = exec_command($command);
624
		if (stristr($output, "Errors parsing") == false) {
625
			echo "false\n";
626
			$errormessage = '';
627
			return(false);
628
		} else {
629
			$errormessage = $output;
630
			return(true);
631
		}
632
	}
633
}
634

    
635
/*
636
 * rmdir_recursive($path,$follow_links=false)
637
 * Recursively remove a directory tree (rm -rf path)
638
 * This is for directories _only_
639
 */
640
function rmdir_recursive($path,$follow_links=false) {
641
	$to_do = glob($path);
642
	if(!is_array($to_do)) $to_do = array($to_do);
643
	foreach($to_do as $workingdir) { // Handle wildcards by foreaching.
644
		if(file_exists($workingdir)) {
645
			if(is_dir($workingdir)) {
646
				$dir = opendir($workingdir);
647
				while ($entry = readdir($dir)) {
648
					if (is_file("$workingdir/$entry") || ((!$follow_links) && is_link("$workingdir/$entry")))
649
						unlink("$workingdir/$entry");
650
					elseif (is_dir("$workingdir/$entry") && $entry!='.' && $entry!='..')
651
						rmdir_recursive("$workingdir/$entry");
652
				}
653
				closedir($dir);
654
				rmdir($workingdir);
655
			} elseif (is_file($workingdir)) {
656
				unlink($workingdir);
657
			}
658
		}
659
	}
660
	return;
661
}
662

    
663
/*
664
 * call_pfsense_method(): Call a method exposed by the pfsense.com XMLRPC server.
665
 */
666
function call_pfsense_method($method, $params, $timeout = 0) {
667
	global $g, $config;
668

    
669
	$ip = gethostbyname($g['product_website']);
670
	if($ip == $g['product_website'])
671
		return false;
672

    
673
	$xmlrpc_base_url = isset($config['system']['altpkgrepo']['enable']) ? $config['system']['altpkgrepo']['xmlrpcbaseurl'] : $g['xmlrpcbaseurl'];
674
	$xmlrpc_path = $g['xmlrpcpath'];
675
	$msg = new XML_RPC_Message($method, array(XML_RPC_Encode($params)));
676
	$port = 0;
677
	$proxyurl = "";
678
	$proxyport = 0;
679
	$proxyuser = "";
680
	$proxypass = "";
681
	if (!empty($config['system']['proxyurl']))
682
		$proxyurl = $config['system']['proxyurl'];
683
	if (!empty($config['system']['proxyport']) && is_numeric($config['system']['proxyport']))
684
		$proxyport = $config['system']['proxyport'];
685
	if (!empty($config['system']['proxyuser']))
686
		$proxyuser = $config['system']['proxyuser'];
687
	if (!empty($config['system']['proxypass']))
688
		$proxypass = $config['system']['proxypass'];
689
	$cli = new XML_RPC_Client($xmlrpc_path, $xmlrpc_base_url, $port, $proxyurl, $proxyport, $proxyuser, $proxypass);
690
	// If the ALT PKG Repo has a username/password set, use it.
691
	if($config['system']['altpkgrepo']['username'] &&
692
	   $config['system']['altpkgrepo']['password']) {
693
		$username = $config['system']['altpkgrepo']['username'];
694
		$password = $config['system']['altpkgrepo']['password'];
695
		$cli->setCredentials($username, $password);
696
	}
697
	$resp = $cli->send($msg, $timeout);
698
	if(!is_object($resp)) {
699
		log_error(sprintf(gettext("XMLRPC communication error: %s"), $cli->errstr));
700
		return false;
701
	} elseif($resp->faultCode()) {
702
		log_error(sprintf(gettext('XMLRPC request failed with error %1$s: %2$s'), $resp->faultCode(), $resp->faultString()));
703
		return false;
704
	} else {
705
		return XML_RPC_Decode($resp->value());
706
	}
707
}
708

    
709
/*
710
 * check_firmware_version(): Check whether the current firmware installed is the most recently released.
711
 */
712
function check_firmware_version($tocheck = "all", $return_php = true) {
713
	global $g, $config;
714

    
715
	$ip = gethostbyname($g['product_website']);
716
	if($ip == $g['product_website'])
717
		return false;
718

    
719
	$rawparams = array("firmware" => array("version" => trim(file_get_contents('/etc/version'))),
720
		"kernel"   => array("version" => trim(file_get_contents('/etc/version_kernel'))),
721
		"base"     => array("version" => trim(file_get_contents('/etc/version_base'))),
722
		"platform" => trim(file_get_contents('/etc/platform')),
723
		"config_version" => $config['version']
724
		);
725
	if($tocheck == "all") {
726
		$params = $rawparams;
727
	} else {
728
		foreach($tocheck as $check) {
729
			$params['check'] = $rawparams['check'];
730
			$params['platform'] = $rawparams['platform'];
731
		}
732
	}
733
	if($config['system']['firmware']['branch'])
734
		$params['branch'] = $config['system']['firmware']['branch'];
735

    
736
	/* XXX: What is this method? */
737
	if(!($versions = call_pfsense_method('pfsense.get_firmware_version', $params))) {
738
		return false;
739
	} else {
740
		$versions["current"] = $params;
741
	}
742

    
743
	return $versions;
744
}
745

    
746
/*
747
 * host_firmware_version(): Return the versions used in this install
748
 */
749
function host_firmware_version($tocheck = "") {
750
	global $g, $config;
751

    
752
	return array(
753
		"firmware" => array("version" => trim(file_get_contents('/etc/version', " \n"))),
754
		"kernel"   => array("version" => trim(file_get_contents('/etc/version_kernel', " \n"))),
755
		"base"     => array("version" => trim(file_get_contents('/etc/version_base', " \n"))),
756
		"platform" => trim(file_get_contents('/etc/platform', " \n")),
757
		"config_version" => $config['version']
758
	);
759
}
760

    
761
function get_disk_info() {
762
	$diskout = "";
763
	exec("/bin/df -h | /usr/bin/grep -w '/' | /usr/bin/awk '{ print $2, $3, $4, $5 }'", $diskout);
764
	return explode(' ', $diskout[0]);
765
}
766

    
767
/****f* pfsense-utils/strncpy
768
 * NAME
769
 *   strncpy - copy strings
770
 * INPUTS
771
 *   &$dst, $src, $length
772
 * RESULT
773
 *   none
774
 ******/
775
function strncpy(&$dst, $src, $length) {
776
	if (strlen($src) > $length) {
777
		$dst = substr($src, 0, $length);
778
	} else {
779
		$dst = $src;
780
	}
781
}
782

    
783
/****f* pfsense-utils/reload_interfaces_sync
784
 * NAME
785
 *   reload_interfaces - reload all interfaces
786
 * INPUTS
787
 *   none
788
 * RESULT
789
 *   none
790
 ******/
791
function reload_interfaces_sync() {
792
	global $config, $g;
793

    
794
	if($g['debug'])
795
		log_error(gettext("reload_interfaces_sync() is starting."));
796

    
797
	/* parse config.xml again */
798
	$config = parse_config(true);
799

    
800
	/* enable routing */
801
	system_routing_enable();
802
	if($g['debug'])
803
		log_error(gettext("Enabling system routing"));
804

    
805
	if($g['debug'])
806
		log_error(gettext("Cleaning up Interfaces"));
807

    
808
	/* set up interfaces */
809
	interfaces_configure();
810
}
811

    
812
/****f* pfsense-utils/reload_all
813
 * NAME
814
 *   reload_all - triggers a reload of all settings
815
 *   * INPUTS
816
 *   none
817
 * RESULT
818
 *   none
819
 ******/
820
function reload_all() {
821
	send_event("service reload all");
822
}
823

    
824
/****f* pfsense-utils/reload_interfaces
825
 * NAME
826
 *   reload_interfaces - triggers a reload of all interfaces
827
 * INPUTS
828
 *   none
829
 * RESULT
830
 *   none
831
 ******/
832
function reload_interfaces() {
833
	send_event("interface all reload");
834
}
835

    
836
/****f* pfsense-utils/reload_all_sync
837
 * NAME
838
 *   reload_all - reload all settings
839
 *   * INPUTS
840
 *   none
841
 * RESULT
842
 *   none
843
 ******/
844
function reload_all_sync() {
845
	global $config, $g;
846

    
847
	$g['booting'] = false;
848

    
849
	/* parse config.xml again */
850
	$config = parse_config(true);
851

    
852
	/* set up our timezone */
853
	system_timezone_configure();
854

    
855
	/* set up our hostname */
856
	system_hostname_configure();
857

    
858
	/* make hosts file */
859
	system_hosts_generate();
860

    
861
	/* generate resolv.conf */
862
	system_resolvconf_generate();
863

    
864
	/* enable routing */
865
	system_routing_enable();
866

    
867
	/* set up interfaces */
868
	interfaces_configure();
869

    
870
	/* start dyndns service */
871
	services_dyndns_configure();
872

    
873
	/* configure cron service */
874
	configure_cron();
875

    
876
	/* start the NTP client */
877
	system_ntp_configure();
878

    
879
	/* sync pw database */
880
	conf_mount_rw();
881
	unlink_if_exists("/etc/spwd.db.tmp");
882
	mwexec("/usr/sbin/pwd_mkdb -d /etc/ /etc/master.passwd");
883
	conf_mount_ro();
884

    
885
	/* restart sshd */
886
	send_event("service restart sshd");
887

    
888
	/* restart webConfigurator if needed */
889
	send_event("service restart webgui");
890
}
891

    
892
function auto_login() {
893
	global $config;
894

    
895
	if(isset($config['system']['disableconsolemenu']))
896
		$status = false;
897
	else
898
		$status = true;
899

    
900
	$gettytab = file_get_contents("/etc/gettytab");
901
	$getty_split = explode("\n", $gettytab);
902
	$getty_update_needed = false;
903
	$getty_search_str = ":ht:np:sp#115200";
904
	$getty_al_str = ":al=root:";
905
	$getty_al_search_str = $getty_search_str . $getty_al_str;
906
	/* Check if gettytab is already OK, if so then do not rewrite it. */
907
	foreach($getty_split as $gs) {
908
		if(stristr($gs, $getty_search_str)) {
909
			if($status == true) {
910
				if(!stristr($gs, $getty_al_search_str)) {
911
					$getty_update_needed = true;
912
				}
913
			} else {
914
				if(stristr($gs, $getty_al_search_str)) {
915
					$getty_update_needed = true;
916
				}
917
			}
918
		}
919
	}
920

    
921
	if (!$getty_update_needed) {
922
		return;
923
	}
924

    
925
	conf_mount_rw();
926
	$fd = false;
927
	$tries = 0;
928
	while (!$fd && $tries < 100) {
929
		$fd = fopen("/etc/gettytab", "w");
930
		$tries++;
931

    
932
	}
933
	if (!$fd) {
934
		conf_mount_ro();
935
		if ($status) {
936
			log_error(gettext("Enabling auto login was not possible."));
937
		} else {
938
			log_error(gettext("Disabling auto login was not possible."));
939
		}
940
		return;
941
	}
942
	foreach($getty_split as $gs) {
943
		if(stristr($gs, $getty_search_str)) {
944
			if($status == true) {
945
				fwrite($fd, "	".$getty_al_search_str."\n");
946
			} else {
947
				fwrite($fd, "	".$getty_search_str."\n");
948
			}
949
		} else {
950
			fwrite($fd, "{$gs}\n");
951
		}
952
	}
953
	fclose($fd);
954

    
955
	if ($status) {
956
		log_error(gettext("Enabled console auto login, console menu is NOT password protected."));
957
	} else {
958
		log_error(gettext("Disabled console auto login, console menu is password protected."));
959
	}
960

    
961
	conf_mount_ro();
962
}
963

    
964
function setup_serial_port($when="save", $path="") {
965
	global $g, $config;
966
	conf_mount_rw();
967
	$prefix = "";
968
	if (($when == "upgrade") && (!empty($path)) && is_dir($path.'/boot/'))
969
		$prefix = "/tmp/{$path}";
970
	$boot_config_file = "{$path}/boot.config";
971
	$loader_conf_file = "{$path}/boot/loader.conf";
972
	/* serial console - write out /boot.config */
973
	if(file_exists($boot_config_file))
974
		$boot_config = file_get_contents($boot_config_file);
975
	else
976
		$boot_config = "";
977

    
978
	if(($g['platform'] != "cdrom") && ($g['platform'] != "nanobsd")) {
979
		$boot_config_split = explode("\n", $boot_config);
980
		$fd = fopen($boot_config_file,"w");
981
		if($fd) {
982
			foreach($boot_config_split as $bcs) {
983
				if(stristr($bcs, "-D")) {
984
					/* DONT WRITE OUT, WE'LL DO IT LATER */
985
				} else {
986
					if($bcs <> "")
987
						fwrite($fd, "{$bcs}\n");
988
				}
989
			}
990
			if(isset($config['system']['enableserial'])) {
991
				fwrite($fd, "-D");
992
			}
993
			fclose($fd);
994
		}
995
	}
996
	if($g['platform'] != "cdrom") {
997
		/* serial console - write out /boot/loader.conf */
998
		if ($when == "upgrade")
999
			system("echo \"Reading {$loader_conf_file}...\" >> /conf/upgrade_log.txt");
1000
		$boot_config = file_get_contents($loader_conf_file);
1001
		$boot_config_split = explode("\n", $boot_config);
1002
		if(count($boot_config_split) > 0) {
1003
			$new_boot_config = array();
1004
			// Loop through and only add lines that are not empty, and which
1005
			//  do not contain a console directive.
1006
			foreach($boot_config_split as $bcs)
1007
				if(!empty($bcs)
1008
					&& (stripos($bcs, "console") === false)
1009
					&& (stripos($bcs, "boot_multicons") === false)
1010
					&& (stripos($bcs, "boot_serial") === false)
1011
					&& (stripos($bcs, "hw.usb.no_pf") === false))
1012
					$new_boot_config[] = $bcs;
1013

    
1014
			$serialspeed = (is_numeric($config['system']['serialspeed'])) ? $config['system']['serialspeed'] : "9600";
1015
			if(isset($config['system']['enableserial'])) {
1016
				$new_boot_config[] = 'boot_multicons="YES"';
1017
				$new_boot_config[] = 'boot_serial="YES"';
1018
				$new_boot_config[] = 'comconsole_speed="' . $serialspeed . '"';
1019
				$new_boot_config[] = 'console="comconsole,vidconsole"';
1020
			} elseif ($g['platform'] == "nanobsd") {
1021
				$new_boot_config[] = 'comconsole_speed="' . $serialspeed . '"';
1022
			}
1023

    
1024
			$new_boot_config[] = 'hw.usb.no_pf="1"';
1025

    
1026
			file_put_contents($loader_conf_file, implode("\n", $new_boot_config) . "\n");
1027
		}
1028
	}
1029
	$ttys = file_get_contents("/etc/ttys");
1030
	$ttys_split = explode("\n", $ttys);
1031
	$fd = fopen("/etc/ttys", "w");
1032
	foreach($ttys_split as $tty) {
1033
		if(stristr($tty, "ttyd0") or stristr($tty, "ttyu0")) {
1034
			if(isset($config['system']['enableserial'])) {
1035
				fwrite($fd, "ttyu0	\"/usr/libexec/getty bootupcli\"	cons25	on	secure\n");
1036
			} else {
1037
				fwrite($fd, "ttyu0	\"/usr/libexec/getty bootupcli\"	cons25	off	secure\n");
1038
			}
1039
		} else {
1040
			fwrite($fd, $tty . "\n");
1041
		}
1042
	}
1043
	fclose($fd);
1044
	auto_login();
1045

    
1046
	conf_mount_ro();
1047
	return;
1048
}
1049

    
1050
function print_value_list($list, $count = 10, $separator = ",") {
1051
	$list = implode($separator, array_slice($list, 0, $count));
1052
	if(count($list) < $count) {
1053
		$list .= ".";
1054
	} else {
1055
		$list .= "...";
1056
	}
1057
	return $list;
1058
}
1059

    
1060
/* DHCP enabled on any interfaces? */
1061
function is_dhcp_server_enabled() {
1062
	global $config;
1063

    
1064
	if (!is_array($config['dhcpd']))
1065
		return false;
1066

    
1067
	foreach ($config['dhcpd'] as $dhcpif => $dhcpifconf) {
1068
		if (isset($dhcpifconf['enable']) && !empty($config['interfaces'][$dhcpif]))
1069
			return true;
1070
	}
1071

    
1072
	return false;
1073
}
1074

    
1075
/* DHCP enabled on any interfaces? */
1076
function is_dhcpv6_server_enabled() {
1077
	global $config;
1078

    
1079
	if (is_array($config['interfaces'])) {
1080
		foreach ($config['interfaces'] as $ifcfg) {
1081
			if (isset($ifcfg['enable']) && !empty($ifcfg['track6-interface']))
1082
				return true;
1083
		}
1084
	}
1085

    
1086
	if (!is_array($config['dhcpdv6']))
1087
		return false;
1088

    
1089
	foreach ($config['dhcpdv6'] as $dhcpv6if => $dhcpv6ifconf) {
1090
		if (isset($dhcpv6ifconf['enable']) && !empty($config['interfaces'][$dhcpv6if]))
1091
			return true;
1092
	}
1093

    
1094
	return false;
1095
}
1096

    
1097
/* radvd enabled on any interfaces? */
1098
function is_radvd_enabled() {
1099
	global $config;
1100

    
1101
	if (!is_array($config['dhcpdv6']))
1102
		$config['dhcpdv6'] = array();
1103

    
1104
	$dhcpdv6cfg = $config['dhcpdv6'];
1105
	$Iflist = get_configured_interface_list();
1106

    
1107
	/* handle manually configured DHCP6 server settings first */
1108
	foreach ($dhcpdv6cfg as $dhcpv6if => $dhcpv6ifconf) {
1109
		if(!isset($config['interfaces'][$dhcpv6if]['enable']))
1110
			continue;
1111

    
1112
		if(!isset($dhcpv6ifconf['ramode']))
1113
			$dhcpv6ifconf['ramode'] = $dhcpv6ifconf['mode'];
1114

    
1115
		if($dhcpv6ifconf['ramode'] == "disabled")
1116
			continue;
1117

    
1118
		$ifcfgipv6 = get_interface_ipv6($dhcpv6if);
1119
		if(!is_ipaddrv6($ifcfgipv6))
1120
			continue;
1121

    
1122
		return true;
1123
	}
1124

    
1125
	/* handle DHCP-PD prefixes and 6RD dynamic interfaces */
1126
	foreach ($Iflist as $if => $ifdescr) {
1127
		if(!isset($config['interfaces'][$if]['track6-interface']))
1128
			continue;
1129
		if(!isset($config['interfaces'][$if]['enable']))
1130
			continue;
1131

    
1132
		$ifcfgipv6 = get_interface_ipv6($if);
1133
		if(!is_ipaddrv6($ifcfgipv6))
1134
			continue;
1135

    
1136
		$ifcfgsnv6 = get_interface_subnetv6($if);
1137
		$subnetv6 = gen_subnetv6($ifcfgipv6, $ifcfgsnv6);
1138

    
1139
		if(!is_ipaddrv6($subnetv6))
1140
			continue;
1141

    
1142
		return true;
1143
	}
1144

    
1145
	return false;
1146
}
1147

    
1148
/* Any PPPoE servers enabled? */
1149
function is_pppoe_server_enabled() {
1150
	global $config;
1151

    
1152
	$pppoeenable = false;
1153

    
1154
	if (!is_array($config['pppoes']) || !is_array($config['pppoes']['pppoe']))
1155
		return false;
1156

    
1157
	foreach ($config['pppoes']['pppoe'] as $pppoes)
1158
		if ($pppoes['mode'] == 'server')
1159
			$pppoeenable = true;
1160

    
1161
	return $pppoeenable;
1162
}
1163

    
1164
function convert_seconds_to_hms($sec){
1165
	$min=$hrs=0;
1166
	if ($sec != 0){
1167
		$min = floor($sec/60);
1168
		$sec %= 60;
1169
	}
1170
	if ($min != 0){
1171
		$hrs = floor($min/60);
1172
		$min %= 60;
1173
	}
1174
	if ($sec < 10)
1175
		$sec = "0".$sec;
1176
	if ($min < 10)
1177
		$min = "0".$min;
1178
	if ($hrs < 10)
1179
		$hrs = "0".$hrs;
1180
	$result = $hrs.":".$min.":".$sec;
1181
	return $result;
1182
}
1183

    
1184
/* Compute the total uptime from the ppp uptime log file in the conf directory */
1185

    
1186
function get_ppp_uptime($port){
1187
	if (file_exists("/conf/{$port}.log")){
1188
		$saved_time = file_get_contents("/conf/{$port}.log");
1189
		$uptime_data = explode("\n",$saved_time);
1190
		$sec=0;
1191
		foreach($uptime_data as $upt) {
1192
			$sec += substr($upt, 1 + strpos($upt, " "));
1193
		}
1194
		return convert_seconds_to_hms($sec);
1195
	} else {
1196
		$total_time = gettext("No history data found!");
1197
		return $total_time;
1198
	}
1199
}
1200

    
1201
//returns interface information
1202
function get_interface_info($ifdescr) {
1203
	global $config, $g;
1204

    
1205
	$ifinfo = array();
1206
	if (empty($config['interfaces'][$ifdescr]))
1207
		return;
1208
	$ifinfo['hwif'] = $config['interfaces'][$ifdescr]['if'];
1209
	$ifinfo['if'] = get_real_interface($ifdescr);
1210

    
1211
	$chkif = $ifinfo['if'];
1212
	$ifinfotmp = pfSense_get_interface_addresses($chkif);
1213
	$ifinfo['status'] = $ifinfotmp['status'];
1214
	if (empty($ifinfo['status']))
1215
		$ifinfo['status'] = "down";
1216
	$ifinfo['macaddr'] = $ifinfotmp['macaddr'];
1217
	$ifinfo['ipaddr'] = $ifinfotmp['ipaddr'];
1218
	$ifinfo['subnet'] = $ifinfotmp['subnet'];
1219
	$ifinfo['linklocal'] = get_interface_linklocal($ifdescr);
1220
	$ifinfo['ipaddrv6'] = get_interface_ipv6($ifdescr);
1221
	$ifinfo['subnetv6'] = get_interface_subnetv6($ifdescr);
1222
	if (isset($ifinfotmp['link0']))
1223
		$link0 = "down";
1224
	$ifinfotmp = pfSense_get_interface_stats($chkif);
1225
	// $ifinfo['inpkts'] = $ifinfotmp['inpkts'];
1226
	// $ifinfo['outpkts'] = $ifinfotmp['outpkts'];
1227
	$ifinfo['inerrs'] = $ifinfotmp['inerrs'];
1228
	$ifinfo['outerrs'] = $ifinfotmp['outerrs'];
1229
	$ifinfo['collisions'] = $ifinfotmp['collisions'];
1230

    
1231
	/* Use pfctl for non wrapping 64 bit counters */
1232
	/* Pass */
1233
	exec("/sbin/pfctl -vvsI -i {$chkif}", $pfctlstats);
1234
	$pf_in4_pass = preg_split("/ +/ ", $pfctlstats[3]);
1235
	$pf_out4_pass = preg_split("/ +/", $pfctlstats[5]);
1236
	$pf_in6_pass = preg_split("/ +/ ", $pfctlstats[7]);
1237
	$pf_out6_pass = preg_split("/ +/", $pfctlstats[9]);
1238
	$in4_pass = $pf_in4_pass[5];
1239
	$out4_pass = $pf_out4_pass[5];
1240
	$in4_pass_packets = $pf_in4_pass[3];
1241
	$out4_pass_packets = $pf_out4_pass[3];
1242
	$in6_pass = $pf_in6_pass[5];
1243
	$out6_pass = $pf_out6_pass[5];
1244
	$in6_pass_packets = $pf_in6_pass[3];
1245
	$out6_pass_packets = $pf_out6_pass[3];
1246
	$ifinfo['inbytespass'] = $in4_pass + $in6_pass;
1247
	$ifinfo['outbytespass'] = $out4_pass + $out6_pass;
1248
	$ifinfo['inpktspass'] = $in4_pass_packets + $in6_pass_packets;
1249
	$ifinfo['outpktspass'] = $out4_pass_packets + $out6_pass_packets;
1250

    
1251
	/* Block */
1252
	$pf_in4_block = preg_split("/ +/", $pfctlstats[4]);
1253
	$pf_out4_block = preg_split("/ +/", $pfctlstats[6]);
1254
	$pf_in6_block = preg_split("/ +/", $pfctlstats[8]);
1255
	$pf_out6_block = preg_split("/ +/", $pfctlstats[10]);
1256
	$in4_block = $pf_in4_block[5];
1257
	$out4_block = $pf_out4_block[5];
1258
	$in4_block_packets = $pf_in4_block[3];
1259
	$out4_block_packets = $pf_out4_block[3];
1260
	$in6_block = $pf_in6_block[5];
1261
	$out6_block = $pf_out6_block[5];
1262
	$in6_block_packets = $pf_in6_block[3];
1263
	$out6_block_packets = $pf_out6_block[3];
1264
	$ifinfo['inbytesblock'] = $in4_block + $in6_block;
1265
	$ifinfo['outbytesblock'] = $out4_block + $out6_block;
1266
	$ifinfo['inpktsblock'] = $in4_block_packets + $in6_block_packets;
1267
	$ifinfo['outpktsblock'] = $out4_block_packets + $out6_block_packets;
1268

    
1269
	$ifinfo['inbytes'] = $in4_pass + $in6_pass;
1270
	$ifinfo['outbytes'] = $out4_pass + $out6_pass;
1271
	$ifinfo['inpkts'] = $in4_pass_packets + $in6_pass_packets;
1272
	$ifinfo['outpkts'] = $out4_pass_packets + $out6_pass_packets;
1273

    
1274
	$ifconfiginfo = "";
1275
	$link_type = $config['interfaces'][$ifdescr]['ipaddr'];
1276
	switch ($link_type) {
1277
	/* DHCP? -> see if dhclient is up */
1278
	case "dhcp":
1279
		/* see if dhclient is up */
1280
		if (find_dhclient_process($ifinfo['if']) <> "")
1281
			$ifinfo['dhcplink'] = "up";
1282
		else
1283
			$ifinfo['dhcplink'] = "down";
1284

    
1285
		break;
1286
	/* PPPoE/PPTP/L2TP interface? -> get status from virtual interface */
1287
	case "pppoe":
1288
	case "pptp":
1289
	case "l2tp":
1290
		if ($ifinfo['status'] == "up" && !isset($link0))
1291
			/* get PPPoE link status for dial on demand */
1292
			$ifinfo["{$link_type}link"] = "up";
1293
		else
1294
			$ifinfo["{$link_type}link"] = "down";
1295

    
1296
		break;
1297
	/* PPP interface? -> get uptime for this session and cumulative uptime from the persistant log file in conf */
1298
	case "ppp":
1299
		if ($ifinfo['status'] == "up")
1300
			$ifinfo['ppplink'] = "up";
1301
		else
1302
			$ifinfo['ppplink'] = "down" ;
1303

    
1304
		if (empty($ifinfo['status']))
1305
			$ifinfo['status'] = "down";
1306

    
1307
		if (is_array($config['ppps']['ppp']) && count($config['ppps']['ppp'])) {
1308
			foreach ($config['ppps']['ppp'] as $pppid => $ppp) {
1309
				if ($config['interfaces'][$ifdescr]['if'] == $ppp['if'])
1310
					break;
1311
			}
1312
		}
1313
		$dev = $ppp['ports'];
1314
		if ($config['interfaces'][$ifdescr]['if'] != $ppp['if'] || empty($dev))
1315
			break;
1316
		if (!file_exists($dev)) {
1317
			$ifinfo['nodevice'] = 1;
1318
			$ifinfo['pppinfo'] = $dev . " " . gettext("device not present! Is the modem attached to the system?");
1319
		}
1320

    
1321
		$usbmodemoutput = array();
1322
		exec("usbconfig", $usbmodemoutput);
1323
		$mondev = "{$g['tmp_path']}/3gstats.{$ifdescr}";
1324
		if(file_exists($mondev)) {
1325
			$cellstats = file($mondev);
1326
			/* skip header */
1327
			$a_cellstats = explode(",", $cellstats[1]);
1328
			if(preg_match("/huawei/i", implode("\n", $usbmodemoutput))) {
1329
				$ifinfo['cell_rssi'] = huawei_rssi_to_string($a_cellstats[1]);
1330
				$ifinfo['cell_mode'] = huawei_mode_to_string($a_cellstats[2], $a_cellstats[3]);
1331
				$ifinfo['cell_simstate'] = huawei_simstate_to_string($a_cellstats[10]);
1332
				$ifinfo['cell_service'] = huawei_service_to_string(trim($a_cellstats[11]));
1333
			}
1334
			if(preg_match("/zte/i", implode("\n", $usbmodemoutput))) {
1335
				$ifinfo['cell_rssi'] = zte_rssi_to_string($a_cellstats[1]);
1336
				$ifinfo['cell_mode'] = zte_mode_to_string($a_cellstats[2], $a_cellstats[3]);
1337
				$ifinfo['cell_simstate'] = zte_simstate_to_string($a_cellstats[10]);
1338
				$ifinfo['cell_service'] = zte_service_to_string(trim($a_cellstats[11]));
1339
			}
1340
			$ifinfo['cell_upstream'] = $a_cellstats[4];
1341
			$ifinfo['cell_downstream'] = trim($a_cellstats[5]);
1342
			$ifinfo['cell_sent'] = $a_cellstats[6];
1343
			$ifinfo['cell_received'] = trim($a_cellstats[7]);
1344
			$ifinfo['cell_bwupstream'] = $a_cellstats[8];
1345
			$ifinfo['cell_bwdownstream'] = trim($a_cellstats[9]);
1346
		}
1347
		// Calculate cumulative uptime for PPP link. Useful for connections that have per minute/hour contracts so you don't go over!
1348
		if (isset($ppp['uptime']))
1349
			$ifinfo['ppp_uptime_accumulated'] = "(".get_ppp_uptime($ifinfo['if']).")";
1350
		break;
1351
	default:
1352
		break;
1353
	}
1354

    
1355
	if (file_exists("{$g['varrun_path']}/{$link_type}_{$ifdescr}.pid")) {
1356
		$sec = trim(`/usr/local/sbin/ppp-uptime.sh {$ifinfo['if']}`);
1357
		$ifinfo['ppp_uptime'] = convert_seconds_to_hms($sec);
1358
	}
1359

    
1360
	if ($ifinfo['status'] == "up") {
1361
		/* try to determine media with ifconfig */
1362
		unset($ifconfiginfo);
1363
		exec("/sbin/ifconfig " . $ifinfo['if'], $ifconfiginfo);
1364
		$wifconfiginfo = array();
1365
		if(is_interface_wireless($ifdescr)) {
1366
			exec("/sbin/ifconfig {$ifinfo['if']} list sta", $wifconfiginfo);
1367
			array_shift($wifconfiginfo);
1368
		}
1369
		$matches = "";
1370
		foreach ($ifconfiginfo as $ici) {
1371

    
1372
			/* don't list media/speed for wireless cards, as it always
1373
			   displays 2 Mbps even though clients can connect at 11 Mbps */
1374
			if (preg_match("/media: .*? \((.*?)\)/", $ici, $matches)) {
1375
				$ifinfo['media'] = $matches[1];
1376
			} else if (preg_match("/media: Ethernet (.*)/", $ici, $matches)) {
1377
				$ifinfo['media'] = $matches[1];
1378
			} else if (preg_match("/media: IEEE 802.11 Wireless Ethernet (.*)/", $ici, $matches)) {
1379
				$ifinfo['media'] = $matches[1];
1380
			}
1381

    
1382
			if (preg_match("/status: (.*)$/", $ici, $matches)) {
1383
				if ($matches[1] != "active")
1384
					$ifinfo['status'] = $matches[1];
1385
				if($ifinfo['status'] == gettext("running"))
1386
					$ifinfo['status'] = gettext("up");
1387
			}
1388
			if (preg_match("/channel (\S*)/", $ici, $matches)) {
1389
				$ifinfo['channel'] = $matches[1];
1390
			}
1391
			if (preg_match("/ssid (\".*?\"|\S*)/", $ici, $matches)) {
1392
				if ($matches[1][0] == '"')
1393
					$ifinfo['ssid'] = substr($matches[1], 1, -1);
1394
				else
1395
					$ifinfo['ssid'] = $matches[1];
1396
			}
1397
			if (preg_match("/laggproto (.*)$/", $ici, $matches)) {
1398
				$ifinfo['laggproto'] = $matches[1];
1399
			}
1400
			if (preg_match("/laggport: (.*)$/", $ici, $matches)) {
1401
				$ifinfo['laggport'][] = $matches[1];
1402
			}
1403
		}
1404
		foreach($wifconfiginfo as $ici) {
1405
			$elements = preg_split("/[ ]+/i", $ici);
1406
			if ($elements[0] != "") {
1407
				$ifinfo['bssid'] = $elements[0];
1408
			}
1409
			if ($elements[3] != "") {
1410
				$ifinfo['rate'] = $elements[3];
1411
			}
1412
			if ($elements[4] != "") {
1413
				$ifinfo['rssi'] = $elements[4];
1414
			}
1415

    
1416
		}
1417
		/* lookup the gateway */
1418
		if (interface_has_gateway($ifdescr)) {
1419
			$ifinfo['gateway'] = get_interface_gateway($ifdescr);
1420
			$ifinfo['gatewayv6'] = get_interface_gateway_v6($ifdescr);
1421
		}
1422
	}
1423

    
1424
	$bridge = "";
1425
	$bridge = link_interface_to_bridge($ifdescr);
1426
	if($bridge) {
1427
		$bridge_text = `/sbin/ifconfig {$bridge}`;
1428
		if(stristr($bridge_text, "blocking") <> false) {
1429
			$ifinfo['bridge'] = "<b><font color='red'>" . gettext("blocking") . "</font></b> - " . gettext("check for ethernet loops");
1430
			$ifinfo['bridgeint'] = $bridge;
1431
		} else if(stristr($bridge_text, "learning") <> false) {
1432
			$ifinfo['bridge'] = gettext("learning");
1433
			$ifinfo['bridgeint'] = $bridge;
1434
		} else if(stristr($bridge_text, "forwarding") <> false) {
1435
			$ifinfo['bridge'] = gettext("forwarding");
1436
			$ifinfo['bridgeint'] = $bridge;
1437
		}
1438
	}
1439

    
1440
	return $ifinfo;
1441
}
1442

    
1443
//returns cpu speed of processor. Good for determining capabilities of machine
1444
function get_cpu_speed() {
1445
	return exec("sysctl hw.clockrate | awk '{ print $2 }'");
1446
}
1447

    
1448
function add_hostname_to_watch($hostname) {
1449
	if(!is_dir("/var/db/dnscache")) {
1450
		mkdir("/var/db/dnscache");
1451
	}
1452
	$result = array();
1453
	if((is_fqdn($hostname)) && (!is_ipaddr($hostname))) {
1454
		$domrecords = array();
1455
		$domips = array();
1456
		exec("host -t A $hostname", $domrecords, $rethost);
1457
		if($rethost == 0) {
1458
			foreach($domrecords as $domr) {
1459
				$doml = explode(" ", $domr);
1460
				$domip = $doml[3];
1461
				/* fill array with domain ip addresses */
1462
				if(is_ipaddr($domip)) {
1463
					$domips[] = $domip;
1464
				}
1465
			}
1466
		}
1467
		sort($domips);
1468
		$contents = "";
1469
		if(! empty($domips)) {
1470
			foreach($domips as $ip) {
1471
				$contents .= "$ip\n";
1472
			}
1473
		}
1474
		file_put_contents("/var/db/dnscache/$hostname", $contents);
1475
		/* Remove empty elements */
1476
		$result = array_filter(explode("\n", $contents), 'strlen');
1477
	}
1478
	return $result;
1479
}
1480

    
1481
function is_fqdn($fqdn) {
1482
	$hostname = false;
1483
	if(preg_match("/[-A-Z0-9\.]+\.[-A-Z0-9\.]+/i", $fqdn)) {
1484
		$hostname = true;
1485
	}
1486
	if(preg_match("/\.\./", $fqdn)) {
1487
		$hostname = false;
1488
	}
1489
	if(preg_match("/^\./i", $fqdn)) {
1490
		$hostname = false;
1491
	}
1492
	if(preg_match("/\//i", $fqdn)) {
1493
		$hostname = false;
1494
	}
1495
	return($hostname);
1496
}
1497

    
1498
function pfsense_default_state_size() {
1499
	/* get system memory amount */
1500
	$memory = get_memory();
1501
	$avail = $memory[1];
1502
	/* Be cautious and only allocate 10% of system memory to the state table */
1503
	$max_states = (int) ($avail/10)*1000;
1504
	return $max_states;
1505
}
1506

    
1507
function pfsense_default_tables_size() {
1508
	$current = `pfctl -sm | grep ^tables | awk '{print $4};'`;
1509
	return $current;
1510
}
1511

    
1512
function pfsense_default_table_entries_size() {
1513
	$current = `pfctl -sm | grep table-entries | awk '{print $4};'`;
1514
	return $current;
1515
}
1516

    
1517
/* Compare the current hostname DNS to the DNS cache we made
1518
 * if it has changed we return the old records
1519
 * if no change we return false */
1520
function compare_hostname_to_dnscache($hostname) {
1521
	if(!is_dir("/var/db/dnscache")) {
1522
		mkdir("/var/db/dnscache");
1523
	}
1524
	$hostname = trim($hostname);
1525
	if(is_readable("/var/db/dnscache/{$hostname}")) {
1526
		$oldcontents = file_get_contents("/var/db/dnscache/{$hostname}");
1527
	} else {
1528
		$oldcontents = "";
1529
	}
1530
	if((is_fqdn($hostname)) && (!is_ipaddr($hostname))) {
1531
		$domrecords = array();
1532
		$domips = array();
1533
		exec("host -t A $hostname", $domrecords, $rethost);
1534
		if($rethost == 0) {
1535
			foreach($domrecords as $domr) {
1536
				$doml = explode(" ", $domr);
1537
				$domip = $doml[3];
1538
				/* fill array with domain ip addresses */
1539
				if(is_ipaddr($domip)) {
1540
					$domips[] = $domip;
1541
				}
1542
			}
1543
		}
1544
		sort($domips);
1545
		$contents = "";
1546
		if(! empty($domips)) {
1547
			foreach($domips as $ip) {
1548
				$contents .= "$ip\n";
1549
			}
1550
		}
1551
	}
1552

    
1553
	if(trim($oldcontents) != trim($contents)) {
1554
		if($g['debug']) {
1555
			log_error(sprintf(gettext('DNSCACHE: Found old IP %1$s and new IP %2$s'), $oldcontents, $contents));
1556
		}
1557
		return ($oldcontents);
1558
	} else {
1559
		return false;
1560
	}
1561
}
1562

    
1563
/*
1564
 * load_crypto() - Load crypto modules if enabled in config.
1565
 */
1566
function load_crypto() {
1567
	global $config, $g;
1568
	$crypto_modules = array('glxsb', 'aesni');
1569

    
1570
	if (!in_array($config['system']['crypto_hardware'], $crypto_modules))
1571
		return false;
1572

    
1573
	if (!empty($config['system']['crypto_hardware']) && !is_module_loaded($config['system']['crypto_hardware'])) {
1574
		log_error("Loading {$config['system']['crypto_hardware']} cryptographic accelerator module.");
1575
		mwexec("/sbin/kldload {$config['system']['crypto_hardware']}");
1576
	}
1577
}
1578

    
1579
/*
1580
 * load_thermal_hardware() - Load temperature monitor kernel module
1581
 */
1582
function load_thermal_hardware() {
1583
	global $config, $g;
1584
	$thermal_hardware_modules = array('coretemp', 'amdtemp');
1585

    
1586
	if (!in_array($config['system']['thermal_hardware'], $thermal_hardware_modules))
1587
		return false;
1588

    
1589
	if (!empty($config['system']['thermal_hardware']) && !is_module_loaded($config['system']['thermal_hardware'])) {
1590
		log_error("Loading {$config['system']['thermal_hardware']} thermal monitor module.");
1591
		mwexec("/sbin/kldload {$config['system']['thermal_hardware']}");
1592
	}
1593
}
1594

    
1595
/****f* pfsense-utils/isvm
1596
 * NAME
1597
 *   isvm
1598
 * INPUTS
1599
 *	none
1600
 * RESULT
1601
 *   returns true if machine is running under a virtual environment
1602
 ******/
1603
function isvm() {
1604
	$virtualenvs = array("vmware", "parallels", "qemu", "bochs", "plex86");
1605
	$bios_product = trim(`/bin/kenv | /usr/bin/awk -F= '/smbios.system.product/ {print $2}'`);
1606
	foreach ($virtualenvs as $virtualenv)
1607
		if (stripos($bios_product, $virtualenv) !== false)
1608
			return true;
1609

    
1610
	return false;
1611
}
1612

    
1613
function get_freebsd_version() {
1614
	$version = php_uname("r");
1615
	return $version[0];
1616
}
1617

    
1618
function download_file_with_progress_bar($url_file, $destination_file, $readbody = 'read_body', $connect_timeout=60, $timeout=0) {
1619
	global $ch, $fout, $file_size, $downloaded, $config, $first_progress_update;
1620
	$file_size  = 1;
1621
	$downloaded = 1;
1622
	$first_progress_update = TRUE;
1623
	/* open destination file */
1624
	$fout = fopen($destination_file, "wb");
1625

    
1626
	/*
1627
	 *      Originally by Author: Keyvan Minoukadeh
1628
	 *      Modified by Scott Ullrich to return Content-Length size
1629
	 */
1630

    
1631
	$ch = curl_init();
1632
	curl_setopt($ch, CURLOPT_URL, $url_file);
1633
	curl_setopt($ch, CURLOPT_HEADERFUNCTION, 'read_header');
1634
	curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true);
1635
	/* Don't verify SSL peers since we don't have the certificates to do so. */
1636
	curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
1637
	curl_setopt($ch, CURLOPT_WRITEFUNCTION, $readbody);
1638
	curl_setopt($ch, CURLOPT_NOPROGRESS, '1');
1639
	curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, $connect_timeout);
1640
	curl_setopt($ch, CURLOPT_TIMEOUT, $timeout);
1641

    
1642
	if (!empty($config['system']['proxyurl'])) {
1643
		curl_setopt($ch, CURLOPT_PROXY, $config['system']['proxyurl']);
1644
		if (!empty($config['system']['proxyport']))
1645
			curl_setopt($ch, CURLOPT_PROXYPORT, $config['system']['proxyport']);
1646
		if (!empty($config['system']['proxyuser']) && !empty($config['system']['proxypass'])) {
1647
			@curl_setopt($ch, CURLOPT_PROXYAUTH, CURLAUTH_ANY | CURLAUTH_ANYSAFE);
1648
			curl_setopt($ch, CURLOPT_PROXYUSERPWD, "{$config['system']['proxyuser']}:{$config['system']['proxypass']}");
1649
		}
1650
	}
1651

    
1652
	@curl_exec($ch);
1653
	$http_code = curl_getinfo($ch, CURLINFO_HTTP_CODE);
1654
	if($fout)
1655
		fclose($fout);
1656
	curl_close($ch);
1657
	return ($http_code == 200) ? true : $http_code;
1658
}
1659

    
1660
function read_header($ch, $string) {
1661
	global $file_size, $fout;
1662
	$length = strlen($string);
1663
	$regs = "";
1664
	preg_match("/(Content-Length:) (.*)/", $string, $regs);
1665
	if($regs[2] <> "") {
1666
		$file_size = intval($regs[2]);
1667
	}
1668
	ob_flush();
1669
	return $length;
1670
}
1671

    
1672
function read_body($ch, $string) {
1673
	global $fout, $file_size, $downloaded, $sendto, $static_status, $static_output, $lastseen, $first_progress_update;
1674
	global $pkg_interface;
1675
	$length = strlen($string);
1676
	$downloaded += intval($length);
1677
	if($file_size > 0) {
1678
		$downloadProgress = round(100 * (1 - $downloaded / $file_size), 0);
1679
		$downloadProgress = 100 - $downloadProgress;
1680
	} else
1681
		$downloadProgress = 0;
1682
	if($lastseen <> $downloadProgress and $downloadProgress < 101) {
1683
		if($sendto == "status") {
1684
			if($pkg_interface == "console") {
1685
				if(($downloadProgress % 10) == 0 || $downloadProgress < 10) {
1686
					$tostatus = $static_status . $downloadProgress . "%";
1687
					if ($downloadProgress == 100) {
1688
						$tostatus = $tostatus . "\r";
1689
					}
1690
					update_status($tostatus);
1691
				}
1692
			} else {
1693
				$tostatus = $static_status . $downloadProgress . "%";
1694
				update_status($tostatus);
1695
			}
1696
		} else {
1697
			if($pkg_interface == "console") {
1698
				if(($downloadProgress % 10) == 0 || $downloadProgress < 10) {
1699
					$tooutput = $static_output . $downloadProgress . "%";
1700
					if ($downloadProgress == 100) {
1701
						$tooutput = $tooutput . "\r";
1702
					}
1703
					update_output_window($tooutput);
1704
				}
1705
			} else {
1706
				$tooutput = $static_output . $downloadProgress . "%";
1707
				update_output_window($tooutput);
1708
			}
1709
		}
1710
				if(($pkg_interface != "console") || (($downloadProgress % 10) == 0) || ($downloadProgress < 10)) {
1711
					update_progress_bar($downloadProgress, $first_progress_update);
1712
					$first_progress_update = FALSE;
1713
				}
1714
		$lastseen = $downloadProgress;
1715
	}
1716
	if($fout)
1717
		fwrite($fout, $string);
1718
	ob_flush();
1719
	return $length;
1720
}
1721

    
1722
/*
1723
 *   update_output_window: update bottom textarea dynamically.
1724
 */
1725
function update_output_window($text) {
1726
	global $pkg_interface;
1727
	$log = preg_replace("/\n/", "\\n", $text);
1728
	if($pkg_interface != "console") {
1729
		echo "\n<script type=\"text/javascript\">";
1730
		echo "\n//<![CDATA[";
1731
		echo "\nthis.document.forms[0].output.value = \"" . $log . "\";";
1732
		echo "\nthis.document.forms[0].output.scrollTop = this.document.forms[0].output.scrollHeight;";
1733
		echo "\n//]]>";
1734
		echo "\n</script>";
1735
	}
1736
	/* ensure that contents are written out */
1737
	ob_flush();
1738
}
1739

    
1740
/*
1741
 *   update_status: update top textarea dynamically.
1742
 */
1743
function update_status($status) {
1744
	global $pkg_interface;
1745
	if($pkg_interface == "console") {
1746
		echo "\r{$status}";
1747
	} else {
1748
		echo "\n<script type=\"text/javascript\">";
1749
		echo "\n//<![CDATA[";
1750
		echo "\nthis.document.forms[0].status.value=\"" . $status . "\";";
1751
		echo "\n//]]>";
1752
		echo "\n</script>";
1753
	}
1754
	/* ensure that contents are written out */
1755
	ob_flush();
1756
}
1757

    
1758
/*
1759
 * update_progress_bar($percent, $first_time): updates the javascript driven progress bar.
1760
 */
1761
function update_progress_bar($percent, $first_time) {
1762
	global $pkg_interface;
1763
	if($percent > 100) $percent = 1;
1764
	if($pkg_interface <> "console") {
1765
		echo "\n<script type=\"text/javascript\">";
1766
		echo "\n//<![CDATA[";
1767
		echo "\ndocument.progressbar.style.width='" . $percent . "%';";
1768
		echo "\n//]]>";
1769
		echo "\n</script>";
1770
	} else {
1771
		if(!($first_time))
1772
			echo "\x08\x08\x08\x08\x08";
1773
		echo sprintf("%4d%%", $percent);
1774
	}
1775
}
1776

    
1777
/* Split() is being DEPRECATED as of PHP 5.3.0 and REMOVED as of PHP 6.0.0. Relying on this feature is highly discouraged. */
1778
if(!function_exists("split")) {
1779
	function split($seperator, $haystack, $limit = null) {
1780
		log_error("deprecated split() call with seperator '{$seperator}'");
1781
		return preg_split($seperator, $haystack, $limit);
1782
	}
1783
}
1784

    
1785
function update_alias_names_upon_change($section, $field, $new_alias_name, $origname) {
1786
	global $g, $config, $pconfig, $debug;
1787
	if(!$origname)
1788
		return;
1789

    
1790
	$sectionref = &$config;
1791
	foreach($section as $sectionname) {
1792
		if(is_array($sectionref) && isset($sectionref[$sectionname]))
1793
			$sectionref = &$sectionref[$sectionname];
1794
		else
1795
			return;
1796
	}
1797

    
1798
	if($debug) $fd = fopen("{$g['tmp_path']}/print_r", "a");
1799
	if($debug) fwrite($fd, print_r($pconfig, true));
1800

    
1801
	if(is_array($sectionref)) {
1802
		foreach($sectionref as $itemkey => $item) {
1803
			if($debug) fwrite($fd, "$itemkey\n");
1804

    
1805
			$fieldfound = true;
1806
			$fieldref = &$sectionref[$itemkey];
1807
			foreach($field as $fieldname) {
1808
				if(is_array($fieldref) && isset($fieldref[$fieldname]))
1809
					$fieldref = &$fieldref[$fieldname];
1810
				else {
1811
					$fieldfound = false;
1812
					break;
1813
				}
1814
			}
1815
			if($fieldfound && $fieldref == $origname) {
1816
				if($debug) fwrite($fd, "Setting old alias value $origname to $new_alias_name\n");
1817
				$fieldref = $new_alias_name;
1818
			}
1819
		}
1820
	}
1821

    
1822
	if($debug) fclose($fd);
1823

    
1824
}
1825

    
1826
function update_alias_url_data() {
1827
	global $config, $g;
1828

    
1829
	/* item is a url type */
1830
	$lockkey = lock('config');
1831
	if (is_array($config['aliases']['alias'])) {
1832
		foreach ($config['aliases']['alias'] as $x => $alias) {
1833
			if (empty($alias['aliasurl']))
1834
				continue;
1835

    
1836
			$address = "";
1837
			$isfirst = 0;
1838
			foreach ($alias['aliasurl'] as $alias_url) {
1839
				/* fetch down and add in */
1840
				$temp_filename = tempnam("{$g['tmp_path']}/", "alias_import");
1841
				unlink($temp_filename);
1842
				$fda = fopen("{$g['tmp_path']}/tmpfetch","w");
1843
				fwrite($fda, "/usr/bin/fetch -T 5 -q -o \"{$temp_filename}/aliases\" \"" . $alias_url . "\"");
1844
				fclose($fda);
1845
				mwexec("/bin/mkdir -p {$temp_filename}");
1846
				mwexec("/usr/bin/fetch -T 5 -q -o \"{$temp_filename}/aliases\" \"" . $alias_url . "\"");
1847
				/* if the item is tar gzipped then extract */
1848
				if (stristr($alias_url, ".tgz"))
1849
					process_alias_tgz($temp_filename);
1850
				else if (stristr($alias_url, ".zip"))
1851
					process_alias_unzip($temp_filename);
1852
				if (file_exists("{$temp_filename}/aliases")) {
1853
					$file_contents = file_get_contents("{$temp_filename}/aliases");
1854
					$file_contents = str_replace("#", "\n#", $file_contents);
1855
					$file_contents_split = explode("\n", $file_contents);
1856
					foreach ($file_contents_split as $fc) {
1857
						$tmp = trim($fc);
1858
						if (stristr($fc, "#")) {
1859
							$tmp_split = explode("#", $tmp);
1860
							$tmp = trim($tmp_split[0]);
1861
						}
1862
						if (trim($tmp) <> "") {
1863
							if ($isfirst == 1)
1864
								$address .= " ";
1865
							$address .= $tmp;
1866
							$isfirst = 1;
1867
						}
1868
					}
1869
					mwexec("/bin/rm -rf {$temp_filename}");
1870
				}
1871
			}
1872
			if($isfirst > 0) {
1873
				$config['aliases']['alias'][$x]['address'] = $address;
1874
				$updated = true;
1875
			}
1876
		}
1877
	}
1878
	if ($updated)
1879
		write_config();
1880
	unlock($lockkey);
1881
}
1882

    
1883
function process_alias_unzip($temp_filename) {
1884
	if(!file_exists("/usr/local/bin/unzip"))
1885
		return;
1886
	mwexec("/bin/mv {$temp_filename}/aliases {$temp_filename}/aliases.zip");
1887
	mwexec("/usr/local/bin/unzip {$temp_filename}/aliases.tgz -d {$temp_filename}/aliases/");
1888
	unlink("{$temp_filename}/aliases.zip");
1889
	$files_to_process = return_dir_as_array("{$temp_filename}/");
1890
	/* foreach through all extracted files and build up aliases file */
1891
	$fd = fopen("{$temp_filename}/aliases", "w");
1892
	foreach($files_to_process as $f2p) {
1893
		$file_contents = file_get_contents($f2p);
1894
		fwrite($fd, $file_contents);
1895
		unlink($f2p);
1896
	}
1897
	fclose($fd);
1898
}
1899

    
1900
function process_alias_tgz($temp_filename) {
1901
	if(!file_exists("/usr/bin/tar"))
1902
		return;
1903
	mwexec("/bin/mv {$temp_filename}/aliases {$temp_filename}/aliases.tgz");
1904
	mwexec("/usr/bin/tar xzf {$temp_filename}/aliases.tgz -C {$temp_filename}/aliases/");
1905
	unlink("{$temp_filename}/aliases.tgz");
1906
	$files_to_process = return_dir_as_array("{$temp_filename}/");
1907
	/* foreach through all extracted files and build up aliases file */
1908
	$fd = fopen("{$temp_filename}/aliases", "w");
1909
	foreach($files_to_process as $f2p) {
1910
		$file_contents = file_get_contents($f2p);
1911
		fwrite($fd, $file_contents);
1912
		unlink($f2p);
1913
	}
1914
	fclose($fd);
1915
}
1916

    
1917
function version_compare_dates($a, $b) {
1918
	$a_time = strtotime($a);
1919
	$b_time = strtotime($b);
1920

    
1921
	if ((!$a_time) || (!$b_time)) {
1922
		return FALSE;
1923
	} else {
1924
		if ($a_time < $b_time)
1925
			return -1;
1926
		elseif ($a_time == $b_time)
1927
			return 0;
1928
		else
1929
			return 1;
1930
	}
1931
}
1932
function version_get_string_value($a) {
1933
	$strs = array(
1934
		0 => "ALPHA-ALPHA",
1935
		2 => "ALPHA",
1936
		3 => "BETA",
1937
		4 => "B",
1938
		5 => "C",
1939
		6 => "D",
1940
		7 => "RC",
1941
		8 => "RELEASE",
1942
		9 => "*"			// Matches all release levels
1943
	);
1944
	$major = 0;
1945
	$minor = 0;
1946
	foreach ($strs as $num => $str) {
1947
		if (substr($a, 0, strlen($str)) == $str) {
1948
			$major = $num;
1949
			$n = substr($a, strlen($str));
1950
			if (is_numeric($n))
1951
				$minor = $n;
1952
			break;
1953
		}
1954
	}
1955
	return "{$major}.{$minor}";
1956
}
1957
function version_compare_string($a, $b) {
1958
	// Only compare string parts if both versions give a specific release
1959
	// (If either version lacks a string part, assume intended to match all release levels)
1960
	if (isset($a) && isset($b))
1961
		return version_compare_numeric(version_get_string_value($a), version_get_string_value($b));
1962
	else
1963
		return 0;
1964
}
1965
function version_compare_numeric($a, $b) {
1966
	$a_arr = explode('.', rtrim($a, '.0'));
1967
	$b_arr = explode('.', rtrim($b, '.0'));
1968

    
1969
	foreach ($a_arr as $n => $val) {
1970
		if (array_key_exists($n, $b_arr)) {
1971
			// So far so good, both have values at this minor version level. Compare.
1972
			if ($val > $b_arr[$n])
1973
				return 1;
1974
			elseif ($val < $b_arr[$n])
1975
				return -1;
1976
		} else {
1977
			// a is greater, since b doesn't have any minor version here.
1978
			return 1;
1979
		}
1980
	}
1981
	if (count($b_arr) > count($a_arr)) {
1982
		// b is longer than a, so it must be greater.
1983
		return -1;
1984
	} else {
1985
		// Both a and b are of equal length and value.
1986
		return 0;
1987
	}
1988
}
1989
function pfs_version_compare($cur_time, $cur_text, $remote) {
1990
	// First try date compare
1991
	$v = version_compare_dates($cur_time, $remote);
1992
	if ($v === FALSE) {
1993
		// If that fails, try to compare by string
1994
		// Before anything else, simply test if the strings are equal
1995
		if (($cur_text == $remote) || ($cur_time == $remote))
1996
			return 0;
1997
		list($cur_num, $cur_str) = explode('-', $cur_text);
1998
		list($rem_num, $rem_str) = explode('-', $remote);
1999

    
2000
		// First try to compare the numeric parts of the version string.
2001
		$v = version_compare_numeric($cur_num, $rem_num);
2002

    
2003
		// If the numeric parts are the same, compare the string parts.
2004
		if ($v == 0)
2005
			return version_compare_string($cur_str, $rem_str);
2006
	}
2007
	return $v;
2008
}
2009
function process_alias_urltable($name, $url, $freq, $forceupdate=false) {
2010
	$urltable_prefix = "/var/db/aliastables/";
2011
	$urltable_filename = $urltable_prefix . $name . ".txt";
2012

    
2013
	// Make the aliases directory if it doesn't exist
2014
	if (!file_exists($urltable_prefix)) {
2015
		mkdir($urltable_prefix);
2016
	} elseif (!is_dir($urltable_prefix)) {
2017
		unlink($urltable_prefix);
2018
		mkdir($urltable_prefix);
2019
	}
2020

    
2021
	// If the file doesn't exist or is older than update_freq days, fetch a new copy.
2022
	if (!file_exists($urltable_filename)
2023
		|| ((time() - filemtime($urltable_filename)) > ($freq * 86400))
2024
		|| $forceupdate) {
2025

    
2026
		// Try to fetch the URL supplied
2027
		conf_mount_rw();
2028
		unlink_if_exists($urltable_filename . ".tmp");
2029
		// Use fetch to grab data since these may be large files, we don't want to process them through PHP if we can help it.
2030
		mwexec("/usr/bin/fetch -T 5 -q -o " . escapeshellarg($urltable_filename . ".tmp") . " " . escapeshellarg($url));
2031
		// Remove comments. Might need some grep-fu to only allow lines that look like IPs/subnets
2032
		if (file_exists($urltable_filename . ".tmp")) {
2033
			mwexec("/usr/bin/sed 's/\;.*//g' ". escapeshellarg($urltable_filename . ".tmp") . "| /usr/bin/egrep -v '^[[:space:]]*$|^#' > " . escapeshellarg($urltable_filename));
2034
			unlink_if_exists($urltable_filename . ".tmp");
2035
		} else
2036
			mwexec("/usr/bin/touch {$urltable_filename}");
2037
		conf_mount_ro();
2038
		return true;
2039
	} else {
2040
		// File exists, and it doesn't need updated.
2041
		return -1;
2042
	}
2043
}
2044
function get_real_slice_from_glabel($label) {
2045
	$label = escapeshellarg($label);
2046
	return trim(`/sbin/glabel list | /usr/bin/grep -B2 ufs/{$label} | /usr/bin/head -n 1 | /usr/bin/cut -f3 -d' '`);
2047
}
2048
function nanobsd_get_boot_slice() {
2049
	return trim(`/sbin/mount | /usr/bin/grep pfsense | /usr/bin/cut -d'/' -f4 | /usr/bin/cut -d' ' -f1`);
2050
}
2051
function nanobsd_get_boot_drive() {
2052
	return trim(`/sbin/glabel list | /usr/bin/grep -B2 ufs/pfsense | /usr/bin/head -n 1 | /usr/bin/cut -f3 -d' ' | /usr/bin/cut -d's' -f1`);
2053
}
2054
function nanobsd_get_active_slice() {
2055
	$boot_drive = nanobsd_get_boot_drive();
2056
	$active = trim(`gpart show $boot_drive | grep '\[active\]' | awk '{print $3;}'`);
2057

    
2058
	return "{$boot_drive}s{$active}";
2059
}
2060
function nanobsd_get_size() {
2061
	return strtoupper(file_get_contents("/etc/nanosize.txt"));
2062
}
2063
function nanobsd_switch_boot_slice() {
2064
	global $SLICE, $OLDSLICE, $TOFLASH, $COMPLETE_PATH, $COMPLETE_BOOT_PATH;
2065
	global $GLABEL_SLICE, $UFS_ID, $OLD_UFS_ID, $BOOTFLASH;
2066
	global $BOOT_DEVICE, $REAL_BOOT_DEVICE, $BOOT_DRIVE, $ACTIVE_SLICE;
2067
	nanobsd_detect_slice_info();
2068

    
2069
	if ($BOOTFLASH == $ACTIVE_SLICE) {
2070
		$slice = $TOFLASH;
2071
	} else {
2072
		$slice = $BOOTFLASH;
2073
	}
2074

    
2075
	for ($i = 0; $i < ob_get_level(); $i++) { ob_end_flush(); }
2076
	ob_implicit_flush(1);
2077
	if(strstr($slice, "s2")) {
2078
		$ASLICE="2";
2079
		$AOLDSLICE="1";
2080
		$AGLABEL_SLICE="pfsense1";
2081
		$AUFS_ID="1";
2082
		$AOLD_UFS_ID="0";
2083
	} else {
2084
		$ASLICE="1";
2085
		$AOLDSLICE="2";
2086
		$AGLABEL_SLICE="pfsense0";
2087
		$AUFS_ID="0";
2088
		$AOLD_UFS_ID="1";
2089
	}
2090
	$ATOFLASH="{$BOOT_DRIVE}s{$ASLICE}";
2091
	$ACOMPLETE_PATH="{$BOOT_DRIVE}s{$ASLICE}a";
2092
	$ABOOTFLASH="{$BOOT_DRIVE}s{$AOLDSLICE}";
2093
	conf_mount_rw();
2094
	exec("sysctl kern.geom.debugflags=16");
2095
	exec("gpart set -a active -i {$ASLICE} {$BOOT_DRIVE}");
2096
	exec("/usr/sbin/boot0cfg -s {$ASLICE} -v /dev/{$BOOT_DRIVE}");
2097
	// We can't update these if they are mounted now.
2098
	if ($BOOTFLASH != $slice) {
2099
		exec("/sbin/tunefs -L ${AGLABEL_SLICE} /dev/$ACOMPLETE_PATH");
2100
		nanobsd_update_fstab($AGLABEL_SLICE, $ACOMPLETE_PATH, $AOLD_UFS_ID, $AUFS_ID);
2101
	}
2102
	exec("/sbin/sysctl kern.geom.debugflags=0");
2103
	conf_mount_ro();
2104
}
2105
function nanobsd_clone_slice() {
2106
	global $SLICE, $OLDSLICE, $TOFLASH, $COMPLETE_PATH, $COMPLETE_BOOT_PATH;
2107
	global $GLABEL_SLICE, $UFS_ID, $OLD_UFS_ID, $BOOTFLASH;
2108
	global $BOOT_DEVICE, $REAL_BOOT_DEVICE, $BOOT_DRIVE, $ACTIVE_SLICE;
2109
	nanobsd_detect_slice_info();
2110

    
2111
	for ($i = 0; $i < ob_get_level(); $i++) { ob_end_flush(); }
2112
	ob_implicit_flush(1);
2113
	exec("/sbin/sysctl kern.geom.debugflags=16");
2114
	exec("/bin/dd if=/dev/zero of=/dev/{$TOFLASH} bs=1m count=1");
2115
	exec("/bin/dd if=/dev/{$BOOTFLASH} of=/dev/{$TOFLASH} bs=64k");
2116
	exec("/sbin/tunefs -L {$GLABEL_SLICE} /dev/{$COMPLETE_PATH}");
2117
	$status = nanobsd_update_fstab($GLABEL_SLICE, $COMPLETE_PATH, $OLD_UFS_ID, $UFS_ID);
2118
	exec("/sbin/sysctl kern.geom.debugflags=0");
2119
	if($status) {
2120
		return false;
2121
	} else {
2122
		return true;
2123
	}
2124
}
2125
function nanobsd_update_fstab($gslice, $complete_path, $oldufs, $newufs) {
2126
	$tmppath = "/tmp/{$gslice}";
2127
	$fstabpath = "/tmp/{$gslice}/etc/fstab";
2128

    
2129
	exec("/bin/mkdir {$tmppath}");
2130
	exec("/sbin/fsck_ufs -y /dev/{$complete_path}");
2131
	exec("/sbin/mount /dev/ufs/{$gslice} {$tmppath}");
2132
	exec("/bin/cp /etc/fstab {$fstabpath}");
2133

    
2134
	if (!file_exists($fstabpath)) {
2135
		$fstab = <<<EOF
2136
/dev/ufs/{$gslice} / ufs ro,noatime 1 1
2137
/dev/ufs/cf /cf ufs ro,noatime 1 1
2138
EOF;
2139
		if (file_put_contents($fstabpath, $fstab))
2140
			$status = true;
2141
		else
2142
			$status = false;
2143
	} else {
2144
		$status = exec("sed -i \"\" \"s/pfsense{$oldufs}/pfsense{$newufs}/g\" {$fstabpath}");
2145
	}
2146
	exec("/sbin/umount {$tmppath}");
2147
	exec("/bin/rmdir {$tmppath}");
2148

    
2149
	return $status;
2150
}
2151
function nanobsd_detect_slice_info() {
2152
	global $SLICE, $OLDSLICE, $TOFLASH, $COMPLETE_PATH, $COMPLETE_BOOT_PATH;
2153
	global $GLABEL_SLICE, $UFS_ID, $OLD_UFS_ID, $BOOTFLASH;
2154
	global $BOOT_DEVICE, $REAL_BOOT_DEVICE, $BOOT_DRIVE, $ACTIVE_SLICE;
2155

    
2156
	$BOOT_DEVICE=nanobsd_get_boot_slice();
2157
	$REAL_BOOT_DEVICE=get_real_slice_from_glabel($BOOT_DEVICE);
2158
	$BOOT_DRIVE=nanobsd_get_boot_drive();
2159
	$ACTIVE_SLICE=nanobsd_get_active_slice();
2160

    
2161
	// Detect which slice is active and set information.
2162
	if(strstr($REAL_BOOT_DEVICE, "s1")) {
2163
		$SLICE="2";
2164
		$OLDSLICE="1";
2165
		$GLABEL_SLICE="pfsense1";
2166
		$UFS_ID="1";
2167
		$OLD_UFS_ID="0";
2168

    
2169
	} else {
2170
		$SLICE="1";
2171
		$OLDSLICE="2";
2172
		$GLABEL_SLICE="pfsense0";
2173
		$UFS_ID="0";
2174
		$OLD_UFS_ID="1";
2175
	}
2176
	$TOFLASH="{$BOOT_DRIVE}s{$SLICE}";
2177
	$COMPLETE_PATH="{$BOOT_DRIVE}s{$SLICE}a";
2178
	$COMPLETE_BOOT_PATH="{$BOOT_DRIVE}s{$OLDSLICE}";
2179
	$BOOTFLASH="{$BOOT_DRIVE}s{$OLDSLICE}";
2180
}
2181

    
2182
function nanobsd_friendly_slice_name($slicename) {
2183
	global $g;
2184
	return strtolower(str_ireplace('pfsense', $g['product_name'], $slicename));
2185
}
2186

    
2187
function get_include_contents($filename) {
2188
	if (is_file($filename)) {
2189
		ob_start();
2190
		include $filename;
2191
		$contents = ob_get_contents();
2192
		ob_end_clean();
2193
		return $contents;
2194
	}
2195
	return false;
2196
}
2197

    
2198
/* This xml 2 array function is courtesy of the php.net comment section on xml_parse.
2199
 * it is roughly 4 times faster then our existing pfSense parser but due to the large
2200
 * size of the RRD xml dumps this is required.
2201
 * The reason we do not use it for pfSense is that it does not know about array fields
2202
 * which causes it to fail on array fields with single items. Possible Todo?
2203
 */
2204
function xml2array($contents, $get_attributes = 1, $priority = 'tag')
2205
{
2206
	if (!function_exists('xml_parser_create'))
2207
	{
2208
		return array ();
2209
	}
2210
	$parser = xml_parser_create('');
2211
	xml_parser_set_option($parser, XML_OPTION_TARGET_ENCODING, "UTF-8");
2212
	xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, 0);
2213
	xml_parser_set_option($parser, XML_OPTION_SKIP_WHITE, 1);
2214
	xml_parse_into_struct($parser, trim($contents), $xml_values);
2215
	xml_parser_free($parser);
2216
	if (!$xml_values)
2217
		return; //Hmm...
2218
	$xml_array = array ();
2219
	$parents = array ();
2220
	$opened_tags = array ();
2221
	$arr = array ();
2222
	$current = & $xml_array;
2223
	$repeated_tag_index = array ();
2224
	foreach ($xml_values as $data)
2225
	{
2226
		unset ($attributes, $value);
2227
		extract($data);
2228
		$result = array ();
2229
		$attributes_data = array ();
2230
		if (isset ($value))
2231
		{
2232
			if ($priority == 'tag')
2233
				$result = $value;
2234
			else
2235
				$result['value'] = $value;
2236
		}
2237
		if (isset ($attributes) and $get_attributes)
2238
		{
2239
			foreach ($attributes as $attr => $val)
2240
			{
2241
				if ($priority == 'tag')
2242
					$attributes_data[$attr] = $val;
2243
				else
2244
					$result['attr'][$attr] = $val; //Set all the attributes in a array called 'attr'
2245
			}
2246
		}
2247
		if ($type == "open")
2248
		{
2249
			$parent[$level -1] = & $current;
2250
			if (!is_array($current) or (!in_array($tag, array_keys($current))))
2251
			{
2252
				$current[$tag] = $result;
2253
				if ($attributes_data)
2254
					$current[$tag . '_attr'] = $attributes_data;
2255
				$repeated_tag_index[$tag . '_' . $level] = 1;
2256
				$current = & $current[$tag];
2257
			}
2258
			else
2259
			{
2260
				if (isset ($current[$tag][0]))
2261
				{
2262
					$current[$tag][$repeated_tag_index[$tag . '_' . $level]] = $result;
2263
					$repeated_tag_index[$tag . '_' . $level]++;
2264
				}
2265
				else
2266
				{
2267
					$current[$tag] = array (
2268
						$current[$tag],
2269
						$result
2270
						);
2271
					$repeated_tag_index[$tag . '_' . $level] = 2;
2272
					if (isset ($current[$tag . '_attr']))
2273
					{
2274
						$current[$tag]['0_attr'] = $current[$tag . '_attr'];
2275
						unset ($current[$tag . '_attr']);
2276
					}
2277
				}
2278
				$last_item_index = $repeated_tag_index[$tag . '_' . $level] - 1;
2279
				$current = & $current[$tag][$last_item_index];
2280
			}
2281
		}
2282
		elseif ($type == "complete")
2283
		{
2284
			if (!isset ($current[$tag]))
2285
			{
2286
				$current[$tag] = $result;
2287
				$repeated_tag_index[$tag . '_' . $level] = 1;
2288
				if ($priority == 'tag' and $attributes_data)
2289
					$current[$tag . '_attr'] = $attributes_data;
2290
			}
2291
			else
2292
			{
2293
				if (isset ($current[$tag][0]) and is_array($current[$tag]))
2294
				{
2295
					$current[$tag][$repeated_tag_index[$tag . '_' . $level]] = $result;
2296
					if ($priority == 'tag' and $get_attributes and $attributes_data)
2297
					{
2298
						$current[$tag][$repeated_tag_index[$tag . '_' . $level] . '_attr'] = $attributes_data;
2299
					}
2300
					$repeated_tag_index[$tag . '_' . $level]++;
2301
				}
2302
				else
2303
				{
2304
					$current[$tag] = array (
2305
						$current[$tag],
2306
						$result
2307
						);
2308
					$repeated_tag_index[$tag . '_' . $level] = 1;
2309
					if ($priority == 'tag' and $get_attributes)
2310
					{
2311
						if (isset ($current[$tag . '_attr']))
2312
						{
2313
							$current[$tag]['0_attr'] = $current[$tag . '_attr'];
2314
							unset ($current[$tag . '_attr']);
2315
						}
2316
						if ($attributes_data)
2317
						{
2318
							$current[$tag][$repeated_tag_index[$tag . '_' . $level] . '_attr'] = $attributes_data;
2319
						}
2320
					}
2321
					$repeated_tag_index[$tag . '_' . $level]++; //0 and 1 index is already taken
2322
				}
2323
			}
2324
		}
2325
		elseif ($type == 'close')
2326
		{
2327
			$current = & $parent[$level -1];
2328
		}
2329
	}
2330
	return ($xml_array);
2331
}
2332

    
2333
function get_country_name($country_code) {
2334
	if ($country_code != "ALL" && strlen($country_code) != 2)
2335
		return "";
2336

    
2337
	$country_names_xml = "/usr/local/share/mobile-broadband-provider-info/iso_3166-1_list_en.xml";
2338
	$country_names_contents = file_get_contents($country_names_xml);
2339
	$country_names = xml2array($country_names_contents);
2340

    
2341
	if($country_code == "ALL") {
2342
		$country_list = array();
2343
		foreach($country_names['ISO_3166-1_List_en']['ISO_3166-1_Entry'] as $country) {
2344
			$country_list[] = array("code" => $country['ISO_3166-1_Alpha-2_Code_element'],
2345
						"name" => ucwords(strtolower($country['ISO_3166-1_Country_name'])) );
2346
		}
2347
		return $country_list;
2348
	}
2349

    
2350
	foreach ($country_names['ISO_3166-1_List_en']['ISO_3166-1_Entry'] as $country) {
2351
		if ($country['ISO_3166-1_Alpha-2_Code_element'] == strtoupper($country_code)) {
2352
			return ucwords(strtolower($country['ISO_3166-1_Country_name']));
2353
		}
2354
	}
2355
	return "";
2356
}
2357

    
2358
/* sort by interface only, retain the original order of rules that apply to
2359
   the same interface */
2360
function filter_rules_sort() {
2361
	global $config;
2362

    
2363
	/* mark each rule with the sequence number (to retain the order while sorting) */
2364
	for ($i = 0; isset($config['filter']['rule'][$i]); $i++)
2365
		$config['filter']['rule'][$i]['seq'] = $i;
2366

    
2367
	usort($config['filter']['rule'], "filter_rules_compare");
2368

    
2369
	/* strip the sequence numbers again */
2370
	for ($i = 0; isset($config['filter']['rule'][$i]); $i++)
2371
		unset($config['filter']['rule'][$i]['seq']);
2372
}
2373
function filter_rules_compare($a, $b) {
2374
	if (isset($a['floating']) && isset($b['floating']))
2375
		return $a['seq'] - $b['seq'];
2376
	else if (isset($a['floating']))
2377
		return -1;
2378
	else if (isset($b['floating']))
2379
		return 1;
2380
	else if ($a['interface'] == $b['interface'])
2381
		return $a['seq'] - $b['seq'];
2382
	else
2383
		return compare_interface_friendly_names($a['interface'], $b['interface']);
2384
}
2385

    
2386
function generate_ipv6_from_mac($mac) {
2387
	$elements = explode(":", $mac);
2388
	if(count($elements) <> 6)
2389
		return false;
2390

    
2391
	$i = 0;
2392
	$ipv6 = "fe80::";
2393
	foreach($elements as $byte) {
2394
		if($i == 0) {
2395
			$hexadecimal =  substr($byte, 1, 2);
2396
			$bitmap = base_convert($hexadecimal, 16, 2);
2397
			$bitmap = str_pad($bitmap, 4, "0", STR_PAD_LEFT);
2398
			$bitmap = substr($bitmap, 0, 2) ."1". substr($bitmap, 3,4);
2399
			$byte = substr($byte, 0, 1) . base_convert($bitmap, 2, 16);
2400
		}
2401
		$ipv6 .= $byte;
2402
		if($i == 1) {
2403
			$ipv6 .= ":";
2404
		}
2405
		if($i == 3) {
2406
			$ipv6 .= ":";
2407
		}
2408
		if($i == 2) {
2409
			$ipv6 .= "ff:fe";
2410
		}
2411

    
2412
		$i++;
2413
	}
2414
	return $ipv6;
2415
}
2416

    
2417
/****f* pfsense-utils/load_mac_manufacturer_table
2418
 * NAME
2419
 *   load_mac_manufacturer_table
2420
 * INPUTS
2421
 *   none
2422
 * RESULT
2423
 *   returns associative array with MAC-Manufacturer pairs
2424
 ******/
2425
function load_mac_manufacturer_table() {
2426
	/* load MAC-Manufacture data from the file */
2427
	$macs = false;
2428
	if (file_exists("/usr/local/share/nmap/nmap-mac-prefixes"))
2429
		$macs=file("/usr/local/share/nmap/nmap-mac-prefixes");
2430
	if ($macs){
2431
		foreach ($macs as $line){
2432
			if (preg_match('/([0-9A-Fa-f]{6}) (.*)$/', $line, $matches)){
2433
				/* store values like this $mac_man['000C29']='VMware' */
2434
				$mac_man["$matches[1]"]=$matches[2];
2435
			}
2436
		}
2437
		return $mac_man;
2438
	} else
2439
		return -1;
2440

    
2441
}
2442

    
2443
/****f* pfsense-utils/is_ipaddr_configured
2444
 * NAME
2445
 *   is_ipaddr_configured
2446
 * INPUTS
2447
 *   IP Address to check.
2448
 * RESULT
2449
 *   returns true if the IP Address is
2450
 *   configured and present on this device.
2451
*/
2452
function is_ipaddr_configured($ipaddr, $ignore_if = "", $check_localip = false, $check_subnets = false) {
2453
	global $config;
2454

    
2455
	$isipv6 = is_ipaddrv6($ipaddr);
2456

    
2457
	if ($check_subnets) {
2458
		$iflist = get_configured_interface_list();
2459
		foreach ($iflist as $if => $ifname) {
2460
			if ($ignore_if == $if)
2461
				continue;
2462

    
2463
			if ($isipv6 === true) {
2464
				$bitmask = get_interface_subnetv6($if);
2465
				$subnet = gen_subnetv6(get_interface_ipv6($if), $bitmask);
2466
			} else {
2467
				$bitmask = get_interface_subnet($if);
2468
				$subnet = gen_subnet(get_interface_ip($if), $bitmask);
2469
			}
2470

    
2471
			if (ip_in_subnet($ipaddr, $subnet . '/' . $bitmask))
2472
				return true;
2473
		}
2474
	} else {
2475
		if ($isipv6 === true)
2476
			$interface_list_ips = get_configured_ipv6_addresses();
2477
		else
2478
			$interface_list_ips = get_configured_ip_addresses();
2479

    
2480
		foreach($interface_list_ips as $if => $ilips) {
2481
			/* Also ignore CARP interfaces, it'll be checked below */
2482
			if (($ignore_if == $if) || preg_match('/_vip[0-9]/', $if))
2483
				continue;
2484
			if (strcasecmp($ipaddr, $ilips) == 0)
2485
				return true;
2486
		}
2487
	}
2488

    
2489
	$interface_list_vips = get_configured_vips_list(true);
2490
	foreach ($interface_list_vips as $id => $vip) {
2491
		if ($ignore_if == "vip_{$id}")
2492
			continue;
2493
		if (strcasecmp($ipaddr, $vip['ipaddr']) == 0)
2494
			return true;
2495
	}
2496

    
2497
	if ($check_localip) {
2498
		if (is_array($config['pptpd']) && !empty($config['pptpd']['localip']) && (strcasecmp($ipaddr, $config['pptpd']['localip']) == 0))
2499
			return true;
2500

    
2501
		if (!is_array($config['l2tp']) && !empty($config['l2tp']['localip']) && (strcasecmp($ipaddr, $config['l2tp']['localip']) == 0))
2502
			return true;
2503
	}
2504

    
2505
	return false;
2506
}
2507

    
2508
/****f* pfsense-utils/pfSense_handle_custom_code
2509
 * NAME
2510
 *   pfSense_handle_custom_code
2511
 * INPUTS
2512
 *   directory name to process
2513
 * RESULT
2514
 *   globs the directory and includes the files
2515
 */
2516
function pfSense_handle_custom_code($src_dir) {
2517
	// Allow extending of the nat edit page and include custom input validation
2518
	if(is_dir("$src_dir")) {
2519
		$cf = glob($src_dir . "/*.inc");
2520
		foreach($cf as $nf) {
2521
			if($nf == "." || $nf == "..")
2522
				continue;
2523
			// Include the extra handler
2524
			include("$nf");
2525
		}
2526
	}
2527
}
2528

    
2529
function set_language($lang = 'en_US', $encoding = "ISO8859-1") {
2530
	putenv("LANG={$lang}.{$encoding}");
2531
	setlocale(LC_ALL, "{$lang}.{$encoding}");
2532
	textdomain("pfSense");
2533
	bindtextdomain("pfSense","/usr/local/share/locale");
2534
	bind_textdomain_codeset("pfSense","{$lang}.{$encoding}");
2535
}
2536

    
2537
function get_locale_list() {
2538
	$locales = array(
2539
		"en_US" => gettext("English"),
2540
		"pt_BR" => gettext("Portuguese (Brazil)"),
2541
	);
2542
	asort($locales);
2543
	return $locales;
2544
}
2545

    
2546
function return_hex_ipv4($ipv4) {
2547
	if(!is_ipaddrv4($ipv4))
2548
		return(false);
2549

    
2550
	/* we need the hex form of the interface IPv4 address */
2551
	$ip4arr = explode(".", $ipv4);
2552
	return (sprintf("%02x%02x%02x%02x", $ip4arr[0], $ip4arr[1], $ip4arr[2], $ip4arr[3]));
2553
}
2554

    
2555
function convert_ipv6_to_128bit($ipv6) {
2556
	if(!is_ipaddrv6($ipv6))
2557
		return(false);
2558

    
2559
	$ip6arr = array();
2560
	$ip6prefix = Net_IPv6::uncompress($ipv6);
2561
	$ip6arr = explode(":", $ip6prefix);
2562
	/* binary presentation of the prefix for all 128 bits. */
2563
	$ip6prefixbin = "";
2564
	foreach($ip6arr as $element) {
2565
		$ip6prefixbin .= sprintf("%016b", hexdec($element));
2566
	}
2567
	return($ip6prefixbin);
2568
}
2569

    
2570
function convert_128bit_to_ipv6($ip6bin) {
2571
	if(strlen($ip6bin) <> 128)
2572
		return(false);
2573

    
2574
	$ip6arr = array();
2575
	$ip6binarr = array();
2576
	$ip6binarr = str_split($ip6bin, 16);
2577
	foreach($ip6binarr as $binpart)
2578
		$ip6arr[] = dechex(bindec($binpart));
2579
	$ip6addr = Net_IPv6::compress(implode(":", $ip6arr));
2580

    
2581
	return($ip6addr);
2582
}
2583

    
2584

    
2585
/* Returns the calculated bit length of the prefix delegation from the WAN interface */
2586
/* DHCP-PD is variable, calculate from the prefix-len on the WAN interface */
2587
/* 6rd is variable, calculate from 64 - (v6 prefixlen - (32 - v4 prefixlen)) */
2588
/* 6to4 is 16 bits, e.g. 65535 */
2589
function calculate_ipv6_delegation_length($if) {
2590
	global $config;
2591

    
2592
	if(!is_array($config['interfaces'][$if]))
2593
		return false;
2594

    
2595
	switch($config['interfaces'][$if]['ipaddrv6']) {
2596
		case "6to4":
2597
			$pdlen = 16;
2598
			break;
2599
		case "6rd":
2600
			$rd6cfg = $config['interfaces'][$if];
2601
			$rd6plen = explode("/", $rd6cfg['prefix-6rd']);
2602
			$pdlen = (64 - ($rd6plen[1] + (32 - $rd6cfg['prefix-6rd-v4plen'])));
2603
			break;
2604
		case "dhcp6":
2605
			$dhcp6cfg = $config['interfaces'][$if];
2606
			$pdlen = $dhcp6cfg['dhcp6-ia-pd-len'];
2607
			break;
2608
		default:
2609
			$pdlen = 0;
2610
			break;
2611
	}
2612
	return($pdlen);
2613
}
2614

    
2615
function huawei_rssi_to_string($rssi) {
2616
	$dbm = array();
2617
	$i = 0;
2618
	$dbstart = -113;
2619
	while($i < 32) {
2620
		$dbm[$i] = $dbstart + ($i * 2);
2621
		$i++;
2622
	}
2623
	$percent = round(($rssi / 31) * 100);
2624
	$string = "rssi:{$rssi} level:{$dbm[$rssi]}dBm percent:{$percent}%";
2625
	return $string;
2626
}
2627

    
2628
function huawei_mode_to_string($mode, $submode) {
2629
	$modes[0] = "None";
2630
	$modes[1] = "AMPS";
2631
	$modes[2] = "CDMA";
2632
	$modes[3] = "GSM/GPRS";
2633
	$modes[4] = "HDR";
2634
	$modes[5] = "WCDMA";
2635
	$modes[6] = "GPS";
2636

    
2637
	$submodes[0] = "No Service";
2638
	$submodes[1] = "GSM";
2639
	$submodes[2] = "GPRS";
2640
	$submodes[3] = "EDGE";
2641
	$submodes[4] = "WCDMA";
2642
	$submodes[5] = "HSDPA";
2643
	$submodes[6] = "HSUPA";
2644
	$submodes[7] = "HSDPA+HSUPA";
2645
	$submodes[8] = "TD-SCDMA";
2646
	$submodes[9] = "HSPA+";
2647
	$string = "{$modes[$mode]}, {$submodes[$submode]} Mode";
2648
	return $string;
2649
}
2650

    
2651
function huawei_service_to_string($state) {
2652
	$modes[0] = "No";
2653
	$modes[1] = "Restricted";
2654
	$modes[2] = "Valid";
2655
	$modes[3] = "Restricted Regional";
2656
	$modes[4] = "Powersaving";
2657
	$string = "{$modes[$state]} Service";
2658
	return $string;
2659
}
2660

    
2661
function huawei_simstate_to_string($state) {
2662
	$modes[0] = "Invalid SIM/locked";
2663
	$modes[1] = "Valid SIM";
2664
	$modes[2] = "Invalid SIM CS";
2665
	$modes[3] = "Invalid SIM PS";
2666
	$modes[4] = "Invalid SIM CS/PS";
2667
	$modes[255] = "Missing SIM";
2668
	$string = "{$modes[$state]} State";
2669
	return $string;
2670
}
2671

    
2672
function zte_rssi_to_string($rssi) {
2673
	return huawei_rssi_to_string($rssi);
2674
}
2675

    
2676
function zte_mode_to_string($mode, $submode) {
2677
	$modes[0] = "No Service";
2678
	$modes[1] = "Limited Service";
2679
	$modes[2] = "GPRS";
2680
	$modes[3] = "GSM";
2681
	$modes[4] = "UMTS";
2682
	$modes[5] = "EDGE";
2683
	$modes[6] = "HSDPA";
2684

    
2685
	$submodes[0] = "CS_ONLY";
2686
	$submodes[1] = "PS_ONLY";
2687
	$submodes[2] = "CS_PS";
2688
	$submodes[3] = "CAMPED";
2689
	$string = "{$modes[$mode]}, {$submodes[$submode]} Mode";
2690
	return $string;
2691
}
2692

    
2693
function zte_service_to_string($state) {
2694
	$modes[0] = "Initializing";
2695
	$modes[1] = "Network Lock error";
2696
	$modes[2] = "Network Locked";
2697
	$modes[3] = "Unlocked or correct MCC/MNC";
2698
	$string = "{$modes[$state]} Service";
2699
	return $string;
2700
}
2701

    
2702
function zte_simstate_to_string($state) {
2703
	$modes[0] = "No action";
2704
	$modes[1] = "Network lock";
2705
	$modes[2] = "(U)SIM card lock";
2706
	$modes[3] = "Network Lock and (U)SIM card Lock";
2707
	$string = "{$modes[$state]} State";
2708
	return $string;
2709
}
2710

    
2711
function get_configured_pppoe_server_interfaces() {
2712
	global $config;
2713
	$iflist = array();
2714
	if (is_array($config['pppoes']['pppoe'])) {
2715
		foreach($config['pppoes']['pppoe'] as $pppoe) {
2716
			if ($pppoe['mode'] == "server") {
2717
				$int = "poes". $pppoe['pppoeid'];
2718
				$iflist[$int] = strtoupper($int);
2719
			}
2720
		}
2721
	}
2722
	return $iflist;
2723
}
2724

    
2725
function get_pppoes_child_interfaces($ifpattern) {
2726
	$if_arr = array();
2727
	if($ifpattern == "")
2728
		return;
2729

    
2730
	exec("ifconfig", $out, $ret);
2731
	foreach($out as $line) {
2732
		if(preg_match("/^({$ifpattern}[0-9]+):/i", $line, $match)) {
2733
			$if_arr[] = $match[1];
2734
		}
2735
	}
2736
	return $if_arr;
2737

    
2738
}
2739

    
2740
?>
(39-39/66)