/usr/share/svxlink/modules.d/ModuleTcl.tcl.example is in svxlink-server 14.08.1-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 | ###############################################################################
#
# Tcl module implementation
#
###############################################################################
#
# This is the namespace in which all functions and variables below will exist.
# The name must match the configuration variable "NAME" in the
# [ModuleTcl] section in the configuration file. The name may be changed
# but it must be changed in both places.
#
namespace eval Tcl {
#
# Check if this module is loaded in the current logic core
#
if {![info exists CFG_ID]} {
return;
}
#
# Extract the module name from the current namespace
#
set module_name [namespace tail [namespace current]]
#
# A convenience function for printing out information prefixed by the
# module name
#
# msg - The message to print
#
proc printInfo {msg} {
variable module_name
puts "$module_name: $msg"
}
#
# A convenience function for calling an event handler
#
# ev - The event string to execute
#
proc processEvent {ev} {
variable module_name
::processEvent "$module_name" "$ev"
}
#
# Executed when this module is being activated
#
proc activateInit {} {
printInfo "Module activated"
}
#
# Executed when this module is being deactivated.
#
proc deactivateCleanup {} {
printInfo "Module deactivated"
}
#
# Executed when a DTMF digit (0-9, A-F, *, #) is received
#
# char - The received DTMF digit
# duration - The duration of the received DTMF digit
#
proc dtmfDigitReceived {char duration} {
printInfo "DTMF digit $char received with duration $duration milliseconds"
}
#
# Executed when a DTMF command is received
#
# cmd - The received DTMF command
#
proc dtmfCmdReceived {cmd} {
printInfo "DTMF command received: $cmd"
if {$cmd == "0"} {
processEvent "play_help"
} elseif {$cmd == ""} {
deactivateModule
} else {
processEvent "unknown_command $cmd"
}
}
#
# Executed when a DTMF command is received in idle mode. That is, a command is
# received when this module has not been activated first.
#
# cmd - The received DTMF command
#
proc dtmfCmdReceivedWhenIdle {cmd} {
printInfo "DTMF command received when idle: $cmd"
}
#
# Executed when the squelch open or close.
#
# is_open - Set to 1 if the squelch is open otherwise it's set to 0
#
proc squelchOpen {is_open} {
if {$is_open} {set str "OPEN"} else { set str "CLOSED"}
printInfo "The squelch is $str"
}
#
# Executed when all announcement messages has been played.
# Note that this function also may be called even if it wasn't this module
# that initiated the message playing.
#
proc allMsgsWritten {} {
printInfo "allMsgsWritten called..."
}
# end of namespace
}
#
# This file has not been truncated
#
|