#!/bin/sh
#
# \
exec tclsh8.3 $0 $@

package require tdom
package require http

set server "http://www.linux-community.de"
set path "Neues/"
set url "$server/$path"

if {[catch {http::geturl $url -timeout 15000} token]} {
    puts stderr "Problem mit Netzwerk: $token"
    exit 1
}

if {[http::ncode $token] != 200} {
    puts stderr "Problem mit Server, [http::code $token]"
    exit 1
}

set doc [dom parse -html [::http::data $token]]
set root [$doc documentElement]
set node [$root selectNodes {//table[7]/tr[2]/td[2]/a}]
set text [[$node childNode] nodeValue]

puts "Neueste Nachrichten: $text"