Project

General

Profile

Download (7.93 KB) Statistics
| Branch: | Tag: | Revision:
1 c38fee60 Scott Ullrich
<?php
2 2816f43f Ermal
	require_once("util.inc");
3 c38fee60 Scott Ullrich
	require_once("config.inc");
4
	require_once("functions.inc");
5 1729ace8 jim-p
	require_once("shaper.inc");
6 c38fee60 Scott Ullrich
7 fdad935f jim-p
	$shortcut_section = "upnp";
8
9 422e039b Scott Ullrich
	/* MiniUPnPd */
10 c38fee60 Scott Ullrich
11 2816f43f Ermal
	function upnp_notice ($msg) { log_error("miniupnpd: {$msg}"); }
12
	function upnp_warn ($msg) { log_error("miniupnpd: {$msg}"); }
13 422e039b Scott Ullrich
14 d86002ec Ryan Wagoner
	function upnp_running () {
15 2816f43f Ermal
		if((int)exec('/bin/pgrep -a miniupnpd | /usr/bin/wc -l') > 0)
16 d86002ec Ryan Wagoner
			return true;
17 966f579e Ryan Wagoner
		return false;
18 2816f43f Ermal
	}
19 d86002ec Ryan Wagoner
20 d05e1b9f Ryan Wagoner
	function upnp_write_config($file, $text) {
21
		$handle = fopen($file, 'w');
22
		if(!$handle) {
23
			upnp_warn("Could not open {$file} for writing.");
24 cf46a14f Ermal
			return;
25 d86002ec Ryan Wagoner
		}
26 d05e1b9f Ryan Wagoner
		fwrite($handle, $text);
27
		fclose($handle);
28 966f579e Ryan Wagoner
	}
29
30
	function upnp_uuid() {
31
		/* md5 hash of wan mac */
32 8df14984 Ermal
		$uuid = md5(get_interface_mac(get_real_interface("wan")));
33 966f579e Ryan Wagoner
		/* put uuid in correct format 8-4-4-4-12 */
34 d05e1b9f Ryan Wagoner
		return substr($uuid,0,8).'-'.substr($uuid,9,4).'-'.substr($uuid,13,4).'-'.substr($uuid,17,4).'-'.substr($uuid,21,12);
35 966f579e Ryan Wagoner
	}
36 d86002ec Ryan Wagoner
37 1729ace8 jim-p
	function upnp_validate_queue($qname) {
38
		read_altq_config();
39
		$qlist = get_altq_name_list();
40 02afa684 jim-p
		if (is_array($qlist)) {
41
			return in_array($qname, $qlist);
42
		} else {
43
			return false;
44
		}
45 1729ace8 jim-p
	}
46
47 d05e1b9f Ryan Wagoner
	function upnp_validate_ip($ip, $check_cdir) {
48 539d5973 Ermal
		/* validate cidr */	
49
		$ip_array = array();
50 d86002ec Ryan Wagoner
		if($check_cdir)	{
51 d05e1b9f Ryan Wagoner
			$ip_array = explode('/', $ip);
52 d86002ec Ryan Wagoner
			if(count($ip_array) == 2) {
53
				if($ip_array[1] < 1 || $ip_array[1] > 32)
54
					return false;
55
			} else
56
				if(count($ip_array) != 1)
57
					return false;
58
		} else
59
			$ip_array[] = $ip;
60
61
		/* validate ip */
62 539d5973 Ermal
		if (!is_ipaddr($ip_array[0]))
63 d86002ec Ryan Wagoner
			return false;
64
		return true;
65
	}
66
67
	function upnp_validate_port($port) {
68 d05e1b9f Ryan Wagoner
		foreach(explode('-', $port) as $sub)
69 d86002ec Ryan Wagoner
			if($sub < 0 || $sub > 65535)
70
				return false;
71
		return true;	
72 c38fee60 Scott Ullrich
	}
73 02d777de Scott Ullrich
74 c38fee60 Scott Ullrich
	function before_form_miniupnpd($pkg) {
75
		global $config;
76 02d777de Scott Ullrich
77 c38fee60 Scott Ullrich
	}
