SK3Wiki

# A variable repeater_start_time should be added to the repeater_up function in RepeaterLogic.
#
# set repeater_start_time [clock seconds]


# The function qso_warning plays a message when the
# the Repeater has been up max_qso_time. It will be played
# every minute for the time specified in warning_period.

proc qso_warning {} {
  global mycall;
  variable repeater_is_up;
  variable max_qso_time 1200;
  variable warning_period 180
  
# add this function to the every_minute check??????
  Logic::addTimerTickSubscriber $func;
  
  set epoch [clock seconds];
  
  if {repeater_is_up} {
    if {$epoch-$repeater_start_time >= $max_qso_time && $epoch-$repeater_start_time < $max_qso_time+$warning_period} {
      spellWord $mycall
      playMsg "Core" "repeater"
      playMsg "Core" "qso_time_warning"
    }
  }
}