Problems with Babel 1.0....

[Cla75]

Hi all...

Seems Babelfish.altavista.com have changed something...in fact the very good script babel 1.0 don't work anymore from today....

Probabily the change affects this line.... in original was...

if {[string match "*<textarea rows=3 wrap=virtual cols=56 name=q>*" $line2]} {
set text [string range $line 55 end]
puthelp "PRIVMSG $translatechan :$text"
}

Now seeing the source of the page of babelfish....i read this....

<textarea rows="6" wrap=virtual cols="28"
style="width:300"name="q">

little different now...but i can change babel tcl 1.0 for it works again?
I don't know what it means that 55 near the keyword end....anyone can help me? or...anyone can make a version 1.1 of babel tcl?

Very Tnx

[MORA]

try to change this line
if {[string match "*<textarea rows=3 wrap=virtual cols=56 name=q>*" $line2]} {
to
if {[string match "*<textarea rows="6" wrap=virtual cols="28"
style="width:300"name="q">*" $line2]} {
or
if {[string match "*<textarea rows=6 wrap=virtual cols=28
style=width:300name=q>*" $line2]} {

- not sure if line2 have stripped ", and dont have the script here ...