i figured it out and its work just great..... proc livefeed {} { set pagina "my url" set http [http::config -useragent mozilla] set http [http::geturl $pagina -timeout [expr 1000 * 10]] set html [http::data $http] putlog "upgrading livefeed." if {[lsearch [utimers] "* livefe...
Thank you for your quick reply..... proc livefeed {} { set pagina "my url" set http [http::config -useragent mozilla] set http [http::geturl $pagina -timeout [expr 1000 * 10]] set html [http::data $http] foreach line [split $html "\n"] { putlog "upgrading livefeed." if ...
hello, i have an script its check for error before rehash. proc proc_rehash { nick uhost hand chan arg } { set the_name [lindex [split $arg] 0] if {[catch {uplevel #0 [list source scripts/$the_name.tcl]} error]} { putquick "PRIVMSG $chan :Error While Loading $the_name -- Errormsg: $error" ...
[20:14] Tcl error in file 'eggdrop.conf': [20:14] missing close-brace: possible unbalanced brace in comment while executing "namespace eval incith { namespace eval google { # GOOGLE # performs a search on google. # proc google {input} { # local variab..." (file "scripts/incith-google....
hello, i have an script its check for error before rehash. proc proc_rehash { nick uhost hand chan arg } { set the_name [lindex [split $arg] 0] if {[catch {uplevel #0 [list source scripts/$the_name.tcl]} error]} { putquick "PRIVMSG $chan :Error While Loading $the_name -- Errormsg: $error" ...