# Server ping, ping servers to get lag time

# Written by Wizzu, 1-Aug-1996
# Modified on 9-Aug-1996, 23-Aug-1996, 14-Nov-1996, 28-Dec-1996


if ([$SPING_SNO]==[]) {
  ^assign SPING_SNO 3346
}

alias lsp listserverping
alias listserverping {
  xecho -level crap ### List of active server pings:
  foreach serverpingtime sping {
    xecho -level crap ### $decode($sping): $tdiff(${time() - serverpingtime[$sping]}) elapsed
  }
  xecho -level crap ### Current ping timeout is after $tdiff($serverping_timeout)
  ^assign -sping
}

alias spt serverpingtimeout
alias serverpingtimeout {
  if ([$0]) {
    if ([$strip(0123456789 $0)]==[]) {
      ^assign serverping_timeout $0
      eval xecho -levep crap ### Server ping timeout set to $tdiff($serverping_timeout)
      xecho -level crap ### The change will not affect currently active server pings.
    } {
      xecho -level crap ### Error: time must be a number, $0
      eval xecho -level crap ### Usage: ${K}spt <time in seconds> for server ping timeout
    }
  } {
    eval xecho -level crap ### Usage: ${K}spt <time in seconds> for server ping timeout
    eval xecho -levep crap ### Current timeout is $tdiff($serverping_timeout)
  }
}

alias csp clearserverping
alias clearserverping {
  if ([$0]==[last]) {
    if ([$serverpingtime[$encode($last_failed_sping)]]!=[]) {
      endserverping $last_failed_sping
      xecho -level crap ### Cleared server ping for ${last_failed_sping}.
      ^assign $last_failed_sping
    } {
      xecho -level crap ### No active server ping for ${last_failed_sping}.
    }
  } {
    if ([$1]) {
      if ([$serverpingtime[$encode($tolower($0))]]==[$1]) {
        endserverping $0
        if ([$2]==[timeout]) {xecho -level crap ### Server ping to $tolower($0) timed out \($serverping_timeout seconds\).}
      }
    } {
      if ([$0]) {
        if ([$serverpingtime[$encode($tolower($0))]]!=[]) {
          endserverping $0
          xecho -level crap ### Cleared server ping for $0.
        } {
          xecho -level crap ### No server ping active for $0.
        }
      }
    }
  }
}

alias endserverping {
  if ([$serverpingtime[$encode($tolower($0))]]!=[]) {
    ^on ^raw_irc -"$0 PONG $0 *"
    ^on #^402 $SPING_SNO -"% $0"
    ^assign -serverpingtime[$encode($tolower($0))]
  }
}

alias sp serverping
alias sping serverping
alias serverping {
  if ([$0]) {
    if ([$0]!=[$S]) {
      if ([$serverpingtime[$encode($tolower($0))]]==[]) {
        ^on ^raw_irc "$0 PONG $0 *" {
          xecho -level crap ### Server ping reply from $0, round-trip delay $tdiff(${time() - [$serverpingtime[$encode($tolower($0))]]})
          endserverping $0
        }
        ^on #^402 $SPING_SNO "% $0" {
          endserverping $0
        }
        ^assign serverpingtime[$encode($tolower($0))] $time()
        timer $serverping_timeout clearserverping $0 $time() timeout
        ${K}${K}quote PING $S $0
        xecho -level crap ### Pinging $0
        ^assign last_failed_sping $tolower($0)
      } {
        ^assign last_failed_sping $tolower($0)
        xecho -level crap ### Serverping to $tolower($0) already active\; only one allowed on each server.
        xecho -level crap ### This ping will timeout in $tdiff(${serverping_timeout + serverpingtime[$encode($tolower($0))] - time()})
        eval xecho -level crap ### Use ${K}csp last to clear this (but there might be invalid results later on).
      }
    } {
      xecho -level crap ### Support for pinging the local server will be added later.
      # add here "later"
    }
  } {
    eval xecho -level crap ### Usage: ${K}serverping <server>. Only one ping may be active at one time for each server.
  }
}

if ([$serverping_timeout]==[]) {
  # default timeout 10 minutes
  ^assign serverping_timeout 600
}


eval xecho -level crap ### ServerPing by Wizzu <wizzu@dal.net> loaded (28-Dec-1996)
eval xecho -level crap ### Usage: ${K}sp <full server name>  ${K}lsp  ${K}spt <timeout in seconds>