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]
       }
    }

    tmsh::begin_transaction 

    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"} {
       tmsh::commit_transaction
   }
   else {
       puts "update canceled"
       tmsh::cancel_transaction
    }
}