Splitting some strings

[cvanmeer]

I have the following code:

Code: Select all

proc where {nick host hand chan text} {
 package require http

  set token [http::config -useragent "Mozilla 4.0"]
  set temp [http::geturl $url]
  set data [http::data $temp]
.............

The result is this: {Pinkeltje} moc_fild17.gat 103 313 <br>{Shinji} prt_fild08.gat 127 308 <br>{Dwedarina} moc_fild04.gat 205 331 <br>{Nevermind} pay_fild01.gat 66 257 <br>{Valentino} prontera.gat 155 214 <br>

As you can see, there are 5 users with data and I want to split the entire string so that the output is like this:

{Pinkeltje} moc_fild17.gat 103 313
{Shinji} prt_fild08.gat 127 308
{Dwedarina} moc_fild04.gat 205 331
{Nevermind} pay_fild01.gat 66 257
{Valentino} prontera.gat 155 214

So I want to display all 5 lines to the user with the following:

Code: Select all

foreach line $data {
putquick "PRIVMSG $chan :$data" }

Or something like that....can somebody help me?

thx.
Chrizz

[caesar]

Get the "package require http" outside the proc and try to [split $data \n]

[cvanmeer]

can't make it work

[stdragon]

Well here's a start for you..

Code: Select all

# http stuff goes here
regsub -all "<br>" $data "\n" data
set lines [split $data "\n"]
foreach line $lines {
  putserv "privmsg #sheep :$line"
}