?? pm5337_line_sonet_alarms.tcl
字號:
proc LINE_SONET_LO_RDI_Config {devID interface PSLURDI_enable PSLMRDI_enable UNEQRDI_enable TIURDI_enable TIMRDI_enable {stm1 -1} {tug3 -1} {tug2 -1} {tu -1}} { source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl ############################################################### ##### Configure ALL tributaries to have same alarms ##### ############################################################### # Defining block name if {$interface == 1} { set RTOP336 "LINE_SONET::LOPP::RTOP336_1" } elseif {$interface == 2} { set RTOP336 "LINE_SONET::LOPP::RTOP336_2" } if {$devID != -1} { if {$stm1 == -1 && $tug3 == -1 && $tug2 == -1 && $tu == -1} { for {set stm1 1} {$stm1 <= 4} {incr stm1} { for {set tug3 1} {$tug3 <= 3} {incr tug3} { for {set tug2 1} {$tug2 <= 7} {incr tug2} { for { set tu 1} {$tu <= 4} {incr tu} { set orig_value [admindrd $devID $RTOP336 0x1684 $stm1 $tug3 $tug2 $tu] set value [expr [expr $PSLURDI_enable << 7]|[expr $PSLMRDI_enable << 6]|\ [expr $UNEQRDI_enable << 5]|[expr $TIURDI_enable << 4]|\ [expr $TIMRDI_enable << 3]|[expr $orig_value & 0xFF00]] admindwr $devID LINE_SONET::LOPP::RTOP336_1 $value 0x1684 $stm1 $tug3 $tug2 $tu } } } } ############################################################### ##### Configure Specific Tributary ##### ############################################################### } else { set orig_value [admindrd $devID $RTOP336 0x2 $stm1 $tug3 $tug2 $tu] set value [expr [expr $PSLURDI_enable << 7]|[expr $PSLMRDI_enable << 6]|\ [expr $UNEQRDI_enable << 5]|[expr $TIURDI_enable << 4]|\ [expr $TIMRDI_enable << 3]|[expr $orig_value & 0xFF00]] admindwr $devID $RTOP336 $value 0x1684 $stm1 $tug3 $tug2 $tu } } if {$devID == -1} { puts "Configuring RDI-V alarms, see LINE_SONET_LO_RDI_Config for example <br>" } }#------------------------------------------------------------------------------# SCRIPT NAME: LINE_SONET_LO_RFI_Config# DESCRIPTION: This procedure enables the RFI consequence alarms## PARAMETERS : devID# interface - 1, 2# PSLURFI_enable - 1 (enable), 0 (disable)# PSLMRFI_enable - 1 (enable), 0 (disable)# PSLURFI_enable - 1 (enable), 0 (disable)# TIURFI_enable - 1 (enable), 0 (disable)# TIMRFI_enable - 1 (enable), 0 (disable)# stm1 - 1~4 (STS-3/STM1 #1~#4) [optional]# tug3 -1~3 (TUG3 #1~#3) [optional]# tug2 - 1~7 (TUG2 #1~#7) [optional]# tu - 1~4 (TU #1~#4) [optional]# # NOTE : 1. If no specific tributary is specified, then the alarm is# is set for ALL the tributaries.## 2. Because read-modify-write procedure is performed in this script# when devID is set to -1, this procedure will not display the# read/write sequence.##------------------------------------------------------------------------------proc LINE_SONET_LO_RFI_Config {devID interface PSLURFI_enable PSLMRFI_enable PSLURFI_enable TIURFI_enable TIMRFI_enable {stm1 -1} {tug3 -1} {tug2 -1} {tu -1}} { source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl # Defining block name if {$interface == 1} { set RTOP336 "LINE_SONET::LOPP::RTOP336_1" } elseif {$interface == 2} { set RTOP336 "LINE_SONET::LOPP::RTOP336_2" } if {$devID != -1} { ############################################################### ##### Configure all tributaries to have same alarms ##### ############################################################### if {$stm1 == -1 && $tug3 == -1 && $tug2 == -1 && $tu == -1} { for {set stm1 1} {$stm1 <= 4} {incr stm1} { for {set tug3 1} {$tug3 <= 3} {incr tug3} { for {set tug2 1} {$tug2 <= 7} {incr tug2} { for { set tu 1} {$tu <= 4} {incr tu} { set orig_value [admindrd $devID $RTOP336 0x2 $stm1 $tug3 $tug2 $tu] set value [expr [expr $PSLURFI_enable << 15]|[expr $PSLMRFI_enable << 14]|\ [expr $PSLURFI_enable << 13]|[expr $TIURFI_enable << 12]|\ [expr $TIMRFI_enable << 11]|[expr $orig_value & 0x00FF]] admindwr $devID $RTOP336 $value 0x1684 $stm1 $tug3 $tug2 $tu } } } } ############################################################### ##### Configure specified tributary ##### ############################################################### } else { set orig_value [admindrd $devID $RTOP336 0x2 $stm1 $tug3 $tug2 $tu] set value [expr [expr $PSLURFI_enable << 15]|[expr $PSLMRFI_enable << 14]|\ [expr $PSLURFI_enable << 13]|[expr $TIURFI_enable << 12]|\ [expr $TIMRFI_enable << 11]|[expr $orig_value & 0x00FF]]\ admindwr $devID $RTOP336 $value 0x1684 $stm1 $tug3 $tug2 $tu } } if {$devID == -1} { puts "Configuring RFI-V alarms, see LINE_SONET_LO_RFI_Config for example <br>" }}#------------------------------------------------------------------------------# SCRIPT NAME: LINE_SONET_LO_TAIS_Config# DESCRIPTION: This procedure enables the T-AIS consequence alarms## PARAMETERS : devID# interface - 1, 2# TU3_CONV_AIS_enable - 1 (enable), 0 (disable)# TSD_TAIS_enable - 1 (enable), 0 (disable)# TSF_TAIS_enable - 1 (enable), 0 (disable)# TTI_TAIS_enable - 1 (enable), 0 (disable)# TPDI_TAIS_enable - 1 (enable), 0 (disable)# TUNEQ_TAIS_enable - 1 (enable), 0 (disable)# TPSL_TAIS_enable - 1 (enable), 0 (disable)# TLOP_TAIS_enable - 1 (enable), 0 (disable)# TAIS_TAIS_enable - 1 (enable), 0 (disable)# LOM_TAIS_enable - 1 (enable), 0 (disable)# PAIS_TAIS_enable - 1 (enable), 0 (disable)# stm1 - 1 to 4 (STS-3/STM1 #1~#4) [optional]# tug3 -1 to 3 (TUG3 #1~#3) [optional]# tug2 - 1~7 (TUG2 #1~#7) [optional]# tu - 1~4 (TU #1~#4) [optional]# # NOTE : If no specific tributary is specified, then the alarm is# is set for ALL the tributaries.## temp: admindwr $devID subsystem::mtsb::tsb channel iaddr value stm1 tug3 tug2 tu# channel - 1 for tributary, 2 for ACFG#------------------------------------------------------------------------------proc LINE_SONET_LO_TAIS_Config {devID interface TU3_CONV_AIS_enable TSD_TAIS_enable TSF_TAIS_enable TTI_TAIS_enable TPDI_TAIS_enable TUNEQ_TAIS_enable TPSL_TAIS_enable TLOP_TAIS_enable TAIS_TAIS_enable LOM_TAIS_enable PAIS_TAIS_enable {stm1 -1} {tug3 -1} {tug2 -1} {tu -1}} { source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl ############################################################### ##### Configure ALL Tributaries to have same alarms ##### ############################################################### # Defining block name if {$interface == 1} { set SARCL "LINE_SONET::LOPP::SARCL_1" } elseif {$interface == 2} { set SARCL "LINE_SONET::LOPP::SARCL_2" } if {$stm1 == -1 && $tug3 == -1 && $tug2 == -1 && $tu == -1} { for {set stm1 1} {$stm1 <= 4} {incr stm1} { for {set tug3 1} {$tug3 <= 3} {incr tug3} { for {set tug2 1} {$tug2 <= 7} {incr tug2} { for { set tu 1} {$tu <= 4} {incr tu} { set value [expr [expr $TU3_CONV_AIS_enable << 15]| \ [expr $TSD_TAIS_enable << 10]| \ [expr $TSF_TAIS_enable << 9]| \ [expr $TTI_TAIS_enable << 8]| \ [expr $TPDI_TAIS_enable << 7]| \ [expr $TUNEQ_TAIS_enable << 6]| \ [expr $TPSL_TAIS_enable << 5]| \ [expr $TLOP_TAIS_enable << 4]| \ [expr $TAIS_TAIS_enable << 3]| \ [expr $LOM_TAIS_enable << 1]| \ [expr $PAIS_TAIS_enable << 0]] admindwr $devID $SARCL $value 0x0 $stm1 $tug3 $tug2 $tu } } } } ############################################################### ##### Configure Specific Tributary ##### ############################################################### } else { set value [expr [expr $TU3_CONV_AIS_enable << 15]| \ [expr $TSD_TAIS_enable << 10]| \ [expr $TSF_TAIS_enable << 9]| \ [expr $TTI_TAIS_enable << 8]| \ [expr $TPDI_TAIS_enable << 7]| \ [expr $TUNEQ_TAIS_enable << 6]| \ [expr $TPSL_TAIS_enable << 5]| \ [expr $TLOP_TAIS_enable << 4]| \ [expr $TAIS_TAIS_enable << 3]| \ [expr $LOM_TAIS_enable << 1]| \ [expr $PAIS_TAIS_enable << 0]] admindwr $devID $SARCL 0x0 $value $stm1 $tug3 $tug2 $tu }}#------------------------------------------------------------------------------# SCRIPT NAME: LINE_SONET_LO_DAIS_Config# DESCRIPTION: This procedure enables the D-AIS consequence alarms## PARAMETERS : devID# interface - 1, 2# OPOUT_DAISINS_enable - 1 (enabled) or 0 (disabled) # TSD_DAIS_enable - 1 (enabled) or 0 (disabled) # TSF_DAIS_enable - 1 (enabled) or 0 (disabled) # TTI_DAIS_enable - 1 (enabled) or 0 (disabled) # TPDI_DAIS_enable - 1 (enabled) or 0 (disabled) # TUNEQ_DAIS_enable - 1 (enabled) or 0 (disabled) # TPSL_DAIS_enable - 1 (enabled) or 0 (disabled) # TLOP_DAIS_enable - 1 (enabled) or 0 (disabled) # TAIS_DAIS_enable - 1 (enabled) or 0 (disabled) # LOM_DAIS_enable - 1 (enabled) or 0 (disabled) # PAIS_DAIS_enable - 1 (enabled) or 0 (disabled) # stm1 - 1 to 4 (STS-3/STM1 #1~#4) [optional]# tug3 - 1 to 3 (TUG3 #1~#3) [optional]# tug2 - 1 to 7 (TUG2 #1~#7) [optional]# tu - 1 to 4 (TU #1~#4) [optional]# # NOTE : If no specific tributary is specified, then the alarm is# is set for ALL the tributaries.## temp: admindwr $devID subsystem::mtsb::tsb channel iaddr value stm1 tug3 tug2 tu# channel - 1 for tributary, 2 for ACFG##------------------------------------------------------------------------------proc LINE_SONET_LO_DAIS_Config {devID interface OPOUT_DAISINS_enable TSD_DAIS_enable TSF_DAIS_enable TTI_DAIS_enable TPDI_DAIS_enable TUNEQ_DAIS_enable TPSL_DAIS_enable TLOP_DAIS_enable TAIS_DAIS_enable LOM_DAIS_enable PAIS_DAIS_enable {stm1 -1} {tug3 -1} {tug2 -1} {tu -1}} { source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl ############################################################### ##### Configure ALL Tributaries to have same alarms ##### ############################################################### # Defining block name if {$interface == 1} { set SARCL "LINE_SONET::LOPP::SARCL_1" } elseif {$interface == 2} { set SARCL "LINE_SONET::LOPP::SARCL_2" } if {$stm1 == -1 && $tug3 == -1 && $tug2 == -1 && $tu == -1} { for {set stm1 1} {$stm1 <= 4} {incr stm1} { for {set tug3 1} {$tug3 <= 3} {incr tug3} { for {set tug2 1} {$tug2 <= 7} {incr tug2} { for { set tu 1} {$tu <= 4} {incr tu} { set value [expr [expr $OPOUT_DAISINS_enable << 15]| \ [expr $TSD_DAIS_enable << 10]| \ [expr $TSF_DAIS_enable << 9]| \ [expr $TTI_DAIS_enable << 8]| \ [expr $TPDI_DAIS_enable << 7]| \ [expr $TUNEQ_DAIS_enable << 6]| \ [expr $TPSL_DAIS_enable << 5]| \ [expr $TLOP_DAIS_enable << 4]| \ [expr $TAIS_DAIS_enable << 3]| \ [expr $LOM_DAIS_enable << 1]| \ [expr $PAIS_DAIS_enable << 0]] admindwr $devID $SARCL $value 0x1 $stm1 $tug3 $tug2 $tu ;#2 } } } } ############################################################### ##### Configure Specific Tributary ##### ############################################################### } else { set value [expr [expr $OPOUT_DAISINS_enable << 15]| \ [expr $TSD_DAIS_enable << 10]| \ [expr $TSF_DAIS_enable << 9]| \ [expr $TTI_DAIS_enable << 8]| \ [expr $TPDI_DAIS_enable << 7]| \ [expr $TUNEQ_DAIS_enable << 6]| \ [expr $TPSL_DAIS_enable << 5]| \ [expr $TLOP_DAIS_enable << 4]| \ [expr $TAIS_DAIS_enable << 3]| \ [expr $LOM_DAIS_enable << 1]| \ [expr $PAIS_DAIS_enable << 0]] admindwr $devID $SARCL $value 0x1 $stm1 $tug3 $tug2 $tu ;#2 }}?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -