##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2019-10-21/02:41-0400 btiffin
##+
#
# https.icn, read and show a secure webpage, extract title 
#
procedure main()
    local url, web, page, title

    # pull in the page
    url := "https://example.com"
    web := open(url, "m-") | stop("Can't open " || url)
    page := ""
    while page ||:= read(web) || "\n"

    # pull out any title    
    page ? {
        tab(find("<title")) & tab(find(">")) & move(1) &
        title := tab(find("</title"))
    }
    close(web)

    # display the title, if any, and then the page
    write("Page title: ", \title)
    write(page)
end