#!/bin/sh
# Klient für CORBA Beispiel
# \
exec tclsh $0  ${1+"$@"}

package requir combat

# CORBA Initialisieren
puts "Initialisiere CORBA"
source beispiel.tcl
set argv [::corba::init $argv]
::combat::ir add $_ir_beispiel

#Object aus IOR
set fd [open server.ior]
set ior [string trim [read $fd]]
close $fd

if {! [regexp {^IOR:} $ior]} {
    puts stderr "Ungültige IOR : $ior"
    exit 1
}
set obj [::corba::string_to_object $ior]

# Attribute
puts "meinWert   :  [$obj einWert]"

# helloWorld
set a [clock seconds]
puts "helloWorld : [$obj helloWorld $a b]"
puts "         b : $b"