tmsh::commit_transaction

Description

Runs the commands that have been issued since the last issuance of tmsh::begin_transaction. The system validates all of the commands against the running configuration. If any command fails, the system does not apply any of the commands to the running configuration. You CANNOT USE the following Tcl commands inside an active transaction:

Syntax

tmsh::commit_transaction

Examples

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