Projet

Général

Profil

Télécharger (8,71 ko) Statistiques
| Branche: | Tag: | Révision:

univnautes / usr / local / pkg / miniupnpd.inc @ d973a602

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 afa76eff jim-p
			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 afa76eff jim-p
				elseif ($iface == $post['ext_iface'])
87
					$input_errors[] = 'You cannot select the external interface as an internal interface.';
88
			}
89 d86002ec Ryan Wagoner
		if($post['overridewanip'] && !upnp_validate_ip($post['overridewanip'],false))
90 c38fee60 Scott Ullrich
			$input_errors[] = 'You must specify a valid ip address in the \'Override WAN address\' field';
91
		if(($post['download'] && !$post['upload']) || ($post['upload'] && !$post['download']))
92
			$input_errors[] = 'You must fill in both \'Maximum Download Speed\' and \'Maximum Upload Speed\' fields';
93 d86002ec Ryan Wagoner
		if($post['download'] && $post['download'] <= 0)
94 c38fee60 Scott Ullrich
			$input_errors[] = 'You must specify a value greater than 0 in the \'Maximum Download Speed\' field';
95 d86002ec Ryan Wagoner
		if($post['upload'] && $post['upload'] <= 0)
96 c38fee60 Scott Ullrich
			$input_errors[] = 'You must specify a value greater than 0 in the \'Maximum Upload Speed\' field';
97 1729ace8 jim-p
		if($post['upnpqueue'] && !upnp_validate_queue($post['upnpqueue']))
98
			$input_errors[] = 'You must specify a valid traffic shaping queue.';
99 d86002ec Ryan Wagoner
100
		/* user permissions validation */
101
		for($i=1; $i<=4; $i++) {
102
			if($post["permuser{$i}"]) {
103
				$perm = explode(' ',$post["permuser{$i}"]);
104
				/* should explode to 4 args */
105
				if(count($perm) != 4) {
106
					$input_errors[] = "You must follow the specified format in the 'User specified permissions {$i}' field";
107
				} else {
108
					/* must with allow or deny */
109
					if(!($perm[0] == 'allow' || $perm[0] == 'deny'))
110
						$input_errors[] = "You must begin with allow or deny in the 'User specified permissions {$i}' field";
111
					/* verify port or port range */
112
					if(!upnp_validate_port($perm[1]) || !upnp_validate_port($perm[3]))
113
						$input_errors[] = "You must specify a port or port range between 0 and 65535 in the 'User specified
114
							permissions {$i}' field";
115
					/* verify ip address */
116
					if(!upnp_validate_ip($perm[2],true))
117
						$input_errors[] = "You must specify a valid ip address in the 'User specified permissions {$i}' field";
118
				}
119
			}
120
		}		
121 c38fee60 Scott Ullrich
	}
122
123
	function sync_package_miniupnpd() {
124
		global $config;
125
		global $input_errors;
126
127 d05e1b9f Ryan Wagoner
		$upnp_config = $config['installedpackages']['miniupnpd']['config'][0];
128
		$config_file = '/var/etc/miniupnpd.conf';
129 d86002ec Ryan Wagoner
130 afa76eff jim-p
		if (!isset($upnp_config['ext_iface']) || empty($upnp_config['ext_iface']))
131
			$ext_ifname = get_real_interface();
132
		else {
133
			$if = convert_friendly_interface_to_real_interface_name($upnp_config['ext_iface']);
134
			if ($if != $upnp_config['ext_iface'])
135
				$ext_ifname = $if;
136
			else {
137
				$ext_ifname = get_real_interface();
138
				upnp_warn("Could not resolve real interface for {$upnp_config['ext_iface']}, defaulting to WAN");
139
			}
140
		}
141
142
		$config_text = "ext_ifname={$ext_ifname}\n";
143 d05e1b9f Ryan Wagoner
		$config_text .= "port=2189\n";
144 c38fee60 Scott Ullrich
145 d05e1b9f Ryan Wagoner
		$ifaces_active = '';
146 cf97af9a Scott Ullrich
147 02d777de Scott Ullrich
		/* since config is written before this file invoked we don't need to read post data */
148 88cbd62a Ermal
		if($upnp_config['enable'] && !empty($upnp_config['iface_array'])) {
149 d05e1b9f Ryan Wagoner
			$iface_array = explode(',', $upnp_config['iface_array']);
150 c38fee60 Scott Ullrich
151
			foreach($iface_array as $iface) {
152 afa76eff jim-p
				/* Setting the same internal and external interface is not allowed. */
153
				if ($iface == $upnp_config['ext_iface'])
154
					continue;
155 c38fee60 Scott Ullrich
				$if = convert_friendly_interface_to_real_interface_name($iface);
156
				/* above function returns iface if fail */
157
				if($if!=$iface) {
158
					$addr = find_interface_ip($if);
159 d973a602 Daniel Becker
					$bits = find_interface_subnet($if);
160 c38fee60 Scott Ullrich
					/* check that the interface has an ip address before adding parameters */
161 88cbd62a Ermal
					if (is_ipaddr($addr)) {
162 d973a602 Daniel Becker
						if ($upnp_config['listen_on_iface'])
163
							$config_text .= "listening_ip={$if}\n";
164
						else
165
							$config_text .= "listening_ip={$addr}/{$bits}\n";
166 7fae6598 Ryan Wagoner
						if(!$ifaces_active) {
167
							$webgui_ip = $addr;
168 422e039b Scott Ullrich
							$ifaces_active = $iface;
169 88cbd62a Ermal
						} else
170 422e039b Scott Ullrich
							$ifaces_active .= ", {$iface}";
171 88cbd62a Ermal
					} else
172 422e039b Scott Ullrich
						upnp_warn("Interface {$iface} has no ip address, ignoring");
173 88cbd62a Ermal
				} else
174 422e039b Scott Ullrich
					upnp_warn("Could not resolve real interface for {$iface}");
175 c38fee60 Scott Ullrich
			}
176
177 88cbd62a Ermal
			if (!empty($ifaces_active)) {
178 d86002ec Ryan Wagoner
				/* override wan ip address, common for carp, etc */
179 d05e1b9f Ryan Wagoner
				if($upnp_config['overridewanip'])
180
					$config_text .= "ext_ip={$upnp_config['overridewanip']}\n";
181 02d777de Scott Ullrich
182 2816f43f Ermal
				$download = $upnp_config['download']*1000;
183
				$upload = $upnp_config['upload']*1000;
184 d86002ec Ryan Wagoner
185
				/* set upload and download bitrates */
186 2816f43f Ermal
				if(!empty($download) && !empty($upload)) {
187 d05e1b9f Ryan Wagoner
					$config_text .= "bitrate_down={$download}\n";
188
					$config_text .= "bitrate_up={$upload}\n";
189 d86002ec Ryan Wagoner
				}
190
				
191
				/* enable logging of packets handled by miniupnpd rules */
192 d05e1b9f Ryan Wagoner
				if($upnp_config['logpackets'])
193
					$config_text .= "packet_log=yes\n";
194 d86002ec Ryan Wagoner
				
195
				/* enable system uptime instead of miniupnpd uptime */
196 d05e1b9f Ryan Wagoner
				if($upnp_config['sysuptime'])
197
					$config_text .= "system_uptime=yes\n";
198 d86002ec Ryan Wagoner
199 7fae6598 Ryan Wagoner
				/* set webgui url */
200 2816f43f Ermal
				if(!empty($config['system']['webgui']['protocol'])) {
201 d05e1b9f Ryan Wagoner
					$config_text .= "presentation_url={$config['system']['webgui']['protocol']}://{$webgui_ip}";
202 2816f43f Ermal
					if(!empty($config['system']['webgui']['port']))
203 d05e1b9f Ryan Wagoner
						$config_text .= ":{$config['system']['webgui']['port']}";
204
					$config_text .= "/\n";
205 7fae6598 Ryan Wagoner
				}
206 966f579e Ryan Wagoner
207
				/* set uuid and serial */
208 d05e1b9f Ryan Wagoner
				$config_text .= "uuid=".upnp_uuid()."\n";
209
				$config_text .= "serial=".strtoupper(substr(upnp_uuid(),0,8))."\n";
210 966f579e Ryan Wagoner
211
				/* set model number */
212 2816f43f Ermal
				$config_text .= "model_number=".file_get_contents("/etc/version")."\n";
213 7fae6598 Ryan Wagoner
	
214 d86002ec Ryan Wagoner
				/* upnp access restrictions */
215
				for($i=1; $i<=4; $i++) {
216 d05e1b9f Ryan Wagoner
					if($upnp_config["permuser{$i}"])
217
						$config_text .= "{$upnp_config["permuser{$i}"]}\n";
218 02d777de Scott Ullrich
				}
219
220 d05e1b9f Ryan Wagoner
				if($upnp_config['permdefault'])
221
					$config_text .= "deny 0-65535 0.0.0.0/0 0-65535\n";
222 02d777de Scott Ullrich
223 1729ace8 jim-p
				/* Recheck if queue is valid */
224
				if (!upnp_validate_queue($upnp_config['upnpqueue']))
225
					unset($upnp_config['upnpqueue']);
226
227
				/* Add shaper queue */
228
				if($upnp_config['upnpqueue'])
229
					$config_text .= "queue={$upnp_config['upnpqueue']}\n";
230
231 93b2c459 jim-p
				/* Allow UPnP or NAT-PMP as requested */
232
				$config_text .= "enable_upnp="   . ( $upnp_config['enable_upnp']   ? "yes\n" : "no\n" );
233
				$config_text .= "enable_natpmp=" . ( $upnp_config['enable_natpmp'] ? "yes\n" : "no\n" );
234
235 e80df06e Scott Ullrich
				/* write out the configuration */
236 d05e1b9f Ryan Wagoner
				upnp_write_config($config_file, $config_text);
237 e80df06e Scott Ullrich
				
238 422e039b Scott Ullrich
				/* if miniupnpd not running start it */
239 37f54a71 Ryan Wagoner
				if(!upnp_running()) {
240 422e039b Scott Ullrich
					upnp_notice("Starting service on interface: {$ifaces_active}");
241 d86002ec Ryan Wagoner
					upnp_action('start');	
242 422e039b Scott Ullrich
				}
243
				/* or restart miniupnpd if settings were changed */
244 88cbd62a Ermal
				else {
245 422e039b Scott Ullrich
					upnp_notice("Restarting service on interface: {$ifaces_active}");
246 d86002ec Ryan Wagoner
					upnp_action('restart');
247 02d777de Scott Ullrich
				}
248
			}
249 88cbd62a Ermal
		} else {
250
			/* user does not want miniupnpd running */
251 c38fee60 Scott Ullrich
			/* lets stop the service and remove the rc file */
252 02d777de Scott Ullrich
253 88cbd62a Ermal
			if (file_exists($config_file)) {
254 d05e1b9f Ryan Wagoner
				if(!$upnp_config['enable'])
255 d86002ec Ryan Wagoner
					upnp_notice('Stopping service: miniupnpd disabled');
256 422e039b Scott Ullrich
				else
257 431484c8 Ryan Wagoner
					upnp_notice('Stopping service: no interfaces selected');				
258 422e039b Scott Ullrich
259 431484c8 Ryan Wagoner
				upnp_action('stop');
260 88cbd62a Ermal
				@unlink($config_file);
261 422e039b Scott Ullrich
			}
262 c38fee60 Scott Ullrich
		}
263
	}
264 422e039b Scott Ullrich
?>