channel topic for htcl

[r0t3n]

Hello there.

I need a proc to be used for my htcl webpage

http://81.7.142.2:3006/onchan.htcl?chan=%23all4us

As you can see, the topic section includes all the color/bold/underline tag etc. I need a proc to recognise these, and the colors, and to change them to html color/bold/underline tags. So then the actual color of the topic can be seen on my htcl website.

btw, htcl is html with tcl commands within the html.

Thanks in advance,
Chris

[Sir_Fz]

something like this might help:

Code: Select all

proc parseBold str {
 set c 0
 set htmlstring [lindex [split $str \002] 0]
 foreach bs [lrange [split $str \002] 1 end] {
  if {$c%2 == 0} {
   lappend htmlstring "<bold>$bs</bold>"
  } {
   lappend htmlstring $bs
  }
  incr c
 }
 return [join $htmlstring]
}

this will replace bold codes with <bold> & </bold> tags.

[r0t3n]

thanks sir_fz

it returns:

Code: Select all

Channel topic: 3( ( 3( :: W elcome to # alfn 3:: B F2 s tats: http://bf2s.com/player/44315144/ 3:: A uth e quals OP 3:: A uths: 15 H osts: 16 3:: P rotection i s ON :3: ) ) 3)

Some spaces within the script where the bold tags were. Its one of these things which seem impossible to do

[Alchera]

Why not try filtering or play around with it some more?

[r0t3n]

because i have no idea of how to do it, if you could give me some starters, then i can try and make something of it

[Alchera]

Listing of Directory -man-tcl8.4-TclCmd-