Commit 31d91f56 authored by Mike Hibler's avatar Mike Hibler

Plumb through a tb-set-jumbo-frames command in the classic interface.

Leigh is going to shoot me...
parent f8afcf0f
#!/usr/bin/perl -wT
#
# Copyright (c) 2009-2018 University of Utah and the Flux Group.
# Copyright (c) 2009-2019 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -141,7 +141,8 @@ my $debug = 0;
"dpdb" => 1,
"nonfsmounts" => 1,
"nfsmounts" => 1,
"skipvlans" => 1);
"skipvlans" => 1,
"usejumboframes" => 1);
#
# Grab the virtual topo for an experiment.
......
#!/usr/local/bin/otclsh
#
# Copyright (c) 2000-2016 University of Utah and the Flux Group.
# Copyright (c) 2000-2019 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -280,6 +280,9 @@ namespace eval GLOBALS {
# Use phys naming
variable use_physnaming 0
# Use jumbo frames on 10Gb+ links
variable usejumboframes 0
# Modelnet support. Number of physical core and edge nodes that user
# wants thrown at the problem.
variable modelnet_cores 0
......
# -*- tcl -*-
#
# Copyright (c) 2000-2018 University of Utah and the Flux Group.
# Copyright (c) 2000-2019 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -518,6 +518,7 @@ Simulator instproc run {} {
var_import ::GLOBALS::jail_osname
var_import ::GLOBALS::delay_osname
var_import ::GLOBALS::delay_capacity
var_import ::GLOBALS::usejumboframes
var_import ::TBCOMPAT::objtypes
var_import ::TBCOMPAT::eventtypes
var_import ::TBCOMPAT::triggertypes
......@@ -746,8 +747,8 @@ Simulator instproc run {} {
$path updatedb "sql"
}
set fields [list "mem_usage" "cpu_usage" "forcelinkdelays" "uselinkdelays" "usewatunnels" "uselatestwadata" "wa_delay_solverweight" "wa_bw_solverweight" "wa_plr_solverweight" "encap_style" "allowfixnode"]
set values [list $mem_usage $cpu_usage $forcelinkdelays $uselinkdelays $usewatunnels $uselatestwadata $wa_delay_solverweight $wa_bw_solverweight $wa_plr_solverweight $vlink_encapsulate $fix_current_resources]
set fields [list "mem_usage" "cpu_usage" "forcelinkdelays" "uselinkdelays" "usewatunnels" "uselatestwadata" "wa_delay_solverweight" "wa_bw_solverweight" "wa_plr_solverweight" "encap_style" "allowfixnode" "usejumboframes"]
set values [list $mem_usage $cpu_usage $forcelinkdelays $uselinkdelays $usewatunnels $uselatestwadata $wa_delay_solverweight $wa_bw_solverweight $wa_plr_solverweight $vlink_encapsulate $fix_current_resources $usejumboframes]
if { $multiplex_factor != {} } {
lappend fields "multiplex_factor"
......
......@@ -1875,6 +1875,23 @@ proc tbx-log {msg} {
}
}
#
# XXX quick hack.
# Enable use of jumbo frames (9K) for 10Gb and beyond links. Assumes that the
# experiment switches involved all have jumbo frames enabled.
#
proc tb-use-jumbo-frames {onoff} {
var_import ::GLOBALS::usejumboframes
if {$onoff != 0 && $onoff != 1} {
perror "\[tb-use-jumbo-frames] $onoff must be 0/1"
return
}
set usejumboframes $onoff
}
##
## BEGIN Feedback
##
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment