webviewer.tcl File Reference

Go to the source code of this file.

Functions/Subroutines
autoproxy::init ret	webview (type url)
ret	parser (type outvar, type tag, type end, type attr, type text)
ret	fetchurl (type url)
ret	Display (type msg)
ret	Error (type msg)
Variables
package require	htmlparse
package require	http
package require	autoproxy

---

Function Documentation

ret Display

(

type

msg

)

Definition at line 103 of file webviewer.tcl.

Referenced by TextInitialize().

                        {
    if {[string length [package provide Tk]] > 0} {
        toplevel .dlg -class Dialog
        wm title .dlg "webview output."
        text .dlg.txt -yscrollcommand {.dlg.sb set}
        scrollbar .dlg.sb -command {.dlg.txt yview}
        button .dlg.b -command {destroy .dlg} -text Exit -underline 1
        .dlg.txt insert 0.0 $msg
        bind .dlg <Control-F2> {console show}
        bind .dlg <Escape> {.dlg.b invoke}
        grid .dlg.txt .dlg.sb -sticky news
        grid .dlg.b  - -sticky e -pady {3 0} -ipadx 4
        grid rowconfigure .dlg 0 -weight 1
        grid columnconfigure .dlg 0 -weight 1
        tkwait window .dlg
    } else {
        puts $msg
    }
}

Here is the caller graph for this function:

ret Error

(

type

msg

)

Definition at line 123 of file webviewer.tcl.

Referenced by fetchurl(), and rdate().

                      {
    if {[string length [package provide Tk]] > 0} {
        tk_messageBox -title "webviewer error" -icon error -message $msg
    } else {
        puts stderr $msg
    }
    exit 1
}

Here is the caller graph for this function:

ret fetchurl

(

type

url

)

Definition at line 67 of file webviewer.tcl.

References Error(), error(), and state.

Referenced by webview().

                         {
    set html ""
    set err ""
    set tok [http::geturl $url -timeout 30000]
    if {[string equal [http::status $tok] "ok"]} {
        if {[http::ncode $tok] >= 500} {
            set err "server error: [http::code $tok]"
        } elseif {[http::ncode $tok] >= 400} {
            set err "authentication error: [http::code $tok]"
        } elseif {[http::ncode $tok] >= 300} {
            upvar \#0 $tok state
            array set meta $state(meta)
            if {[info exists meta(Location)]} {
                return [fetchurl $meta(Location)]
            } else {
                set err [http::code $tok]
            }
        } else {
            set html [http::data $tok]
        }
    } else {
        set err [http::error $tok]
    }
    http::cleanup $tok

    if {[string length $err] > 0} {
        Error $err
    }
    return $html
}

Here is the call graph for this function:

Here is the caller graph for this function:

ret parser	(	type	outvar,
		type	tag,
		type	end,
		type	attr,
		type	text
	)

Definition at line 45 of file webviewer.tcl.

References h, and p().

Referenced by webview().

                                                                        {
    upvar \#0 $outvar out
    set tag [string tolower $tag]
    set end [string length $end]
    if {$end == 0} {
        if {[string equal "hmstart" $tag]} {
            set out ""
        } elseif {[regexp {h(\d+)} $tag -> level]} {
            append out "\n\n" [string repeat * $level] " " $text
        } elseif {[lsearch -exact {p pre td} $tag] != -1} {
            append out "\n" $text
        } elseif {[lsearch -exact {a span i b} $tag] != -1} { 
            append out $text
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

autoproxy::init ret webview

(

type

url

)

Definition at line 28 of file webviewer.tcl.

References error(), fetchurl(), htmlparse, and parser().

                        {
    set html [fetchurl $url]
    if {[string length $html] > 0} {
        variable parsed ""
        htmlparse::parse -cmd [list parser [namespace current]::parsed] $html
        set parsed [htmlparse::mapEscapes $parsed]
        set parsed [regsub -all -line "\n{2,}" $parsed "\n\n"]
        Display $parsed
    } else {
        Error "error: no data available from \"$url\""
    }
}

Here is the call graph for this function:

---

Variable Documentation

package require autoproxy

Definition at line 18 of file webviewer.tcl.

package require htmlparse

Definition at line 16 of file webviewer.tcl.

Referenced by webview().

package require http

Definition at line 17 of file webviewer.tcl.