Lynx problem

[cerberus_gr]

Hello,

i have this command in my code: exec $lynx -preparsed -dump $radio(host)

if $radio(host) is down, lynx returns an error:
[18:26] Tcl error [radio:dataget]:
Looking up www.xxxx.com
Unable to locate remote host www.xxxx.com.
Alert!: Unable to connect to remote host.
lynx: Can't access startfile http://www.xxxx.com

how could I check if the host is up or not, so if it's down this procedure do not return a error?

thx

[ppslim]

Use the likes of the Tcl HTTP package.

You have full control over how errors return then.

[cerberus_gr]

I don't know this package. could you help me a little more?

My code is:

Code: Select all

proc radio:dataget { hand idx text } {
    global lynx radio
    set rfs "[open $radio(file) w]"
    puts $rfs [exec $lynx -preparsed -dump http://www.xxxx.com:$radio(port)]
    close $rfs
    return 0
}

[stdragon]

If all you want to do is get rid of the tcl error, add a catch statement:

Code: Select all

proc radio:dataget { hand idx text } {
    global lynx radio
    set rfs "[open $radio(file) w]"
    if {[catch {exec $lynx -preparsed -dump http://www.xxxx.com:$radio(port)} result]} {
        putlog "error"
    } else {
        puts $rfs $result
    }
    close $rfs
    return 0
}

Maybe instead of putlog "error", you want to put a default message into that file, indicating that the site could not be contacted.