if {![isEagle]} then {
    ###########################################################################
    ############################# BEGIN Tcl ONLY ##############################
    ###########################################################################

    #
    # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is
    # NOTE: This procedure emits a message to the console.  The channel
    #       argument is the channel where the message should be written.  The
    #       string argument is the content of the message to emit.
    #       designed to emit a message to the console.  The channel argument
    #       is the channel where the message should be written.  The string
    #       argument is the content of the message to emit.
    #
    proc pageOut { channel string } {
      catch {
        puts -nonewline $channel $string; flush $channel
      }
    }

    #
    # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is
    # NOTE: This procedure emits a message to the HTTP client log.  The string
    #       designed to emit a message to the HTTP client log.  The string
    #       argument is the content of the message to emit.
    #
    proc pageLog { string } {
      catch {
        tclLog [appendArgs [pid] " : " [clock seconds] " : http : " $string]
      }
    }