pfSense

	ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

	POSSIBILITY OF SUCH DAMAGE.

*/

/* XXX: needs some reducing on include. */

	$altq =& $altq_list_queues[$int];

	if ($altq) {

		$bw_3 = $altq->GetBandwidth();

		return floatval($bw_3);

	} else {

		return 0;

	/*

	 * First it spits:

	 * altq on $interface ..............

	 */

	function build_rules(&$default = false) {

		if (count($this->queues) > 0 && $this->GetEnabled() == "on") {

			$default = false;

			if ($this->GetScheduler()) {

				$rules .= " ".strtolower($this->GetScheduler());

			}

			}

			$frule .= $rules;

		} else if ($this->GetEnabled() == "on" && $this->GetScheduler() == "CODELQ") {

			if ($this->GetScheduler()) {

				$rules .= " ".strtolower($this->GetScheduler());

			}

	/*

	 * For requesting the parameters of the root queues

	 * to the user like the traffic wizard does.

	function build_form() {

		$sform = new Form(new Form_Button(

			'Submit',

			'Save'

		));

		$section = new Form_Section(null);

		$section->addInput(new Form_Checkbox(

			'enabled',

			'Enable/Disable',

			($this->GetEnabled() == "on"),

			'on'

		));

		$section->addInput(new Form_StaticText(

			'Name',

			$this->GetQname()

		));

		$section->addInput(new Form_Select(

			'scheduler',

			'Scheduler Type',

			$this->GetScheduler(),

				  'CBQ' => 'CBQ',

				  'FAIRQ' => 'FAIRQ',

				  'CODELQ' => 'CODELQ',

				  'PRIQ' => 'PRIQ')

		))->setHelp('Changing this changes all child queues! Beware you can lose information.');

		$group = new Form_group('Bandwidth');

		$group->add(new Form_Input(

			'bandwidth',

			null,

			'number',

			$this->GetBandwidth()

		));

		$group->add(new Form_Select(

			'bandwidthtype',

			null,

				  'Gb' => 'Gb',

				  'b' => 'b')

		));

		$section->add($group);

		$section->addInput(new Form_Input(

			'qlimit',

			'Queue Limit',

			'number',

			$this->GetQlimit()

		));

		$section->addInput(new Form_Input(

			'tbrconfig',

			'TRB Size',

			'number',

			$this->GetTbrConfig()

		))->setHelp('Adjusts the size, in bytes, of the token bucket regulator. If not specified, heuristics based on the interface ' .

		$section->addInput(new Form_Input(

			'interface',

			null,

			'hidden',

			$this->GetInterface()

		));

		$section->addInput(new Form_Input(

			'name',

			null,

			'hidden',

			$this->GetQname()

		));

		$sform->add($section);

		return($sform);

	}

			$input_errors[] = "Bandwidth cannot be negative.";

		}

		if ($data['priority'] && (!is_numeric($data['priority']) ||

			$input_errors[] = gettext("The priority must be an integer between 1 and 15.");

		}

		if ($data['qlimit'] && (!is_numeric($data['qlimit']))) {

	 * object is created and later when we may

	 * need to update it. (2)

	 */

	function build_form() {

		$sform = new Form();

		$section = new Form_Section(null);

		$section->addInput(new Form_Checkbox(

			'enabled',

			'Enable/Disable',

			($this->GetEnabled() == "on"),

			'on'

		));

		$section->addInput(new Form_StaticText(

			'Name',

			$this->GetQname()

		))->setHelp('Enter the name of the queue here. Do not use spaces and limit the size to 15 characters.');

		$section->addInput(new Form_Input(

			'priority',

			'Priority',

			'number',

			$this->GetQlimit()

		))->setHelp('Queue limit in packets.');

		$group = new Form_Group('Scheduler options');

		if (empty($this->subqueues)) {

			$group->add(new Form_Checkbox(

				'default',

				null,

				null,

				$this->GetDefault()

		}

		$group->add(new Form_Checkbox(

			'red',

			null,

			null,

			!empty($this->GetRed())

		))->setHelp('<a target="_new" href="http://www.openbsd.org/faq/pf/queueing.html#red">' . gettext('Random Early Detection') . '</a>');

		$group->add(new Form_Checkbox(

			'rio',

			null,

			null,

			!empty($this->GetRio())

		))->setHelp('<a target="_new" href="http://www.openbsd.org/faq/pf/queueing.html#rio">' . gettext('Random Early Detection In and Out') . '</a>');

		$group->add(new Form_Checkbox(

			'ecn',

			null,

			null,

			!empty($this->GetEcn())

		))->setHelp('<a target="_new" href="http://www.openbsd.org/faq/pf/queueing.html#ecn">' . gettext('Explicit Congestion Notification') . '</a>');

		$group->add(new Form_Checkbox(

			'codel',

			null,

		))->setHelp('<a target="_new" href="http://www.openbsd.org/faq/pf/queueing.html#ecn">' . gettext('Explicit Congestion Notification') . '</a>');

		$group->setHelp('Select options for this queue');

		$section->addInput(new Form_Input(

			'description',

			'Description',

			'text',

			$this->GetDescription()

		));

		$section->addInput(new Form_Input(

			'interface',

			null,

			'hidden',

			$this->GetInterface()

		$sform->add($section);

		return($sform);

	function build_shortform() {

		/* XXX: Hacks in sight. Mostly layer violations!  */

		if ($data['linkshare3'] <> "" && !is_valid_shaperbw($data['linkshare3'])) {

			$input_errors[] = gettext("linkshare m2 value needs to be Kb, Mb, Gb, or %");

		}

			$input_errors[] = gettext("realtime service curve defined but missing (d) value");

		}

			$input_errors[] = gettext("realtime service curve defined but missing initial bandwidth (m1) value");

		}

				$default = true;

			}

				if ($comma) {

					$pfq_rule .= " , ";

				}

				if ($this->GetR_m1()  <> "" && $this->GetR_d() <> "" && $this->GetR_m2() <> "") {

					$pfq_rule .= " realtime (".$this->GetR_m1() . ", " . $this->GetR_d().", ". $this->GetR_m2() .") ";

					$pfq_rule .= " realtime " . $this->GetR_m2();

				}

				$comma = 1;

	}

	function build_javascript() {

		$javascript = <<<EOJS

<script type="text/javascript">

	events.push(function(){

	});

EOJS;

		return $javascript;

	}

	function build_form() {

		$sform = parent::build_form();

		$section = new Form_Section('Service Curve (sc)');

		$group = new Form_Group('Bandwidth');

		$group->add(new Form_Input(

			'bandwidth',

			null,

			'number',

			$this->GetBandwidth()

		));

		$group->add(new Form_Select(

			'bandwidthtype',

			null,

				  'Gb' => 'Gb',

				  'b' => 'b')

		));

		$group->setHelp('Choose the amount of bandwidth for this queue');

		$section->add($group);

		$group = new Form_Group('Max bandwidth for queue.');

		$group->add(new Form_Checkbox(

			'upperlimit',

			null,

			'Upper Limit',

			($this->GetUpperlimit()<> "")

		$group->add(new Form_Input(

			'upperlimit1',

			null,

			'text',

			$this->GetU_m1()

		));

		$group->add(new Form_Input(

			'upperlimit2',

			null,

			'text',

			$this->GetU_m2()

		));

		$group = new Form_Group('Min bandwidth for queue.');

		$group->add(new Form_Checkbox(

			'realtime',

			null,

			'Real Time',

			($this->GetRealtime()<> "")

		$group->add(new Form_Input(

			'realtime1',

			null,

			'text',

			$this->GetR_m1()

		));

		$group->add(new Form_Input(

			'realtime2',

			null,

			'text',

			$this->GetR_m2()

		));

		$section->add($group);

		$group = new Form_Group('B/W share of a backlogged queue.');

		$group->add(new Form_Checkbox(

			'linkshare',

			null,

			'Link Share',

			($this->GetLinkshare()<> "")

		$group->add(new Form_Input(

			'linkshare1',

			null,

			'text',

			$this->GetL_m1()

		));

		$group->add(new Form_Input(

			'linkshare2',

			null,

			'text',

			$this->GetL_m2()

		));

		$group->sethelp('Bandwidth share overrides priority.' . '<br />' .

						'The format for service curve specifications is (m1, d, m2). m2 controls the bandwidth assigned to the queue. ' .

						'm1 and d are optional and can be used to control the initial bandwidth assignment. ' .

						'For the first d milliseconds the queue gets the bandwidth given as m1, afterwards the value given in m2.');

		$section->add($group);

		$sform->add($section);

	}

	function update_altq_queue_data(&$data) {

	function build_form() {

		$sform = parent::build_form();

		$section = new Form_Section('');

		$group = new Form_Group('Bandwidth');

		$group->add(new Form_Input(

			'bandwidth',

			null,

			'number',

			$this->GetBandwidth()

		));

		$group->add(new Form_Select(

			'bandwidthtype',

			null,

				  'Gb' => 'Gb',

				  'b' => 'b')

		));

		$group->setHelp('Choose the amount of bandwidth for this queue');

		$section->add($group);

		$section->addInput(new Form_Checkbox(

			'borrow',

			'Scheduler option',

			'Borrow from other queues when available',

			($this->GetBorrow() == "on")

		return $sform;

	}

			$pfq_rule .= " qlimit " . $this->GetQlimit();

		}

		if ($this->GetDefault() || $this->GetRed() || $this->GetRio() ||

			$pfq_rule .= " fairq ( ";

			$tmpvalue = trim($this->GetRed());

			if (!empty($tmpvalue)) {

	function build_form() {

		$form = parent::build_form();

		$section = new Form_Section('');

		$group = new Form_Group('Bandwidth');

		$group->add(new Form_Input(

			'bandwidth',

			null,

			'number',

			$this->GetBandwidth()

		));

		$group->add(new Form_Select(

			'bandwidthtype',

			null,

				  'Gb' => 'Gb',

				  'b' => 'b')

		));

		$group->setHelp('Choose the amount of bandwidth for this queue');

		$section->add($group);

		$form .= "<tr><td class=\"vncellreq\">" . gettext("Scheduler specific options") . "</td>";

		$form .= "<td class=\"vtable\"><table><tr><td>";

		shaper_do_input_validation($data, $reqdfields, $reqdfieldsn, $input_errors);

		if ($data['plr'] && (!is_numeric($data['plr']) ||

				$input_errors[] = gettext("Plr must be a value between 0 and 1.");

		}

		if ($data['buckets'] && (!is_numeric($data['buckets']) ||

				$input_errors[] = gettext("Buckets must be an integer between 16 and 65535.");

		}

		if ($data['qlimit'] && (!is_numeric($data['qlimit']))) {

		$form .= "</select>";

		$form .= "&nbsp;<br />";

		$form .= "<span class=\"vexpl\">" . gettext("If 'source' or 'destination' slots is chosen, \n"

		$form .= "255.255.255.255/&nbsp;<input type=\"text\" class=\"formfld unknown\" size=\"2\" id=\"maskbits\" name=\"maskbits\" value=\"";

		if ($mask['type'] <> "none") {

			$form .= $mask['bits'];

		$form .= " />";

		$form .= "&nbsp; IPV6 mask bits (1-128)<br />";

		$form .= "<span class=\"vexpl\">" . gettext("If 'source' or 'destination' slots is chosen, \n"

		$form .= "</td></tr>";

		$form .= "<tr><td valign=\"middle\" class=\"vncellreq\">" . gettext("Description") . "</td>";

		$form .= "<td class=\"vncellreq\">";

		$form .= "<input name=\"delay\" type=\"text\" id=\"delay\" size=\"5\" value=\"";

		$form .= $this->GetDelay() . "\" />";

		$form .= "&nbsp;ms<br /> <span class=\"vexpl\">" . gettext("Hint: in most cases, you "

		$form .= "</td></tr>";

		$form .= "<tr style=\"display:none\" id=\"sprtable1\">";

		$form .= "<td valign=\"middle\" class=\"vncellreq\">" . gettext("Packet loss rate") . "</td>";

		$form .= "<input name=\"plr\" type=\"text\" id=\"plr\" size=\"5\" value=\"";

		$form .= $this->GetPlr() . "\" />";

		$form .= "&nbsp;<br /> <span class=\"vexpl\">" . gettext("Hint: in most cases, you "

		$form .= "</td></tr>";

		$form .= "<tr style=\"display:none\" id=\"sprtable2\">";

		$form .= "<td valign=\"middle\" class=\"vncellreq\">" . gettext("Queue Size") . "</td>";

		$form .= $this->GetQlimit() . "\" />";

		$form .= "&nbsp;slots<br />";

		$form .= "<span class=\"vexpl\">" . gettext("Hint: in most cases, you "

		$form .= "</td></tr>";

		$form .= "<tr style=\"display:none\" id=\"sprtable5\">";

		$form .= "<td valign=\"middle\" class=\"vncellreq\">" . gettext("Bucket Size") . "</td>";

		parent::validate_input($data, $input_errors);

		if ($data['weight'] && ((!is_numeric($data['weight'])) ||

			$input_errors[] = gettext("Weight must be an integer between 1 and 100.");

		}

	}

		return parent::build_javascript();

	}

	function build_formX() {

		$form = "<tr><td valign=\"middle\" class=\"vncellreq\"><br />";

		$form .= gettext("Enable/Disable");

	$dummynet_pipe_list = array();

	if (!is_array($config['dnshaper']['queue']) ||

		return;

	}

	foreach ($shaperIFlist as $shif => $shDescr) {

		if ($altq_list_queues[$shif]) {

			continue;

			if (!is_altq_capable(get_real_interface($shif))) {

				continue;

			}

}

?>

*/

/*

	pfSense_BUILDER_BINARIES:	/usr/bin/killall

*/

##|+PRIV

$shaperIFlist = get_configured_interface_with_descr();

read_altq_config();

 * The whole logic in these code maybe can be specified.

 * If you find a better way contact me :).

 */

if ($_GET) {

	if ($_GET['queue'])

		$qname = htmlspecialchars(trim($_GET['queue']));

	if ($_GET['interface'])

			$interface = htmlspecialchars(trim($_GET['interface']));

	if ($_GET['action'])

			$action = htmlspecialchars($_GET['action']);

}

if ($_POST) {

	if ($_POST['name'])

			$qname = htmlspecialchars(trim($_POST['name']));

	if ($_POST['interface'])

			$interface = htmlspecialchars(trim($_POST['interface']));

	if ($_POST['parentqueue'])

		$parentqueue = htmlspecialchars(trim($_POST['parentqueue']));

}

if ($interface) {

	$altq = $altq_list_queues[$interface];

	if ($altq) {

		$queue =& $altq->find_queue($interface, $qname);

		$addnewaltq = true;

}

$newqueue = false;

$output_form = "";

$dfltmsg = false;

if ($_GET) {

	switch ($action) {

				if (isset($rule['wizard']) && $rule['wizard'] == "yes")

					unset($config['filter']['rule'][$key]);

			}

			if (write_config()) {

				$retval = 0;

				$retval |= filter_configure();

					$savemsg = get_std_save_message($retval);

				else

					$savemsg = $retval;

			} else {

				$savemsg = gettext("Unable to write config.xml (Access Denied?)");

			}

			$dfltmsg = true;

			/* XXX: Find better way because we shouldn't know about this */

		if ($altq) {

					switch ($altq->GetScheduler()) {

							$q = new priq_queue();

							break;

			case "FAIRQ":

				$q = new fairq_queue();

				break;

						case "HFSC":

							break;

						case "CBQ":

								$q = new cbq_queue();

				}

		} else if ($addnewaltq) {

			$q = new altq_root_queue();

			$input_errors[] = gettext("Could not create new queue/discipline!");

			if ($q) {

		break;

		case "show":

			if ($queue) {

				//$output_form .= $queue->build_form();

			}

			else

	if ($addnewaltq) {

		$altq =& new altq_root_queue();

		$altq->SetInterface($interface);

		switch ($altq->GetBwscale()) {

				case "Mb":

					$factor = 1000 * 1000;

				default: /* XXX assume Kb by default. */

					$factor = 1000;

					break;

		$altq->SetAvailableBandwidth($altq->GetBandwidth() * $factor);

		$altq->ReadConfig($_POST);

		if (!$input_errors) {

			unset($tmppath);

			$tmppath[] = $altq->GetInterface();

			$altq->wconfig();

			if (write_config())

				mark_subsystem_dirty('shaper');

				$can_enable = true;

				if ($tmp->CanHaveChildren() && $can_enable) {

					if ($tmp->GetDefault() != "")

								else

				} else

					$can_add = false;

				if (write_config())

												$can_add = true;

			}

			read_altq_config();

		} else

			$input_errors[] = gettext("Could not add new queue.");

	} else if ($_POST['apply']) {

			$retval = 0;

			$retval = filter_configure();

			$savemsg = get_std_save_message($retval);

			if (stristr($retval, "error") != true)

					$savemsg = get_std_save_message($retval);

			else

					$savemsg = $retval;

		system("rm -f /var/db/rrd/*queuedrops.rrd");

		system("rm -f /var/db/rrd/*queues.rrd");

		enable_rrd_graphing();

		clear_subsystem_dirty('shaper');

			if ($queue) {

				$output_form .= $queue->build_form();

				$dontshow = false;

				if (write_config())

					mark_subsystem_dirty('shaper');

				$dontshow = false;

		read_altq_config();

		$output_form .= $queue->build_form();

		$dfltmsg = true;

		$dontshow = true;

	}

		$can_enable = true;

	else

		$can_enable = false;

		if ($altq->GetQname() != $queue->GetQname() && $queue->GetDefault() != "")

			$can_add = false;

		else

if ($queue)

	print($queue->build_javascript());

print($newjavascript);

	print_info_box($savemsg, 'success');

if (is_subsystem_dirty('shaper'))

	print_info_box_np(gettext("The traffic shaper configuration has been changed. You must apply the changes in order for them to take effect."));

$tab_array[] = array(gettext("Layer7"), false, "firewall_shaper_layer7.php");

$tab_array[] = array(gettext("Wizards"), false, "firewall_shaper_wizards.php");

display_top_tabs($tab_array);

?>

<link rel="stylesheet" type="text/css" media="all" href="./tree/tree.css" />

<script type="text/javascript" src="./tree/tree.js"></script>

	<table class="table">

		<tbody>

			<tr class="tabcont">

print($tree);

?>

					<a href="firewall_shaper.php?action=resetall" class="btn btn-sm btn-danger"/>

						<?=gettext('Remove Shaper')?>

					</a>

}

?>

				</td>

<?php

if($dfltmsg)

else{

	// Add global buttons

	if (!$dontshow || $newqueue) {

				$url = 'firewall_shaper.php?interface='. $interface . '&queue=' . $queue->GetQname() . '&action=add';

			else

				$url = 'firewall_shaper.php?interface='. $interface . '&action=add';

			$sform->addGlobal(new Form_Button(

				'add',

				'Add new Queue',

				$url

			))->addClass('btn-success');

		}

		if($queue)

			$url = 'firewall_shaper.php?interface='. $interface . '&queue=' . $queue->GetQname() . '&action=delete';

		else

			$url = 'firewall_shaper.php?interface='. $interface . '&action=delete';

		$sform->addGlobal(new Form_Button(

			'delete',

			$queue ? 'Delete this queue':'Disable shaper on interface',

			$url

		))->addClass('btn-danger');

	}

	// Print hte form

	print($sform);

}

				</td>

			</tr>

		</tbody>

	</table>

include("foot.inc");