egghelp/eggheads community

var help

2004-06-28T21:16:17-04:00

that's working - thanks alot =)

Statistics: Posted by NewzUK — Mon Jun 28, 2004 9:16 pm

var help

2004-06-28T11:33:33-04:00

Something like this should work

Code:

set str [string map {"&" "\&"} $str]

Statistics: Posted by greenbear — Mon Jun 28, 2004 11:33 am

var help

2004-06-28T08:38:33-04:00

thanks user - it's working great!

one more thing about strings (slowly getting through the list!)

sometimes when retrieving text from a website, it puts extra characters with certain characters, like this for '&':

S&P Affirms ANZ National Bank Ratings

it puts 'amp;' with the '&'
so what I'm wondering is if I can specify to remove the amp; part, if it appears in a string, like $remove(%var,amp;) would do in mIRC...
thanks again.

Statistics: Posted by NewzUK — Mon Jun 28, 2004 8:38 am

var help

2004-06-28T00:50:16-04:00

any ideas on how it could do so if all the letters are upper no matter if there are other symbols in the line?

Code:

if {![string match {*[a-z]*} $str]} {  # $str does not contain any lowercase letters}

Statistics: Posted by user — Mon Jun 28, 2004 12:50 am

var help

2004-06-27T03:52:12-04:00

Actually, dunno what I was thinking when I posted that...

But...

Change the:
Code:
} else {  set rtrold $rtr}
To just:
Code:
  set rtold $rtr}

cool got that one thanks

Statistics: Posted by NewzUK — Sun Jun 27, 2004 3:52 am

var help

2004-06-27T03:50:58-04:00

one more question if I could - with regards to 'string is upper', I've got a different style to print to the channel if the text is upper, however I've found if there are numerals or other symbols involved, it dosn't seem to work as the upper line, and sends it in the 'else' e.g.:

POWERFUL EXPLOSION HEARD IN CENTRAL BAGHDAD - REUTERS WITNESSES

did not get recognised as an 'is upper'.

any ideas on how it could do so if all the letters are upper no matter if there are other symbols in the line?

thanks.

Statistics: Posted by NewzUK — Sun Jun 27, 2004 3:50 am

var help

2004-06-27T03:46:48-04:00

Actually, dunno what I was thinking when I posted that...

But...

Change the:

Code:

} else {  set rtrold $rtr}

To just:

Code:

  set rtold $rtr}

Statistics: Posted by strikelight — Sun Jun 27, 2004 3:46 am

var help

2004-06-27T02:36:01-04:00

actually, I think I answered my own question there - just added the setting of the old var to the new one after each of the else/if's.

thanks again for the help, and will see how it goes!

Statistics: Posted by NewzUK — Sun Jun 27, 2004 2:36 am

var help

2004-06-27T02:22:42-04:00

thanks strikelight - since I posted that, I added a couple of else/elseif's to deal with some content in the $var :

if {[string is upper $rtr]} {
putserv "PRIVMSG #channel :4,4 0,4 [gettime +0]ET $rtr "
} elseif {[string match *-* $rtr]} {
putserv "PRIVMSG #Newsroom2 :7,7 1,15 [gettime +0]ET $rtr "
} else {
putserv "PRIVMSG #Newsroom2 :4,4 1,15 [gettime +0]ET $rtr "

will that mess up the:

} else {
set rtrold $rtr

? thanks again

Statistics: Posted by NewzUK — Sun Jun 27, 2004 2:22 am

Re: var help

2004-06-27T02:01:21-04:00

Hi, I made this script to retrieve website data at timed intervals, but I'm trying to make it so it will not send anything to the channel if the var $rtr hasn't changed since the last check...would appreciate any help - thanks!
Code:
    proc pub:rtr { nick uhost handle channel arg } {    set sock [egghttp:geturl http://www.myurl.com/ getrtr]    return 1}  proc getrtr {sock} {    global rtrurl    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]      foreach line [split $body \n] {    if {[string match "*52_*" $line]} {    set rtr [gettok $line 2 62]    set rtr [gettok $rtr 0 60]    set rtrurl [gettok $line 5 34]    putserv "PRIVMSG #channel :/0034,4 /0031,15 $rtr /00314,14 /003"  } }}

You will need to store a copy into a global variable and check against it then...

Code:

proc getrtr {sock} {    global rtrurl rtrold    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]    egghttp:cleanup $sock    foreach line [split $body \n] {      if {[string match "*52_*" $line]} {        set rtr [gettok $line 2 62]        set rtr [gettok $rtr 0 60]        set rtrurl [gettok $line 5 34]        if {![info exists rtrold] || ($rtr != $rtrold)} {          putserv "PRIVMSG #channel :/0034,4 /0031,15 $rtr /00314,14 /003"        } else {          set rtrold $rtr        }      }    }}

Statistics: Posted by strikelight — Sun Jun 27, 2004 2:01 am

var help

2004-06-26T22:52:25-04:00

Hi, I made this script to retrieve website data at timed intervals, but I'm trying to make it so it will not send anything to the channel if the var $rtr hasn't changed since the last check...would appreciate any help - thanks!

Code:

    proc pub:rtr { nick uhost handle channel arg } {    set sock [egghttp:geturl http://www.myurl.com/ getrtr]    return 1}  proc getrtr {sock} {    global rtrurl    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]      foreach line [split $body \n] {    if {[string match "*52_*" $line]} {    set rtr [gettok $line 2 62]    set rtr [gettok $rtr 0 60]    set rtrurl [gettok $line 5 34]    putserv "PRIVMSG #channel :/0034,4 /0031,15 $rtr /00314,14 /003"  } }}

Statistics: Posted by NewzUK — Sat Jun 26, 2004 10:52 pm