#!/bin/sh
#\
#exec wish "$0" "$@"

#label .l -text "$argv0 called with $argc arguments: $argv"
#pack .l

puts "$argv0 called with $argc arguments: $argv"

set svrHost localhost
set svrPort 8004
set dataDir "/oasisnt/oasis/mucla"
set dataFile "tbd"

#
# Open the socket to Oasis monitor port 
#
set svrSocket [socket  $svrHost $svrPort]

set response [gets $svrSocket]
if {[string match "tinySvr OK" $response] == 0} {
    puts "ERROR: Did not get expected prompt"
    puts "Received: $response"
    exit
}

#
# Check for exit command to stop server
#

#if {[lsearch -exact $argv "exit"] >= 0} {
#    puts $svrSocket "exit"
#    flush $svrSocket
#    close $svrSocket
#    exit
#}

#ask for data
puts $svrSocket "[lindex $argv 0]"
flush $svrSocket


# Receive the reply
set message [gets $svrSocket]
puts "Received: $message"
flush $svrSocket

close $svrSocket