quick adept client tester

adepttest.tcl

#!/usr/bin/env tclsh8.6

package require tls

proc testit {host port} {
    puts "connecting to $host $port"
    set sock [tls::socket -cipher ALL \
               -ssl2 0 \
               -ssl3 0 \
               -tls1 1 \
               -require 1 \
               -command tls_callback $host $port]

    puts "connected, handshaking"
    tls::handshake $sock

    fconfigure $sock -blocking 0 -buffering full -buffersize 4096 -translation binary    
    
    set message(type) login
    set message(mac) "00:00:00:00:00:00"
    set message(clock) [clock seconds]

    set out ""
    foreach field [lsort [array names message]] {
        append out "\t$field\t$message($field)"
    }
    set out [string range $out 1 end]
    puts "sending login message: $out"
    puts $sock [string range $out 1 end]
    flush $sock

    puts "waiting for data"
    fileevent $sock readable [list read_callback $sock]
}

proc tls_callback {args} {
    puts "tls_callback: $args"
    return 1
}

proc read_callback {sock} {
    if {[eof $sock]} {
        puts "Got EOF from server"
        set ::die 1
        return
    }

    if {[catch {set size [gets $sock line]} catchResult] == 1} {
        puts "caught an error from gets: $catchResult"
        set ::die 1
        return
    }

    if {$size < 0} {
        puts "got a readable event, but a complete line wasn't ready"
        return
    }

    puts "Got a line: $line"
}

if {!$tcl_interactive} {
    testit "piaware.flightaware.com" 1200
    vwait ::die
}