1 #! /bin/sh
 2 # \
 3 exec tclmicosh "$0" ${1+"$@"}
 4 
 5 #
 6 # Load MICO module, if not already available
 7 #
 8 
 9 if [catch {package require tclmico}] {
10     load libtclmico[info sharedlibextension]
11 }
12 
13 source xmlBlaster.tcl
14 
15 #
16 # Initialize MICO
17 #
18 
19 eval corba::init $argv
20 
21 #
22 # Feed the interface repository with information about the AuthServer
23 # interface
24 #
25 
26 mico::ir add $_ir_xmlBlaster
27 
28 #
29 # Connect to the server
30 #
31 
32 set authServer [mico::bind IDL:org.xmlBlaster/authenticateIdl/AuthServer:1.0]
33 
34 #
35 # login()
36 #
37 
38 set xmlBlaster [$authServer login "Tcl-Gesa" "secret" "" "QOS"]
syntax highlighted by Code2HTML, v. 0.9.1