| |
| |
| |
|
Page: 1 2 3 4 5
Comments:
<0> [What-is] That term has not been defined.
<1> ?? timeout
<0> [What-is] That term has not been defined.
<1> http ??
<2> -timeout <ms>
<1> what would be a fair timeout be
<1> in ms
<1> 3sek ?
<1> set tok [::http::geturl -timeout 300 $url]
<1> if i want to eg. msg a user if it timeouts then how do i make it intercept it in an if sentence ?
<0> if -> http://www.tcl.tk/man/tcl8.4/TclCmd/if.htm
<2> you think it'll grab a webpage on 300ms?
<1> uhm thought so :)
<3> ;mhm
<4> Gotisch: #86 (2386 clicks) Tcl error: invalid command name "mhm"
<1> 300ms = 3sek ?
<3> ;regsub -nocase -all -- {(.+)} "test" [puts &]
<4> Gotisch: #88 (stdout) &
<3> mh
<2> 3000ms = 3sek
<5> set ncode [http::ncode $htoken]
<3> how can i call a proc with the match=
<1> oki
<3> ;regsub -nocase -all -- {(.+)} "test" [puts \1]
<4> Gotisch: #94 (stdout)
<3> ;regsub -nocase -all -- {(.+)} "test" [puts \\1]
<4> Gotisch: #95 (stdout) \1
<5> if { $ncode != 200 } { puts "error fetching url }
<3> ;regsub -nocase -all -- {(.+)} "test" [puts "&"]
<4> Gotisch: #97 (stdout) &
<3> ;regsub -nocase -all -- {(.+)} "test" [puts "\1"]
<4> Gotisch: #98 (stdout)
<2> ;regsub -nocase -all -- {(.+)} "test" \1
<4> yoe: #99 (268 clicks) Tcl:
<3> ;regsub -nocase -all -- {(.+)} "test" &
<4> Gotisch: #100 (241 clicks) Tcl: test
<3> this works
<2> ;regsub -nocase -all -- {\[(.+)\]} "te[s]t" \1
<4> yoe: #102 (2283 clicks) Tcl error: invalid command name "s"
<2> ;regsub -nocase -all -- {\[(.+)\]} "te\[s\]t" \1
<4> yoe: #103 (753 clicks) Tcl: tet
<2> ;regsub -nocase -all -- {\[(.+)\]} "te\[s\]t" \0
<4> yoe: #104 (277 clicks) Tcl: te
<3> ;regsub -nocase -all -- {(.+)} "test" [puts "\\&"]
<4> Gotisch: #105 (stdout) \&
<2> why [puts]?
<3> i just want to see if the word gets p***ed to the proc
<3> set RE {[][{}\$\s\u0100-\uffff]}
<4> Gotisch: #108 (173 clicks) Tcl: [][{}\$\s\u0100-\uffff]
<3> set substitution {[format \\\\u%04x [scan "\\&" %c]]}
<4> Gotisch: #109 (179 clicks) Tcl: [format \\\\u%04x [scan "\\&" %c]]
<3> set quoted [subst [regsub -all $RE {sometext[]{}} $substitution]]
<4> Gotisch: #110 (8925 clicks) Tcl: sometext\u005b\u005d\u007b\u007d
<3> he uses \\&
<3> set sub {[puts "\\&"]}
<4> Gotisch: #112 (176 clicks) Tcl: [puts "\\&"]
<3> ;regsub -nocase -all -- {(.+)} "test" $sub
<4> Gotisch: #113 (286 clicks) Tcl: [puts "\test"]
<3> ah
<3> with subst aroudn
<3> set sub {[puts "\&"]}
<4> Gotisch: #116 (172 clicks) Tcl: [puts "\&"]
<3> so this wont work
<3> ;[subst [regsub -nocase -all -- {(.+)} "test" $sub]]
<3> ;subst [regsub -nocase -all -- {(.+)} "test" $sub]
<4> Gotisch: #118 (stdout) &
<3> set sub {[puts "\\&"]}
<3> ;subst [regsub -nocase -all -- {(.+)} "test" $sub]
<4> Gotisch: #119 (173 clicks) Tcl: [puts "\\&"]
<4> Gotisch: #120 (stdout) est
<1> if { [catch {set a [::http::geturl -timeout 1000 $url]} result] } {
<1> putquick "PRIVMSG $chan :server timeout"
<1> } else { putquick "PRIVMSG $chan :$a output of geturl" }
<1> would that be correct ?
<1> or is it not possible to do it like that
<1> else how would i do it ?
<6> [21:04:06] [yoe PING reply]: 4mins 27secs
<6> .. ;P
<7> well
<7> after trying and trying...
<7> set environment [array get env]
<7> foreach {var valore} $environment {
<7> if ($environment=="RATTREE")
<7> puts "pippo"
<7> }
<4> tikal: #178 (266 clicks) Tcl: USERNAME nobody SHELL tclsh HOME . NAME nobody TMP . PATH . GROUP nogroup LOGNAME nobody USER nobody HOSTNAME tracy.int.network
<7> this is not yet working
<7> but what is wrong?
<2> tikal, try using {} instead of ()
<7> sorry pasted wrong
<7> ;)
<2> and, $environment is an array.. use $var or $valore
<1> if { [catch {::http::data [::http::geturl $url -timeout 1000]} tok] } {
<1> putquick "PRIVMSG $chan :error $tok"
<1> } else { putquick "PRIVMSG $chan :output $tok" ; return 0
<1> }
<1> ::http::cleanup $tok
<1> how do i make it repeat it self untill it catches the url
<8> tikal: what the heck are you trying to do?
<8> i am not exactly sure if you understand "foreach"
<8> or "if", for that matter...
<7> no i fixed it
<7> i show
<7> very simple
<7> if {[info exists env(RATTREeE)]} {
<7> # okay, it's there, use it
<7> puts "ok, la variabile presente!!!"
<7> } else {
<7> # the environment var isn't set, use a default
<7> puts "inserisci la variabile"
<7> }
<4> tikal: #206 (stdout) inserisci la variabile
<7> :)
<7> sorry
<7> can u read?
<7> or do i have to rafb
<7> ?
<7> i raf
<7> wait
<8> yes, so you just wanted to know if an environment variable was set
<7> exaclty...
<7> but in win
<7> is working
<7> while...
<7> now i'd like to have a little window
<7> appearing
<7> with a message in
<8> look at tk_messageBox
<7> ok tk_messageBox
<7> then i have a stupid path prob
<7> like i was asking today,,,
<7> couse in linux...in a bash shell
<7> i can start tcl script
<7> while in csh no
<7> and i tried to add /usr/lib
<7> ands /usr/lib64
<7> to my .cshrc
<7> but nothing changed...
<2> damn.. you could've put all these lines into one
<7> those 2 folder are the one with the tcl8.4 lib
<7> i read some info...i did in this way...
<7> set path = (/usr/lib /usr/lib64
<7> )
<7> closing the )
<7> in cshrc
<7> however tomorrow...i will check again...and if u will help...it will be really appreciated:)
<7> i am modifing a tcl script quiet esay for u ...at least i think...
<7> and this little tips u give are really apreciated:)
<7> i'll have a shower...later;)
<8> it's hard to understand what you are trying to do...
Return to
#tcl
or
Go to some related
logs:
#stocks
#beginner
#computers
#politics
#beginner
fc5 install donkey
sloving poverty
#stocks
ocale: Cannot set LC_CTYPE to default locale:
#politics
|
|