Re: [Svxlink-devel] svxlink server fr_FR
Brought to you by:
sm0svx
From: Patrick C. <f1...@fr...> - 2011-06-30 12:11:37
|
Le 30/06/2011 10:44, Adi Bier a écrit : > On 28.06.2011 14:53, Patrick CARON wrote: >> Hello, >> how to create directory to break the version of the fr_FR + *. tcl >> thank you >> > Hi Patrick, > > create a directory structure > > /usr/share/svxlink/sounds/fr_FR/events.d/local > > and put a tcl-file into this directory with the functions you want to > overwrite, e.g. > > /usr/share/svxlink/sounds/fr_FR/events.d/local/locale.tcl > > proc playTime {hour minute} { > # put in your language specific code > # here > } > > Do not forget to set the DEFAULT_LANG param in your svxlink.conf to fr_FR. > > 73's de Adi, DL1HRC > > > ------------------------------------------------------------------------------ > All of the data generated in your IT infrastructure is seriously valuable. > Why? It contains a definitive record of application performance, security > threats, fraudulent activity, and more. Splunk takes this data and makes > sense of it. IT sense. And common sense. > http://p.sf.net/sfu/splunk-d2d-c2 > _______________________________________________ > Svxlink-devel mailing list > Svx...@li... > https://lists.sourceforge.net/lists/listinfo/svxlink-devel hi thank you for the information, but for the rest of the dev server. because I also edit the contents of the file paths for numbers in French fr_FR (not fr_BE or fr_CH) in the file locale.tcl: # # Say the specified two digit number (00 - 99) # proc playTwoDigitNumber {number} { if {[string length $number] != 2} { puts "*** WARNING: Function playTwoDigitNumber received a non two digit num$ return; } set first [string index $number 0]; if {($first == "0") || ($first == "O")} { playMsg "Default" $first; playMsg "Default" [string index $number 1]; } elseif {$first == "1"} { playMsg "Default" $number; } elseif {$first == "7"} { playMsg "Default" "6X"; if {[string index $number 1] == "1"} { playMsg "Default" "and"; } playMsg "Default" [expr $number - 60]; } elseif {$first == "9"} { playMsg "Default" "8X"; playMsg "Default" [expr $number - 80]; } else { playMsg "Default" "[string index $number 0]X"; if {[string index $number 1] == "1"} { playMsg "Default" "and"; } playMsg "Default" "[string index $number 1]"; } } more hours : # # Say the time specified by function arguments "hour" and "minute". # proc playTime {hour minute} { # Strip white space and leading zeros. Check ranges. if {[scan $hour "%d" hour] != 1 || $hour < 0 || $hour > 23} { error "playTime: Non digit hour or value out of range: $hour" } if {[scan $minute "%d" minute] != 1 || $minute < 0 || $minute > 59} { error "playTime: Non digit minute or value out of range: $hour" } if {[string length $hour] == 1} { playMsg "Default" [expr $hour]; } else { playTwoDigitNumber $hour; playMsg "Core" "time"; } if {$minute == 0} { return; } if {[string length $minute] == 1} { playMsg "Default" [expr $minute]; } else { playTwoDigitNumber $minute; } } -- Patrick CARON Linux n° #75163 F1smf Echolink n° 128402 |