#
 #
 # установка: в conf t -> event manager policy имя_файла
 #
 ::cisco::eem::event_register_cli sync no skip no occurs 1  pattern .*write.* queue_priority low nice 1 maxrun 100
 
namespace import ::cisco::eem::*
 namespace import ::cisco::lib::*
 
#-------------------- hostname and variables     ------------------
 
set routername [info hostname]
 #################################################################
 #################################################################
 set main_interface "FastEthernet1/0"
 set filename "nvram:ttt.conf"
 #################################################################
 #################################################################
 #
 #-------------------   " cli open"   -------------------
 #
 if [catch {cli_open} result] {
 error $result $errorInfo
 } else {
 array set cli $result
 }
 
#--------------- end of  "cli open"   -------------------
 
action_syslog msg "save conf from: $main_interface to nvram"
 if [catch {cli_exec $cli(fd) "enable"} result] {
 error $result $errorInfo
 }
 if [catch {cli_exec $cli(fd) "show run interface $main_interface"} result] {
 error $result $errorInfo
 }
 set show_run_interface_tmp $result
 set show_run_interface [split "$show_run_interface_tmp" "\n"]
 
set len_sri [llength $show_run_interface]
 set fileId [open $filename "w"]
 set len [expr ($len_sri-3)]
 for {set x 6} {$x<$len} {incr x} {
 #action_syslog msg "+++++++++++: [lindex $show_run_interface $x]"
 puts -nonewline $fileId [lindex $show_run_interface $x]
 #if [catch {cli_exec $cli(fd) "[lindex $show_run_interface $x]"} result] {
 #	error $result $errorInfo
 #}
 }
 close $fileId
 
#
 #--------------------- cli close ------------------------
 #
 cli_close $cli(fd) $cli(tty_id)