78
79
	function validate_form_miniupnpd($post, $input_errors) {
80 93b2c459 jim-p
		if($post['enable'] && (!$post['enable_upnp'] && !$post['enable_natpmp']))
81
			$input_errors[] = 'At least one of \'UPnP\' or \'NAT-PMP\' must be allowed';
82 c38fee60 Scott Ullrich
		if($post['iface_array'])
83
			foreach($post['iface_array'] as $iface)
84 d05e1b9f Ryan Wagoner
				if($iface == 'wan')
85 c38fee60 Scott Ullrich
					$input_errors[] = 'It is a security risk to specify WAN in the \'Interface\' field';
86 d86002ec Ryan Wagoner
		if($post['overridewanip'] && !upnp_validate_ip($post['overridewanip'],false))
87 c38fee60 Scott Ullrich
			$input_errors[] = 'You must specify a valid ip address in the \'Override WAN address\' field';
88
		if(($post['download'] && !$post['upload']) || ($post['upload'] && !$post['download']))
89
			$input_errors[] = 'You must fill in both \'Maximum Download Speed\' and \'Maximum Upload Speed\' fields';
90 d86002ec Ryan Wagoner
		if($post['download'] && $post['download'] <= 0)
91 c38fee60 Scott Ullrich
			$input_errors[] = 'You must specify a value greater than 0 in the \'Maximum Download Speed\' field';
92 d86002ec Ryan Wagoner
		if($post['upload'] && $post['upload'] <= 0)
93 c38fee60 Scott Ullrich
			$input_errors[] = 'You must specify a value greater than 0 in the \'Maximum Upload Speed\' field';
94 1729ace8 jim-p
		if($post['upnpqueue'] && !upnp_validate_queue($post['upnpqueue']))
95
			$input_errors[] = 'You must specify a valid traffic shaping queue.';
96 d86002ec Ryan Wagoner
97
		/* user permissions validation */
98
		for($i=1; $i<=4; $i++) {
99
			if($post["permuser{$i}"]) {
100
				$perm = explode(' ',$post["permuser{$i}"]);
101
				/* should explode to 4 args */
102
				if(count($perm) != 4) {
103
					$input_errors[] = "You must follow the specified format in the 'User specified permissions {$i}' field";
104
				} else {
105
					/* must with allow or deny */
106
					if(!($perm[0] == 'allow' || $perm[0] == 'deny'))
107
						$input_errors[] = "You must begin with allow or deny in the 'User specified permissions {$i}' field";
108
					/* verify port or port range */
109
					if(!upnp_validate_port($perm[1]) || !upnp_validate_port($perm[3]))
110
						$input_errors[] = "You must specify a port or port range between 0 and 65535 in the 'User specified
111
							permissions {$i}' field";
112
					/* verify ip address */
113
					if(!upnp_validate_ip($perm[2],true))
114
						$input_errors[] = "You must specify a valid ip address in the 'User specified permissions {$i}' field";
115
				}
116
			}
117
		}		
118 c38fee60 Scott Ullrich
	}
