Как сделать в SVXLINK CW ID вместо голоса инфа для UB0WBV

Ответить
UB0WBV
Новый пользователь
Сообщения: 1
Зарегистрирован: Вс мар 24, 2019 11:44 am

Re: Как сделать в SVXLINK CW ID вместо голоса инфа для UB0WBV

Сообщение UB0WBV » Пн мар 25, 2019 2:02 pm

Благодарю, все работает! 73 =)

Аватара пользователя
ru0w
Пользователь
Сообщения: 32
Зарегистрирован: Сб мар 16, 2019 6:12 am
Откуда: Абакан

Как сделать в SVXLINK CW ID вместо голоса инфа для UB0WBV

Сообщение ru0w » Вс мар 24, 2019 5:44 pm

Вот выдержка с просторов интернета.

To use the CW identification, you have to change two .tcl files. They are located in /usr/share/svxling/sounds/event.d The files are RepeaterLogic.tcl and Logic.tcl

In the file Repeaterlogic.tcl you need to change some lines:

[listing]
....


proc repeater_up {reason} {
global mycall;
global active_module;
variable repeater_is_up;

set repeater_is_up 1;

if {($reason != "SQL_OPEN") && ($reason != "CTCSS_OPEN")} {
set now [clock seconds];
if {$now-$Logic::prev_ident < $Logic::min_time_between_ident} {
return;
}
set Logic::prev_ident $now;

### Add the next line #######

CW::play $mycall;

### Comment the next two lines out ###
# spellWord $mycall;
# playMsg "Core" "repeater";

playSilence 250;

if {$active_module != ""} {
playMsg "Core" "active_module";
playMsg $active_module "name";
}
}
}


#
# Executed when the repeater is deactivated
#
proc repeater_down {} {
global mycall;
variable repeater_is_up;

set repeater_is_up 0;

set now [clock seconds];
if {$now-$Logic::prev_ident < $Logic::min_time_between_ident} {
playTone 400 900 50
playSilence 100
playTone 360 900 50
playSilence 500
return;
}
set Logic::prev_ident $now;

### Add the next line ###

CW::play $mycall;

### Comment the next two lines out ###
# spellWord $mycall;
# playMsg "Core" "repeater";

playSilence 250;

#playMsg "../extra-sounds" "shutdown";
}

------------------------------------------------------------------

In the file Logic.tcl you have to make a simular change

------------------------------------------------------------------

#
# Executed when a short identification should be sent
# hour - The hour on which this identification occur
# minute - The hour on which this identification occur
#
proc send_short_ident {hour minute} {
global mycall;
variable CFG_TYPE;

### Add the next line ###

CW::play $mycall;

### Comment the next six lines out ###
# spellWord $mycall;
# if {$CFG_TYPE == "Simplex"} {
# playMsg "EchoLink" "link";
# } elseif {$CFG_TYPE == "Repeater"} {
# playMsg "EchoLink" "repeater";
# }

playSilence 500;
}


....
-----------------------------------------------------------------

Your system should be doing a lot of CW now (hi)

Ответить