Project

General

Profile

Download (10.6 KB) Statistics
| Branch: | Tag: | Revision:
1 5b237745 Scott Ullrich
<?php
2
/*
3 c5d81585 Renato Botelho
 * firewall_shaper.php
4 fd9ebcd5 Stephen Beaver
 *
5 c5d81585 Renato Botelho
 * part of pfSense (https://www.pfsense.org)
6 38809d47 Renato Botelho do Couto
 * Copyright (c) 2004-2013 BSD Perimeter
7
 * Copyright (c) 2013-2016 Electric Sheep Fencing
8 8f2f85c3 Luiz Otavio O Souza
 * Copyright (c) 2014-2022 Rubicon Communications, LLC (Netgate)
9 c5d81585 Renato Botelho
 * All rights reserved.
10 fd9ebcd5 Stephen Beaver
 *
11 b12ea3fb Renato Botelho
 * Licensed under the Apache License, Version 2.0 (the "License");
12
 * you may not use this file except in compliance with the License.
13
 * You may obtain a copy of the License at
14 fd9ebcd5 Stephen Beaver
 *
15 b12ea3fb Renato Botelho
 * http://www.apache.org/licenses/LICENSE-2.0
16 fd9ebcd5 Stephen Beaver
 *
17 b12ea3fb Renato Botelho
 * Unless required by applicable law or agreed to in writing, software
18
 * distributed under the License is distributed on an "AS IS" BASIS,
19
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
20
 * See the License for the specific language governing permissions and
21
 * limitations under the License.
22 fd9ebcd5 Stephen Beaver
 */
23 5b237745 Scott Ullrich
24 6b07c15a Matthew Grooms
##|+PRIV
25
##|*IDENT=page-firewall-trafficshaper
26 5230f468 jim-p
##|*NAME=Firewall: Traffic Shaper
27 6b07c15a Matthew Grooms
##|*DESCR=Allow access to the 'Firewall: Traffic Shaper' page.
28
##|*MATCH=firewall_shaper.php*
29
##|-PRIV
30
31 c81ef6e2 Phil Davis
require_once("guiconfig.inc");
32 7a927e67 Scott Ullrich
require_once("functions.inc");
33
require_once("filter.inc");
34
require_once("shaper.inc");
35 a5f07f09 Ermal Lu?i
require_once("rrd.inc");
36 5b237745 Scott Ullrich
37 02fb3a41 k-paulius
$pgtitle = array(gettext("Firewall"), gettext("Traffic Shaper"), gettext("By Interface"));
38 edcd7535 Phil Davis
$pglinks = array("", "@self", "@self");
39 b32dd0a6 jim-p
$shortcut_section = "trafficshaper";
40 09eafb8b Scott Ullrich
41 725aee3f PiBa-NL
$shaperIFlist = get_configured_interface_with_descr(true);
42 197bfe96 Ermal Luçi
read_altq_config();
43 806942d0 Stephen Beaver
/*
44 197bfe96 Ermal Luçi
 * The whole logic in these code maybe can be specified.
45
 * If you find a better way contact me :).
46
 */
