Eigene Soundausgabe

manfred · June 27, 2014 at 8:28 PM

Hallo liebe Svxlink - User,

ich hab da wieder mal ein Problem
Da ich jetzt endlich geschafft hab Svxlink wieder ans laufen zu bekommen, möchte ich für den Repeater noch eine kleine feinheit einbauen. Ich hatte das schon mal in einer Version drin gehabt, aber es war von einem anderen Repeater ein Image, deshalb find ich die datei nicht mehr wo man das eintragen muss. Es soll beim Auftasten des repeaters eine eigene Ansage von der Relaiskennung kommen, also nur wenn es mit 1750Hz aufgetastet wird. Wo muss ich die wav - Datei eintragen , damit das so läuft?
Vielleicht weis ja noch jemand wie das gemacht wird, daß wäre super. Alles andere läuft schon gut und muss nur noch in ein komplettes Gehäuse eingebaut werden dann kan der Repeater endlich in die Luft und es gibt wieder einen Echolink mehr.

Danke erst mal

Manfred

dl1hrc · June 27, 2014 at 11:17 PM

Hi Manfred,

ja, Du mußt im Namespace RepeaterLogic ansetzen (RepeaterLogic.tcl, Prozedur repeater_up {reason}, dort beim $reason==TONE).
Bsp:

Code

namespace eval RepeaterLogic {


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


  set repeater_is_up 1;


  if {($reason == "TONE") } {
    playMsg "manfreds_ansage";
  }


....
}

Display More

Nächste Woche, ok?...ist schon spät und ich habe ne lange Bahnreise hinter mir

Vy 73's de Adi, DL1HRC

manfred · June 28, 2014 at 10:25 AM

Hallo

Werd ich gleich ausprobieren und meld mich sobald es fuktioniert, damit andere es auch nutzen können. Hatte nämlich in einer IMG mit Voyager - Linux die Einstellungen von einem anderen Repeater drin und find nicht was da alles geändert worden ist, schade, es waren da so tolle Sachen mit eingebaut, aber so verteilt, daß man dafür wahrscheinlich eine extra Anleitung machen müsste, oder die Änderugen als Erweiterungen mal extra aufstellen sollte.

Manfred

dl1hrc · June 29, 2014 at 6:54 PM

Hi Manfred,

ja aber bitte immer das locale-Konzept beachten, d.h. :
- eine Datei in /usr/share/svxlink/events.d/local erstellen, z.B. ton-ansage.tcl
- bitte nicht die Original Repeaterogic.tcl ändern sonst sind Deine Änderungen beim nächsten make install weg!
- als Inhalt würde ich die Original-Prozedur aus der Repeaterogic.tcl kopieren, dann in den Namespace RepeaterLogic "einbetten" und die eigenen Änderungen vornehmen, die Datei sollte danach in etwa den folgenden Inhalt aufweisen, ich habe es mal etwas hübsch gemacht mit Kommentaren:

Code

###############################################################################
#
# RepeaterLogic event handlers
#
###############################################################################


#
# This is the namespace in which all functions below will exist. The name
# must match the corresponding section "[RepeaterLogic]" in the configuration
# file. The name may be changed but it must be changed in both places.
#
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
#
proc repeater_up {reason} {
  global mycall;
  global active_module;
  variable repeater_is_up;


  set repeater_is_up 1;


  if {$reason == "TONE"} {
    playMsg "manfreds_ansage";   # das wav-File muß dabei in 
                                 # /usr/share/svxlink/sounds/de_DE/RepeaterLogic 
                                 # liegen (für eine deutsche Umgebung)
    playSilence 300;
  }


  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";
    }
  }
}
# end of namespace
}


#
# This file has not been truncated

Display More