Unsupported URL type "https"
    while executing
"::http::geturl [my-url index.php] "
    (procedure "page_header" line 3)
    invoked from within
"page_header"
    ("uplevel" body line 7)
    invoked from within
"uplevel 1 $body"
    (procedure "::xmlgen::runbody" line 9)
    invoked from within
"::xmlgen::runbody {
 <body>} ! {

    if { [ llength $missing_data ] == 0 && $submit } {
      generate_email_data
      generate_receipt
    } else {..."
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 [list ::xmlgen::runbody $opentag  $control $body $closetag]"
    (procedure "::xmlgen::doTag" line 6)
    invoked from within
"body ! {

    if { [ llength $missing_data ] == 0 && $submit } {
      generate_email_data
      generate_receipt
    } else {
      page_header
     ..."
    ("uplevel" body line 16)
    invoked from within
"uplevel 1 $body"
    (procedure "::xmlgen::runbody" line 9)
    invoked from within
"::xmlgen::runbody {
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<!-- generated with Tcl's xmlgen-1.4 xmlgen] -->
} ! {
  head ..."
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 [list ::xmlgen::runbody $o $ctrl $b $c]"