tmsh::cancel_transaction

Description

Cancels all commands that you have issued since the last issuance of tmsh::begin_transaction. You CANNOT USE the following Tcl commands inside an active transaction:

Syntax

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