#!/bin/sh
#
# Beispiel zum Auslesen von Webseiten
#
# \
exec tclsh $0 $@

package require http

#
# Herunterladen der Seite
#
set suchwort html
puts "Suche nach «$suchwort»"
set anfrage [ http::formatQuery Q $suchwort ]

set url "http://wiki.tcl.tk/2?"

set abfrageID [http::geturl $url$anfrage ]
if {! [ string match ok [http::status $abfrageID] ]} {

    puts stderr "Laden der Seite $url fehlgeschlagen"
    puts stderr [ http::status $abfrageID ][http::error $abfrageID]
    ::http::cleanup $abfrageID

    exit 1	
}
    
set inhalt [::http::data $abfrageID ]
::http::cleanup $abfrageID

#
# Ausdrucken aller Links
#

set inhalt [split $inhalt \n]

set anzahl 0
foreach zeile $inhalt {
    if {[regexp {<a href="([[:alnum:]./:]+?)">([[:graph:][:space:]]+?)</a>} $zeile alles url text ]} {
	puts "$text -> http://wiki.tcl.tk/$url"
	incr anzahl
    }
}
puts "\n$anzahl Links gefunden"