Hi everyone :) Im looking for a script, that pings a given address and replies ping time / if url is up or down / in seconds. Like: !ping 173.194.69.104 bot: ping reply 1.4s or !ping 177.777.154 bot: down / not reachable if possible a configurable timeout would be appreciated. Hope someone is willin...
Hi everyone :) Hopefully someone can help me on that. Ive a small script, that needs an on/off switch for a specific command. In the following example id like to have eg: .chanset !this off like this :) proc beta_recv {from command text} { set type [lindex [split $text] 0] switch $type { "!this...
Hi @ all :) I'd like to parse -> <a href="/genre/Action">Action</a> <span>|</span> <a href="/genre/Adventure">Adventure</a> <span>|</span> <a href="/genre/Comedy">Comedy</a> the genres, like Action/Adventure/Comedy. What i have foreach line [split $content \n] { if {[re...
ok ill try to explain different. My bot can search in a mysql database. therefore ive coded a command !regex, which should support different switches, as easy as possible. 1. !regex search phrase - supporting wildcards like !regex %search% 2. the switches are like -a= and -s= Examples: !regex my%sea...
Hi everyone :) I need some kind of advice how to do the following: I'd like to use like: !regex search phrase -a=we -s=home or !regex -a=we -s=home search phrase Therefore i need a regex or an alternative to get it like $var1 = search phrase $var2 = home $var3 = we It should work in both cases, eith...
I really appreciate ur answer and im quite sure i do "understand", but im unsure how to use that on my proc. Actually it looks like: ::http::register https 443 ::tls::socket if {![catch {set http_handle [http::geturl $the_url -binary 1 -timeout $::check(timeout)]} error]} { set http_status...
Hi : Its me again ^^ Here's my code: } elseif {$http_status == "timeout"} { sendmsg # "\002\00304\[ERROR\]\002\003 \002Connection timed out - $the_url ... Retrying ..." set http_data [::http::data $http_handle] ::http::cleanup $http_handle set File [::mysql::escape [getPage $the_...
Hi everboy :) Im having a small issue and appreciate any help :) proc some:proc {nick host handle channel text} { set url [lindex [split $text] 0] set result [lindex $text 1] set token [::http::geturl $url] set content [::http::data $token] ::http::cleanup $token foreach line [split $content \n] { s...