tmsh::begin_transaction

Description

Begins an update transaction. Any issuance of tmsh::create, tmsh::delete, and tmsh::modify prior to the next tmsh::commit_transaction are submitted as a single update. Note that as with normal transactions in the tmsh shell, a failure of any of the commands results in a rollback. You CANNOT USE the following Tcl commands inside an active transaction:

Syntax

tmsh::begin_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
       }
    }
}