Hallo liebe SvxLink OMs,
bekannlich kann man SvxLink so konfigurieren, dass ein Relais wahlweise mit Subtone, 1750Hz oder anderen Optionen geöffnet werden kann.
Hat schon jemand ein TCL-Script am laufen, welches in Abhänigkeit vom Öffnungsargument (z. B. 1750Hz oder Subtone) einen unterschiedlichen Begrüßungstext aufrufen kann?
73 de Joachim
Hallo Joachim,
ich selbst noch nicht. E sollte sich aber lösen lassen mit einem TCL-Skript, welches unter Berücksichtigung des locale-Konzeptes folgendes beinhaltet:
namespace eval RepeaterLogic {
#
# Executed when the repeater is activated
# reason - The reason why the repeater was activated
# SQL_CLOSE - Open on squelch, close flank
# SQL_OPEN - Open on squelch, open flank
# CTCSS_CLOSE - Open on CTCSS, squelch close flank
# CTCSS_OPEN - Open on CTCSS, squelch open flank
# TONE - Open on tone burst (always on squelch close)
# DTMF - Open on DTMF digit (always on squelch close)
# MODULE - Open on module activation
# AUDIO - Open on incoming audio (module or logic linking)
# SQL_RPT_REOPEN - Reopen on squelch after repeater down
#
sub repeater_up {reason} {
global mycall;
global active_module;
variable repeater_is_up;
set repeater_is_up 1;
if {($reason != "SQL_OPEN") && ($reason != "CTCSS_OPEN") &&
($reason != "SQL_RPT_REOPEN")} {
set now [clock seconds];
if {$now-$Logic::prev_ident < $Logic::min_time_between_ident} {
return;
}
set Logic::prev_ident $now;
spellWord $mycall;
playMsg "Core" "repeater";
playSilence 250;
if {$active_module != ""} {
playMsg "Core" "active_module";
playMsg $active_module "name";
}
}
# ab hier die Erweiterung
if {$reason == "CTCSS"} {
playMsg "welcome_ctcss";
}
if {$reason == "TONE"} {
playMsg "welcome_TONE";
}
}Die Ansagen mußt Du natürlich noch entsprechend generieren.
vy 73's de Adi, DL1HRC
Hallo Adi,
vielen Dank für die schnelle Antwort. Dein Vorschlag hat letztendlich zum Erfolg geführt!
Ich musste noch einiges ändern:
1) Die Position Deiner Erweiterung muss ein paar Zeilen weiter nach vorne, damit "active_modul" auch ausgeführt werden kann.
2) Reason für den Subton muss auf "CTCSS_CLOSE" geändert werden.
Das Script sieht nun wie folgt aus, und läuft bei DB0PBS:
namespace eval RepeaterLogic {
#
# Executed when the repeater is activated
# reason - The reason why the repeater was activated
# SQL_CLOSE - Open on squelch, close flank
# SQL_OPEN - Open on squelch, open flank
# CTCSS_CLOSE - Open on CTCSS, squelch close flank
# CTCSS_OPEN - Open on CTCSS, squelch open flank
# TONE - Open on tone burst (always on squelch close)
# DTMF - Open on DTMF digit (always on squelch close)
# MODULE - Open on module activation
# AUDIO - Open on incoming audio (module or logic linking)
# SQL_RPT_REOPEN - Reopen on squelch after repeater down
#
sub repeater_up {reason} {
global mycall;
global active_module;
variable repeater_is_up;
set repeater_is_up 1;
if {($reason != "SQL_OPEN") && ($reason != "CTCSS_OPEN") &&
($reason != "SQL_RPT_REOPEN")} {
set now [clock seconds];
if {$now-$Logic::prev_ident < $Logic::min_time_between_ident} {
return;
}
set Logic::prev_ident $now;
spellWord $mycall;
playMsg "Core" "repeater";
playSilence 250;
# ab hier die Erweiterung
if {$reason == "CTCSS_CLOSE"} {
playMsg "welcome_ctcss";
}
if {$reason == "TONE"} {
playMsg "welcome_TONE";
}
if {$active_module != ""} {
playMsg "Core" "active_module";
playMsg $active_module "name";
}
}
}Nochmals vielen Dank
Joachim