~mdw
/
ircbot
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Do ownpings.
[ircbot]
/
irccore.tcl
diff --git
a/irccore.tcl
b/irccore.tcl
index
5d28cef
..
04eccff
100644
(file)
--- a/
irccore.tcl
+++ b/
irccore.tcl
@@
-16,6
+16,7
@@
defset out_maxburst 6
defset out_interval 2100
defset out_lag_lag 5000
defset out_lag_very 25000
defset out_interval 2100
defset out_lag_lag 5000
defset out_lag_very 25000
+defset ownping_every 300000
defset marktime_min 300
defset marktime_join_startdelay 5000
defset marktime_min 300
defset marktime_join_startdelay 5000
@@
-263,11
+264,18
@@
proc msg_PING {p c s1} {
sendout PONG $s1
}
sendout PONG $s1
}
+proc sendownping {} {
+ global ownping_every nick
+ sendout ping $nick
+ after $ownping_every sendownping
+}
+
proc msg_001 {args} {
global muststartby_after
if {[info exists muststartby_after]} {
after cancel $muststartby_after
unset muststartby_after
proc msg_001 {args} {
global muststartby_after
if {[info exists muststartby_after]} {
after cancel $muststartby_after
unset muststartby_after
+ sendownping
connected
}
}
connected
}
}