set availableAt [lindex $argv 0]
set fl [open [lindex $argv 1]]
set page [read $fl]
close $fl

regexp {(.*://[^/]*)} $availableAt temp2 host
regexp {(.*/)} $availableAt temp2 path

set s1 [sgmlscanner $page]
if {[sgmlscantags $s1 title /title temp]} {
    regexp {>(.*)<} $temp temp2 title
    regsub -all {"} $title {\\"} title
}

sgmlscandone $s1

set s1 [sgmlscanner $page]
while {[sgmlscantag $s1 img temp]} {
    regexp -nocase {SRC=\"([^ '\"]*)\"} $temp temp2 src
    if {[info exists src]} {
	if {[regexp {^/} $src]} {
	    set src "$host$src"
	} elseif {![regexp {://} $src]} {
	    set src "$path$src"
	}
	if {![info exists images]} {
	    lappend images $src
	} elseif {[lsearch -exact $images $src] < 0} {
	    lappend images $src
	}
    }
}

puts "{"
puts "availableAt = \"$availableAt\";"
if {[info exists title]} {
    puts "title = \"$title\";"
}
if {[info exists images]} {
    regsub -all {[{}]} $images {} images
    regsub -all " " $images "\", \"" images
    puts "images = (\"$images\");"
}
puts "}"