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


set auto_path [linsert $auto_path 0  /usr/local/oag/apps/lib/$env(HOST_ARCH)]
set auto_path [linsert $auto_path 0 /usr/local/oag/lib_patch/$env(HOST_ARCH)]

APSStandardSetup
set args $argv

set instName "164.54.1.168"
set command ""
APSParseArguments {command instName}

set errorMessage "Usage: $argv0 -command <command>"
if {[string length $command] == 0 } {
    puts stderr $errorMessage
    exit
}

set PeerPort 1234

if {[catch {socket $instName $PeerPort} sid]} {
    puts "Error: Socket Could not be created: $sid"
    exit
}

fconfigure $sid -buffering line

puts $sid "$command"

if {[string index $command end]=="?"} {
    puts $sid "++read eoi"
    gets $sid response
    puts "$response"
}

close $sid

exit 0