119
120
	function sync_package_miniupnpd() {
121
		global $config;
122
		global $input_errors;
123
124 d05e1b9f Ryan Wagoner
		$upnp_config = $config['installedpackages']['miniupnpd']['config'][0];
125
		$config_file = '/var/etc/miniupnpd.conf';
126 d86002ec Ryan Wagoner
127 85a5da13 Ermal Luçi
		$config_text = "ext_ifname=".get_real_interface()."\n";
128 d05e1b9f Ryan Wagoner
		$config_text .= "port=2189\n";
129 c38fee60 Scott Ullrich
130 d05e1b9f Ryan Wagoner
		$ifaces_active = '';
131 cf97af9a Scott Ullrich
132 02d777de Scott Ullrich
		/* since config is written before this file invoked we don't need to read post data */
133 88cbd62a Ermal
		if($upnp_config['enable'] && !empty($upnp_config['iface_array'])) {
134 d05e1b9f Ryan Wagoner
			$iface_array = explode(',', $upnp_config['iface_array']);
135 c38fee60 Scott Ullrich
136
			foreach($iface_array as $iface) {
137
				$if = convert_friendly_interface_to_real_interface_name($iface);
138
				/* above function returns iface if fail */
139
				if($if!=$iface) {
140
					$addr = find_interface_ip($if);
141 a2b1d1e8 jim-p
					$bits = find_interface_subnet($if);
142 c38fee60 Scott Ullrich
					/* check that the interface has an ip address before adding parameters */
143 88cbd62a Ermal
					if (is_ipaddr($addr)) {
144 a2b1d1e8 jim-p
						$config_text .= "listening_ip={$addr}/{$bits}\n";
145 7fae6598 Ryan Wagoner
						if(!$ifaces_active) {
146
							$webgui_ip = $addr;
147 422e039b Scott Ullrich
							$ifaces_active = $iface;
148 88cbd62a Ermal
						} else
149 422e039b Scott Ullrich
							$ifaces_active .= ", {$iface}";
150 88cbd62a Ermal
					} else
151 422e039b Scott Ullrich
						upnp_warn("Interface {$iface} has no ip address, ignoring");
152 88cbd62a Ermal
				} else
153 422e039b Scott Ullrich
					upnp_warn("Could not resolve real interface for {$iface}");
154 c38fee60 Scott Ullrich
			}
155
156 88cbd62a Ermal
			if (!empty($ifaces_active)) {
157 d86002ec Ryan Wagoner
				/* override wan ip address, common for carp, etc */
158 d05e1b9f Ryan Wagoner
				if($upnp_config['overridewanip'])
159
					$config_text .= "ext_ip={$upnp_config['overridewanip']}\n";
160 02d777de Scott Ullrich
161 2816f43f Ermal
				$download = $upnp_config['download']*1000;
162
				$upload = $upnp_config['upload']*1000;
163 d86002ec Ryan Wagoner
164
				/* set upload and download bitrates */
165 2816f43f Ermal
				if(!empty($download) && !empty($upload)) {
166 d05e1b9f Ryan Wagoner
					$config_text .= "bitrate_down={$download}\n";
167
					$config_text .= "bitrate_up={$upload}\n";
168 d86002ec Ryan Wagoner
				}
169
				
170
				/* enable logging of packets handled by miniupnpd rules */
171 d05e1b9f Ryan Wagoner
				if($upnp_config['logpackets'])
172
					$config_text .= "packet_log=yes\n";
173 d86002ec Ryan Wagoner
				
174
				/* enable system uptime instead of miniupnpd uptime */
175 d05e1b9f Ryan Wagoner
				if($upnp_config['sysuptime'])
176
					$config_text .= "system_uptime=yes\n";
177 d86002ec Ryan Wagoner
178 7fae6598 Ryan Wagoner
				/* set webgui url */
179 2816f43f Ermal
				if(!empty($config['system']['webgui']['protocol'])) {
180 d05e1b9f Ryan Wagoner
					$config_text .= "presentation_url={$config['system']['webgui']['protocol']}://{$webgui_ip}";
181 2816f43f Ermal
					if(!empty($config['system']['webgui']['port']))
182 d05e1b9f Ryan Wagoner
						$config_text .= ":{$config['system']['webgui']['port']}";
183
					$config_text .= "/\n";
184 7fae6598 Ryan Wagoner
				}
185 966f579e Ryan Wagoner
186
				/* set uuid and serial */
187 d05e1b9f Ryan Wagoner
				$config_text .= "uuid=".upnp_uuid()."\n";
188
				$config_text .= "serial=".strtoupper(substr(upnp_uuid(),0,8))."\n";
189 966f579e Ryan Wagoner
190
				/* set model number */
191 2816f43f Ermal
				$config_text .= "model_number=".file_get_contents("/etc/version")."\n";
192 7fae6598 Ryan Wagoner
	
193 d86002ec Ryan Wagoner
				/* upnp access restrictions */
194
				for($i=1; $i<=4; $i++) {
195 d05e1b9f Ryan Wagoner
					if($upnp_config["permuser{$i}"])
196
						$config_text .= "{$upnp_config["permuser{$i}"]}\n";
197 02d777de Scott Ullrich
				}
198
199 d05e1b9f Ryan Wagoner
				if($upnp_config['permdefault'])
200
					$config_text .= "deny 0-65535 0.0.0.0/0 0-65535\n";
201 02d777de Scott Ullrich
202 1729ace8 jim-p
				/* Recheck if queue is valid */
203
				if (!upnp_validate_queue($upnp_config['upnpqueue']))
204
					unset($upnp_config['upnpqueue']);
205
206
				/* Add shaper queue */
207
				if($upnp_config['upnpqueue'])
208
					$config_text .= "queue={$upnp_config['upnpqueue']}\n";
209
210 93b2c459 jim-p
				/* Allow UPnP or NAT-PMP as requested */
211
				$config_text .= "enable_upnp="   . ( $upnp_config['enable_upnp']   ? "yes\n" : "no\n" );
212
				$config_text .= "enable_natpmp=" . ( $upnp_config['enable_natpmp'] ? "yes\n" : "no\n" );
213
214 e80df06e Scott Ullrich
				/* write out the configuration */
215 d05e1b9f Ryan Wagoner
				upnp_write_config($config_file, $config_text);
216 e80df06e Scott Ullrich
				
217 422e039b Scott Ullrich
				/* if miniupnpd not running start it */
218 37f54a71 Ryan Wagoner
				if(!upnp_running()) {
219 422e039b Scott Ullrich
					upnp_notice("Starting service on interface: {$ifaces_active}");
220 d86002ec Ryan Wagoner
					upnp_action('start');	
221 422e039b Scott Ullrich
				}
222
				/* or restart miniupnpd if settings were changed */
223 88cbd62a Ermal
				else {
224 422e039b Scott Ullrich
					upnp_notice("Restarting service on interface: {$ifaces_active}");
225 d86002ec Ryan Wagoner
					upnp_action('restart');
226 02d777de Scott Ullrich
				}
227
			}
228 88cbd62a Ermal
		} else {
229
			/* user does not want miniupnpd running */
230 c38fee60 Scott Ullrich
			/* lets stop the service and remove the rc file */
231 02d777de Scott Ullrich
232 88cbd62a Ermal
			if (file_exists($config_file)) {
233 d05e1b9f Ryan Wagoner
				if(!$upnp_config['enable'])
234 d86002ec Ryan Wagoner
					upnp_notice('Stopping service: miniupnpd disabled');
235 422e039b Scott Ullrich
				else
236 431484c8 Ryan Wagoner
					upnp_notice('Stopping service: no interfaces selected');				
237 422e039b Scott Ullrich
238 431484c8 Ryan Wagoner
				upnp_action('stop');
239 88cbd62a Ermal
				@unlink($config_file);
240 422e039b Scott Ullrich
			}
241 c38fee60 Scott Ullrich
		}
242
	}
243 422e039b Scott Ullrich
?>