47 57b89461 Scott Ullrich
48 197bfe96 Ermal Luçi
if ($_GET) {
49 6aaec445 Phil Davis
	if ($_GET['queue']) {
50 e52c3c88 jim-p
		$qname = htmlspecialchars(trim($_GET['queue']));
51 6aaec445 Phil Davis
	}
52
	if ($_GET['interface']) {
53
		$interface = htmlspecialchars(trim($_GET['interface']));
54
	}
55
	if ($_GET['action']) {
56
		$action = htmlspecialchars($_GET['action']);
57
	}
58 197bfe96 Ermal Luçi
}
59 aef9d8fe Stephen Beaver
60 197bfe96 Ermal Luçi
if ($_POST) {
61 6aaec445 Phil Davis
	if ($_POST['name']) {
62
		$qname = htmlspecialchars(trim($_POST['name']));
63
	}
64
	if ($_POST['interface']) {
65
		$interface = htmlspecialchars(trim($_POST['interface']));
66
	}
67
	if ($_POST['parentqueue']) {
68 daab67a1 Scott Ullrich
		$parentqueue = htmlspecialchars(trim($_POST['parentqueue']));
69 6aaec445 Phil Davis
	}
70 57b89461 Scott Ullrich
}
71
72 197bfe96 Ermal Luçi
if ($interface) {
73
	$altq = $altq_list_queues[$interface];
74 806942d0 Stephen Beaver
75 197bfe96 Ermal Luçi
	if ($altq) {
76
		$queue =& $altq->find_queue($interface, $qname);
77 6aaec445 Phil Davis
	} else {
78 aef9d8fe Stephen Beaver
		$addnewaltq = true;
79 6aaec445 Phil Davis
	}
80 57b89461 Scott Ullrich
}
81
82 197bfe96 Ermal Luçi
$dontshow = false;
83
$newqueue = false;
84 aef9d8fe Stephen Beaver
$dfltmsg = false;
85 5b237745 Scott Ullrich
86 197bfe96 Ermal Luçi
if ($_GET) {
87
	switch ($action) {
88 cffb85bf Renato Botelho do Couto
	case "delete":
89
		if ($queue) {
90
			$queue->delete_queue();
91 e85ae672 Renato Botelho do Couto
			if (write_config("Traffic Shaper: Item deleted")) {
92 cffb85bf Renato Botelho do Couto
				mark_subsystem_dirty('shaper');
93 197bfe96 Ermal Luçi
			}
94 cffb85bf Renato Botelho do Couto
		}
95 3b6dedf3 Stephen Beaver
96 cffb85bf Renato Botelho do Couto
		header("Location: firewall_shaper.php");
97
		exit;
98
		break;
99
	case "resetall":
100
		foreach ($altq_list_queues as $altq) {
101
			$altq->delete_all();
102
		}
103
		unset($altq_list_queues);
104
		$altq_list_queues = array();
105
		$tree = "<ul class=\"tree\" >";
106
		$tree .= get_interface_list_to_show();
107
		$tree .= "</ul>";
108
		unset($config['shaper']['queue']);
109
		unset($queue);
110
		unset($altq);
111
		$can_add = false;
112
		$can_enable = false;
113
		$dontshow = true;
114
		foreach ($config['filter']['rule'] as $key => $rule) {
115
			if (isset($rule['wizard']) && $rule['wizard'] == "yes") {
116
				unset($config['filter']['rule'][$key]);
117 26dfbf80 Ermal Luçi
			}
118 cffb85bf Renato Botelho do Couto
		}
119 806942d0 Stephen Beaver
120 e85ae672 Renato Botelho do Couto
		if (write_config("Traffic Shapper: Reset all")) {
121 cffb85bf Renato Botelho do Couto
			$changes_applied = true;
122
			$retval = 0;
123
			$retval |= filter_configure();
124
		} else {
125
			$no_write_config_msg = gettext("Unable to write config.xml (Access Denied?).");
126
		}
127 806942d0 Stephen Beaver
128 cffb85bf Renato Botelho do Couto
		$dfltmsg = true;
129 aef9d8fe Stephen Beaver
130 26dfbf80 Ermal Luçi
131
		break;
132 3b6dedf3 Stephen Beaver
133 197bfe96 Ermal Luçi
	case "add":
134 cffb85bf Renato Botelho do Couto
		/* XXX: Find better way because we shouldn't know about this */
135 197bfe96 Ermal Luçi
		if ($altq) {
136 3b6dedf3 Stephen Beaver
137 7903dd5e Stephen Beaver
			switch ($altq->GetScheduler()) {
138 cffb85bf Renato Botelho do Couto
			case "PRIQ":
139
				$q = new priq_queue();
140 c563b7a8 Ermal Luçi
				break;
141 cffb85bf Renato Botelho do Couto
			case "FAIRQ":
142
				$q = new fairq_queue();
143 7903dd5e Stephen Beaver
				break;
144 cffb85bf Renato Botelho do Couto
			case "HFSC":
145
				$q = new hfsc_queue();
146 7903dd5e Stephen Beaver
				break;
147 cffb85bf Renato Botelho do Couto
			case "CBQ":
148
				$q = new cbq_queue();
149 7903dd5e Stephen Beaver
				break;
150 cffb85bf Renato Botelho do Couto
			default:
151
				/* XXX: Happens when sched==NONE?! */
152
				$q = new altq_root_queue();
153 7903dd5e Stephen Beaver
				break;
154
			}
155 197bfe96 Ermal Luçi
		} else if ($addnewaltq) {
156
			$q = new altq_root_queue();
157 a4af095c Renato Botelho
		} else {
158 dbed2db5 NOYB
			$input_errors[] = gettext("Could not create new queue/discipline! Any recent changes may need to be applied first.");
159 5605a0c4 Stephen Beaver
		}
160 197bfe96 Ermal Luçi
161 5605a0c4 Stephen Beaver
		if ($q) {
162
			$q->SetInterface($interface);
163
			$sform = $q->build_form();
164
			$sform->addGlobal(new Form_Input(
165 cffb85bf Renato Botelho do Couto
			    'parentqueue',
166
			    null,
167
			    'hidden',
168
			    $qname
169
			    ));
170 5605a0c4 Stephen Beaver
171
			$newjavascript = $q->build_javascript();
172
			unset($q);
173
			$newqueue = true;
174
		}
175
		break;
176 cffb85bf Renato Botelho do Couto
	case "show":
177
		if ($queue) {
178
			$sform = $queue->build_form();
179
		} else {
180
			$input_errors[] = gettext("Queue not found!");
181
		}
182 197bfe96 Ermal Luçi
		break;
183 cffb85bf Renato Botelho do Couto
	case "enable":
184
		if ($queue) {
185
			$queue->SetEnabled("on");
186
			$sform = $queue->build_form();
187 e85ae672 Renato Botelho do Couto
			if (write_config("Traffic Shaper: Queue enabled")) {
188 cffb85bf Renato Botelho do Couto
				mark_subsystem_dirty('shaper');
189 6aaec445 Phil Davis
			}
190 cffb85bf Renato Botelho do Couto
		} else {
191
			$input_errors[] = gettext("Queue not found!");
192
		}
193
		break;
194
	case "disable":
195
		if ($queue) {
196
			$queue->SetEnabled("");
197
			$sform = $queue->build_form();
198 e85ae672 Renato Botelho do Couto
			if (write_config("Traffic Shaper: Queue disabled")) {
199 cffb85bf Renato Botelho do Couto
				mark_subsystem_dirty('shaper');
200 6aaec445 Phil Davis
			}
201 cffb85bf Renato Botelho do Couto
		} else {
202
			$input_errors[] = gettext("Queue not found!");
203
		}
204
		break;
205
	default:
206
		$dfltmsg = true;
207
		$dontshow = true;
208
		break;
209 5b237745 Scott Ullrich
	}
210 aef9d8fe Stephen Beaver
}
211
212
if ($_POST) {
213 197bfe96 Ermal Luçi
	unset($input_errors);
214 5b237745 Scott Ullrich
215 197bfe96 Ermal Luçi
	if ($addnewaltq) {
216 5c4fcabc Renato Botelho
		$__tmp_altq = new altq_root_queue(); $altq =& $__tmp_altq;
217 197bfe96 Ermal Luçi
		$altq->SetInterface($interface);
218
		$altq->ReadConfig($_POST);
219 ea51e9f8 Renato Botelho
		$altq->validate_input($_POST, $input_errors);
220 92125c97 Ermal Luçi
		if (!$input_errors) {
221
			unset($tmppath);
222
			$tmppath[] = $altq->GetInterface();
223 806942d0 Stephen Beaver
			$altq->SetLink($tmppath);
224 92125c97 Ermal Luçi
			$altq->wconfig();
225 e85ae672 Renato Botelho do Couto
			if (write_config("Traffic Shaper: Added root queue")) {
226 3a343d73 jim-p
				mark_subsystem_dirty('shaper');
227 6aaec445 Phil Davis
			}
228 92125c97 Ermal Luçi
			$can_enable = true;
229 aef9d8fe Stephen Beaver
			$can_add = true;
230 92125c97 Ermal Luçi
		}
231 aef9d8fe Stephen Beaver
232 48d418e8 Ermal Luçi
		read_altq_config();
233 a51c7c7f Stephen Beaver
		$sform = $altq->build_form();
234 197bfe96 Ermal Luçi
	} else if ($parentqueue) { /* Add a new queue */
235
		$qtmp =& $altq->find_queue($interface, $parentqueue);
236
		if ($qtmp) {
237
			$tmppath =& $qtmp->GetLink();
238
			array_push($tmppath, $qname);
239 ea51e9f8 Renato Botelho
			$tmp =& $qtmp->add_queue($interface, $_POST, $tmppath, $input_errors);
240 92125c97 Ermal Luçi
			if (!$input_errors) {
241
				array_pop($tmppath);
242
				$tmp->wconfig();
243
				$can_enable = true;
244 70b139a3 Chris Buechler
				if ($tmp->CanHaveChildren() && $can_enable) {
245 6aaec445 Phil Davis
					if ($tmp->GetDefault() <> "") {
246 3b6dedf3 Stephen Beaver
						$can_add = false;
247 6aaec445 Phil Davis
					} else {
248 3b6dedf3 Stephen Beaver
						$can_add = true;
249 6aaec445 Phil Davis
					}
250
				} else {
251 92125c97 Ermal Luçi
					$can_add = false;
252 6aaec445 Phil Davis
				}
253 e85ae672 Renato Botelho do Couto
				if (write_config("Traffic Shaper: Added new queue")) {
254 3a343d73 jim-p
					mark_subsystem_dirty('shaper');
255 6aaec445 Phil Davis
				}
256 92125c97 Ermal Luçi
				$can_enable = true;
257 6aaec445 Phil Davis
				if ($altq->GetScheduler() != "PRIQ") { /* XXX */
258
					if ($tmp->GetDefault() <> "") {
259 3b6dedf3 Stephen Beaver
						$can_add = false;
260 6aaec445 Phil Davis
					} else {
261 3b6dedf3 Stephen Beaver
						$can_add = true;
262 6aaec445 Phil Davis
					}
263
				}
264 92125c97 Ermal Luçi
			}
265 48d418e8 Ermal Luçi
			read_altq_config();
266 a51c7c7f Stephen Beaver
			$sform = $tmp->build_form();
267 6aaec445 Phil Davis
		} else {
268 2f8fe6af Carlos Eduardo Ramos
			$input_errors[] = gettext("Could not add new queue.");
269 6aaec445 Phil Davis
		}
270 197bfe96 Ermal Luçi
	} else if ($_POST['apply']) {
271 e85ae672 Renato Botelho do Couto
		write_config("Traffic Shaper: Apply changes");
272 44c42356 Phil Davis
		$changes_applied = true;
273 6aaec445 Phil Davis
		$retval = 0;
274 44c42356 Phil Davis
		$retval |= filter_configure();
275 5b237745 Scott Ullrich
276 806942d0 Stephen Beaver
		/* reset rrd queues */
277 7ac5a4cb Scott Ullrich
		system("rm -f /var/db/rrd/*queuedrops.rrd");
278
		system("rm -f /var/db/rrd/*queues.rrd");
279
		enable_rrd_graphing();
280 1f276138 Scott Ullrich
281 a368a026 Ermal Lu?i
		clear_subsystem_dirty('shaper');
282 806942d0 Stephen Beaver
283 6aaec445 Phil Davis
		if ($queue) {
284 a51c7c7f Stephen Beaver
			$sform = $queue->build_form();
285 6aaec445 Phil Davis
			$dontshow = false;
286
		} else {
287 a51c7c7f Stephen Beaver
			$sform = $default_shaper_message;
288 6aaec445 Phil Davis
			$dontshow = true;
289
		}
290 197bfe96 Ermal Luçi
	} else if ($queue) {
291 6aaec445 Phil Davis
		$queue->validate_input($_POST, $input_errors);
292
		if (!$input_errors) {
293
			$queue->update_altq_queue_data($_POST);
294
			$queue->wconfig();
295 e85ae672 Renato Botelho do Couto
			if (write_config("Traffic Shaper: Changed queue")) {
296 6aaec445 Phil Davis
				mark_subsystem_dirty('shaper');
297
			}
298
			$dontshow = false;
299
		}
300 48d418e8 Ermal Luçi
		read_altq_config();
301 a51c7c7f Stephen Beaver
		$sform = $queue->build_form();
302 806942d0 Stephen Beaver
	} else	{
303 aef9d8fe Stephen Beaver
		$dfltmsg = true;
304 92125c97 Ermal Luçi
		$dontshow = true;
305
	}
306 22a82fdd Viktor G
	mwexec("/usr/bin/killall -q qstats");
307 aef9d8fe Stephen Beaver
}
308
309 e6f34d22 Phil Davis
if (!$_POST && !$_GET) {
310 aef9d8fe Stephen Beaver
	$dfltmsg = true;
311 197bfe96 Ermal Luçi
	$dontshow = true;
312
}
313 0ceb8927 Bill Marquette
314 fce82460 Ermal Luçi
if ($queue) {
315 6aaec445 Phil Davis
	if ($queue->GetEnabled()) {
316 aef9d8fe Stephen Beaver
		$can_enable = true;
317 6aaec445 Phil Davis
	} else {
318 aef9d8fe Stephen Beaver
		$can_enable = false;
319 6aaec445 Phil Davis
	}
320 806942d0 Stephen Beaver
	if ($queue->CanHaveChildren() && $can_enable) {
321 6aaec445 Phil Davis
		if ($altq->GetQname() <> $queue->GetQname() && $queue->GetDefault() <> "") {
322 aef9d8fe Stephen Beaver
			$can_add = false;
323 6aaec445 Phil Davis
		} else {
324 aef9d8fe Stephen Beaver
			$can_add = true;
325 6aaec445 Phil Davis
		}
326
	} else {
327 aef9d8fe Stephen Beaver
		$can_add = false;
328 6aaec445 Phil Davis
	}
329 fce82460 Ermal Luçi
}
330
331 aef9d8fe Stephen Beaver
include("head.inc");
332
333
$tree = '<ul class="tree" >';
334 fce82460 Ermal Luçi
if (is_array($altq_list_queues)) {
335 3b6dedf3 Stephen Beaver
	foreach ($altq_list_queues as $tmpaltq) {
336 6aaec445 Phil Davis
		$tree .= $tmpaltq->build_tree();
337 3b6dedf3 Stephen Beaver
	}
338 6aaec445 Phil Davis
	$tree .= get_interface_list_to_show();
339 fce82460 Ermal Luçi
}
340 0ceb8927 Bill Marquette
341 aef9d8fe Stephen Beaver
$tree .= "</ul>";
342 197bfe96 Ermal Luçi
343 7841a35c Colin Fleming
if ($queue) {
344 aef9d8fe Stephen Beaver
	print($queue->build_javascript());
345 7841a35c Colin Fleming
}
346 806942d0 Stephen Beaver
347 aef9d8fe Stephen Beaver
print($newjavascript);
348
349 7841a35c Colin Fleming
if ($input_errors) {
350 806942d0 Stephen Beaver
	print_input_errors($input_errors);
351 7841a35c Colin Fleming
}
352 aef9d8fe Stephen Beaver
353 44c42356 Phil Davis
if ($no_write_config_msg) {
354
	print_info_box($no_write_config_msg, 'danger');
355
}
356
357
if ($changes_applied) {
358
	print_apply_result_box($retval);
359 7841a35c Colin Fleming
}
360 806942d0 Stephen Beaver
361 7841a35c Colin Fleming
if (is_subsystem_dirty('shaper')) {
362 dbed2db5 NOYB
	print_apply_box(gettext("The traffic shaper configuration has been changed.") . "<br />" . gettext("The changes must be applied for them to take effect."));
363 7841a35c Colin Fleming
}
364 aef9d8fe Stephen Beaver
365
$tab_array = array();
366
$tab_array[] = array(gettext("By Interface"), true, "firewall_shaper.php");
367
$tab_array[] = array(gettext("By Queue"), false, "firewall_shaper_queues.php");
368 544af3fe k-paulius
$tab_array[] = array(gettext("Limiters"), false, "firewall_shaper_vinterface.php");
369 aef9d8fe Stephen Beaver
$tab_array[] = array(gettext("Wizards"), false, "firewall_shaper_wizards.php");
370
display_top_tabs($tab_array);
371 806942d0 Stephen Beaver
372 5b237745 Scott Ullrich
?>
373 8ed6b8e3 Stephen Beaver
<script type="text/javascript" src="./vendor/tree/tree.js"></script>
374 df5c0bc0 Colin Fleming
375 aef9d8fe Stephen Beaver
<div class="table-responsive">
376
	<table class="table">
