Here is how we did it (skeleton code).
#!/opt/healthvision/cis5.8/integrator/bin/tcl
package require TclCurl
# Read in the XML Payload
set fileName [lindex $argv 0]
set f [open $fileName r]
fconfigure $f -translation binary
set xml [read $f]
close $f
set ch [curl::init] ;# Set curlHandle (ch)
set url http://159.140.46.181/MillenniumMobile/servlet/com.cerner.millenniummobile.documentation.DocumentationServlet?Action=GetFile&Path=html/Login.html
$ch configure -url $url -cookiefile “” -cookiejar “-” -headervar headers -bodyvar reply; catch {$ch perform} err
set url http://159.140.46.181/MillenniumMobile/servlet/j_security_check
$ch configure -url $url -cookiefile “” -cookiejar “-” -post 1 -postfields “j_username=name&j_password=pass” -headervar headers -bodyvar reply; catch {$ch perform} err
set url http://159.140.46.181/MillenniumMobile/servlet/com.cerner.foundation.code.CodeServlet
$ch configure -url $url -cookiefile “” -cookiejar “-” -httpheader [list “Content-Type: text/xml”] -postfields $xml -headervar headers -bodyvar reply; catch {$ch perform} err
catch {$ch cleanup} err
puts “nnreply: $replynn”
Fragment:
$ch configure -url $url -cookiefile “” -cookiejar “-” -httpheader [list “Content-Type: text/xml”] -postfields $xml -headervar headers -bodyvar reply; catch {$ch perform} err
Sample Output:
reply:
665SuccessStep returned a Success status.MaleMALE363
.
