# NOT RUN {
#to test uncomment. First check that the host is running.
#port <- 80
#test2 <- list(
# "fruit"="apple",
# "dat_defs"="20021204/F113213.dat",
# "myimage"=list(
# "filename"="myimage.raw",
# "object"=as.raw(as.vector(mymatrix))
# ),
# "upsa"="test"
#)
#postToHost("www.molgen.mpg.de", "/~wolski/test.php4", test2,
# referer="www.test.de", port=port)
# }
Run the code above in your browser using DataLab