Increase TCP Profile Send Buffers

Problem this snippet solves:

This example will update all TCP profiles with low send buffers to 64k with tmsh scripting.

Code :

proc script::run {} {

    set profiles ""
   foreach obj [tmsh::get_config /ltm profile tcp all-properties] { 

        set send''buf [tmsh::get''field_value $obj send-buffer-size]
       if {$send_buf < 65535} {
           lappend profiles [tmsh::get_name $obj]


    foreach name $profiles {
       puts $name
       tmsh::modify /ltm profile tcp $name send-buffer-size 65535

    puts -nonewline "Set send-buffer-size to 65535 (y/n)? "
   flush stdout
   set response [gets stdin]
   if {$response eq "y"} {
   else {
       puts "update canceled"
Published Mar 10, 2015
Version 1.0

Was this article helpful?

No CommentsBe the first to comment