377
		<tbody>
378
			<tr class="tabcont">
379 806942d0 Stephen Beaver
				<td class="col-md-1">
380
<?php
381
// Display the shaper tree
382 aef9d8fe Stephen Beaver
print($tree);
383 5b237745 Scott Ullrich
384 806942d0 Stephen Beaver
if (count($altq_list_queues) > 0) {
385 92125c97 Ermal Luçi
?>
386 6cb05fa7 Colin Fleming
					<a href="firewall_shaper.php?action=resetall" class="btn btn-sm btn-danger">
387 37676f4e jim-p
						<i class="fa fa-trash icon-embed-btn"></i>
388 aef9d8fe Stephen Beaver
						<?=gettext('Remove Shaper')?>
389
					</a>
390 806942d0 Stephen Beaver
<?php
391 aef9d8fe Stephen Beaver
}
392 197bfe96 Ermal Luçi
?>
393 aef9d8fe Stephen Beaver
				</td>
394
				<td>
395
<?php
396
397 f7d2d5aa Stephen Beaver
if (!$dfltmsg && $sform)  {
398 aef9d8fe Stephen Beaver
	// Add global buttons
399
	if (!$dontshow || $newqueue) {
400
		if ($can_add || $addnewaltq) {
401 7841a35c Colin Fleming
			if ($queue) {
402 aef9d8fe Stephen Beaver
				$url = 'firewall_shaper.php?interface='. $interface . '&queue=' . $queue->GetQname() . '&action=add';
403 7841a35c Colin Fleming
			} else {
404 aef9d8fe Stephen Beaver
				$url = 'firewall_shaper.php?interface='. $interface . '&action=add';
405 7841a35c Colin Fleming
			}
406 806942d0 Stephen Beaver
407 aef9d8fe Stephen Beaver
			$sform->addGlobal(new Form_Button(
408
				'add',
409 faab522f Renato Botelho
				'Add new Queue',
410 37676f4e jim-p
				$url,
411
				'fa-plus'
412 27d6a45b jim-p
			))->addClass('btn-success');
413 a51c7c7f Stephen Beaver
414 aef9d8fe Stephen Beaver
		}
415 806942d0 Stephen Beaver
416 7841a35c Colin Fleming
		if ($queue) {
417 aef9d8fe Stephen Beaver
			$url = 'firewall_shaper.php?interface='. $interface . '&queue=' . $queue->GetQname() . '&action=delete';
418 7841a35c Colin Fleming
		} else {
419 aef9d8fe Stephen Beaver
			$url = 'firewall_shaper.php?interface='. $interface . '&action=delete';
420 7841a35c Colin Fleming
		}
421 806942d0 Stephen Beaver
422 aef9d8fe Stephen Beaver
		$sform->addGlobal(new Form_Button(
423
			'delete',
424 faab522f Renato Botelho
			$queue ? 'Delete this queue':'Disable shaper on interface',
425 37676f4e jim-p
			$url,
426
			'fa-trash'
427 86c560d9 Viktor Gurov
		))->addClass('btn-danger nowarn');
428 a51c7c7f Stephen Beaver
429 aef9d8fe Stephen Beaver
	}
430 806942d0 Stephen Beaver
431 aef9d8fe Stephen Beaver
	print($sform);
432
}
433 806942d0 Stephen Beaver
?>
434 aef9d8fe Stephen Beaver
				</td>
435
			</tr>
436
		</tbody>
437
	</table>
438 806942d0 Stephen Beaver
</div>
439
440 fc47d47a jim-p
<?php if (empty(get_interface_list_to_show()) && (!is_array($altq_list_queues) || (count($altq_list_queues) == 0))): ?>
441 aa64bb65 jim-p
<div>
442
	<div class="infoblock blockopen">
443
		<?php print_info_box(gettext("This firewall does not have any interfaces assigned that are capable of using ALTQ traffic shaping."), 'danger', false); ?>
444
	</div>
445
</div>
446
<?php endif; ?>
447
448 806942d0 Stephen Beaver
<?php
449 a51c7c7f Stephen Beaver
if ($dfltmsg) {
450
?>
451
<div>
452 35681930 Stephen Beaver
	<div class="infoblock">
453 f6aebbcc NewEraCracker
		<?php print_info_box($default_shaper_msg, 'info', false); ?>
454 a51c7c7f Stephen Beaver
	</div>
455
</div>
456
<?php
457
}
458 c10cb196 Stephen Beaver
include("foot.inc");