Code:

# scanner.tclpackage require httpbind PUB - !scan pScannerScrapeproc pScannerScrape {minute hour day weekday year} {    set agent [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"]    set url http://www.centralcoastonlinescanner.com/pager/filter.html    if {![catch {set token [::http::geturl $url -timeout 10000]}]} {        switch -- [::http::status $token] {            "timeout" {}            "error" {}            "ok" {                switch -- [::http::ncode $token] {                    200 {                        regexp -nocase -- {<table>(.*?)</table>} [::http::data $token] -> data                        pScannerParse $data                    }                    default {}                }            }            default {}        }        ::http::cleanup $token    } else {}    return 0}proc pScannerParse {data} {    global vScannerDatalist    foreach line [split $data \n] {        if {![regexp -nocase -- {<tr><td colspan=\"3\"><hr></td></tr>} $line]} {            set temp [string trim [regsub -all -- {\s{2,}} [regsub -all -- {(<[^>]+>)|(\t)} $line { }] { }]]            if {[string length $temp] != 0} {                lappend vScannerDatalist $temp            }        } else {lappend vScannerDatalist "--------------------------------------------------"}    }    pScannerWrite    return 0}proc pScannerWrite {} {    global vScannerDatalist    set fp [open scanner.txt w]    foreach line $vScannerDatalist {        puts $fp $line    }    close $fp    unset -nocomplain -- vScannerDatalist    return 0}putlog "scanner.tcl loaded"# eof