Arc::MCC_Status Service_JavaWrapper::make_fault(Arc::Message& outmsg)
{
Arc::PayloadSOAP* outpayload = new Arc::PayloadSOAP(Arc::NS(),true);
Arc::SOAPFault* fault = outpayload->Fault();
if(fault) {
fault->Code(Arc::SOAPFault::Sender);
fault->Reason("Failed processing request");
};
outmsg.Payload(outpayload);
return Arc::MCC_Status();
}
void test1(void) {
std::cout<<"------ Testing simple file download ------"<<std::endl;
Arc::URL url("http://grid.uio.no/index.html");
Arc::NS ns;
Arc::Config c(ns);
Arc::XMLNode cfg = c;
Arc::XMLNode mgr = cfg.NewChild("ModuleManager");
Arc::XMLNode pth1 = mgr.NewChild("Path");
pth1 = "../tcp/.libs";
Arc::XMLNode pth2 = mgr.NewChild("Path");
pth2 = ".libs";
Arc::XMLNode plg1 = cfg.NewChild("Plugins");
Arc::XMLNode mcctcp = plg1.NewChild("Name");
mcctcp = "mcctcp";
Arc::XMLNode plg2 = cfg.NewChild("Plugins");
Arc::XMLNode mcchttp = plg2.NewChild("Name");
mcchttp = "mcchttp";
Arc::XMLNode chn = cfg.NewChild("Chain");
Arc::XMLNode tcp = chn.NewChild("Component");
Arc::XMLNode tcpname = tcp.NewAttribute("name");
tcpname = "tcp.client";
Arc::XMLNode tcpid = tcp.NewAttribute("id");
tcpid = "tcp";
Arc::XMLNode tcpcnt = tcp.NewChild("Connect");
Arc::XMLNode tcphost = tcpcnt.NewChild("Host");
tcphost = url.Host();
Arc::XMLNode tcpport = tcpcnt.NewChild("Port");
tcpport = Arc::tostring(url.Port());
Arc::XMLNode http = chn.NewChild("Component");
Arc::XMLNode httpname = http.NewAttribute("name");
httpname = "http.client";
Arc::XMLNode httpid = http.NewAttribute("id");
httpid = "http";
Arc::XMLNode httpentry = http.NewAttribute("entry");
httpentry = "http";
Arc::XMLNode httpnext = http.NewChild("next");
Arc::XMLNode httpnextid = httpnext.NewAttribute("id");
httpnextid = "tcp";
Arc::XMLNode httpmeth = http.NewChild("Method");
httpmeth = "GET";
Arc::XMLNode httpep = http.NewChild("Endpoint");
httpep = url.str();
std::cout<<"------ Configuration ------"<<std::endl;
std::string cfgstr;
c.GetXML(cfgstr);
std::cerr << cfgstr << std::endl;
Arc::Loader l(c);
Arc::Message request;
Arc::PayloadRaw msg;
Arc::MessageAttributes attributes;
Arc::MessageContext context;
request.Payload(&msg);
request.Attributes(&attributes);
request.Context(&context);
Arc::Message response;
//!! l["http"]->process(request,response);
std::cout<<"*** RESPONSE ***"<<std::endl;
Arc::PayloadRaw& payload =
dynamic_cast<Arc::PayloadRaw&>(*response.Payload());
for(int n = 0;n<payload.Size();++n) std::cout<<payload[n];
std::cout<<std::endl;
}
Arc::MCC_Status Service_JavaWrapper::process(Arc::Message& inmsg, Arc::Message& outmsg)
{
JNIEnv *jenv = NULL;
/* Attach to the current Java engine thread */
jvm->AttachCurrentThread((void **)&jenv, NULL);
/* Get the process function of service */
jmethodID processID = jenv->GetMethodID(serviceClass, "process", "(Lnordugrid/arc/SOAPMessage;Lnordugrid/arc/SOAPMessage;)Lnordugrid/arc/MCC_Status;");
if (processID == NULL) {
return java_error(jenv, "Cannot find process method of Java class");
}
/* convert inmsg and outmsg to Java objects */
Arc::SOAPMessage *inmsg_ptr = NULL;
Arc::SOAPMessage *outmsg_ptr = NULL;
try {
inmsg_ptr = new Arc::SOAPMessage(inmsg);
outmsg_ptr = new Arc::SOAPMessage(outmsg);
} catch(std::exception& e) { };
if(!inmsg_ptr) {
logger.msg(Arc::ERROR, "input is not SOAP");
return make_fault(outmsg);
};
if(!outmsg_ptr) {
logger.msg(Arc::ERROR, "output is not SOAP");
return make_fault(outmsg);
};
jclass JSOAPMessageClass = jenv->FindClass("nordugrid/arc/SOAPMessage");
if (JSOAPMessageClass == NULL) {
return java_error(jenv, "Cannot find SOAPMessage object");
}
/* Get the constructor of Java object */
jmethodID constructorID = jenv->GetMethodID(JSOAPMessageClass, "<init>", "(I)V");
if (constructorID == NULL) {
return java_error(jenv, "Cannot find constructor function of message");
}
/* Convert C++ object to Java objects */
jobject jinmsg = jenv->NewObject(JSOAPMessageClass, constructorID, (jlong)((long int)inmsg_ptr));
if (jinmsg == NULL) {
return java_error(jenv, "Cannot convert input message to Java object");
}
jobject joutmsg = jenv->NewObject(JSOAPMessageClass, constructorID, (jlong)((long int)outmsg_ptr));
if (jinmsg == NULL) {
return java_error(jenv, "Cannot convert output message to Java object");
}
/* Create arguments for Java process function */
jvalue args[2];
args[0].l = jinmsg;
args[1].l = joutmsg;
/* Call the process method of Java object */
jobject jmcc_status = jenv->CallObjectMethodA(serviceObj, processID, args);
if (jmcc_status == NULL) {
return java_error(jenv, "Error in call process function of Java object");
}
/* Get SWIG specific getCPtr function of Message class */
jmethodID msg_getCPtrID = jenv->GetStaticMethodID(JSOAPMessageClass, "getCPtr", "(Lnordugrid/arc/SOAPMessage;)J");
if (msg_getCPtrID == NULL) {
return java_error(jenv, "Cannot find getCPtr method of Java Message class");
}
/* Get Java MCC_Status class */
jclass JMCC_StatusClass = jenv->FindClass("nordugrid/arc/MCC_Status");
if (JMCC_StatusClass == NULL) {
logger.msg(Arc::ERROR, "Cannot find MCC_Status object");
/* Cleanup */
jvm->DetachCurrentThread();
return Arc::MCC_Status(Arc::GENERIC_ERROR);
}
/* Get SWIG specific getCPtr function of MCC_Status class */
jmethodID mcc_status_getCPtrID = jenv->GetStaticMethodID(JMCC_StatusClass, "getCPtr", "(Lnordugrid/arc/MCC_Status;)J");
if (mcc_status_getCPtrID == NULL) {
return java_error(jenv, "Cannot find getCPtr method of Java MCC_Status class");
}
/* Convert Java status object to C++ class */
jlong mcc_status_addr = jenv->CallStaticLongMethod(JMCC_StatusClass, mcc_status_getCPtrID, jmcc_status);
if (!mcc_status_addr) {
logger.msg(ERROR, "Java object returned NULL status");
return MCC_Status(GENERIC_ERROR);
}
Arc::MCC_Status status(*((Arc::MCC_Status *)(long)mcc_status_addr));
/* Convert Java output message object to C++ class */
jlong outmsg_addr = jenv->CallStaticLongMethod(JSOAPMessageClass, msg_getCPtrID, joutmsg);
Arc::SOAPMessage *outmsg_ptr2 = (Arc::SOAPMessage *)(long)outmsg_addr;
/* std::string xml;
outmsg_ptr2->Payload()->GetXML(xml);
std::cout << xml << std::endl; */
Arc::PayloadSOAP *pl = new Arc::PayloadSOAP(*(outmsg_ptr2->Payload()));
outmsg.Payload((MessagePayload *)pl);
// XXX: how to handle error?
/* Detach from the Java engine */
jvm->DetachCurrentThread();
return status;
}
int main(void) {
signal(SIGTTOU,SIG_IGN);
signal(SIGTTIN,SIG_IGN);
Arc::Logger logger(Arc::Logger::rootLogger, "Test");
Arc::LogStream logcerr(std::cerr);
Arc::Logger::rootLogger.addDestination(logcerr);
logger.msg(Arc::INFO, "Creating client side chain");
// Create client chain
Arc::XMLNode client_doc("\
<ArcConfig\
xmlns=\"http://www.nordugrid.org/schemas/ArcConfig/2007\"\
xmlns:tcp=\"http://www.nordugrid.org/schemas/ArcMCCTCP/2007\">\
<ModuleManager>\
<Path>.libs/</Path>\
<Path>../../hed/mcc/http/.libs/</Path>\
<Path>../../hed/mcc/soap/.libs/</Path>\
<Path>../../hed/mcc/tls/.libs/</Path>\
<Path>../../hed/mcc/tcp/.libs/</Path>\
<Path>../../hed/shc/.libs/</Path>\
</ModuleManager>\
<Plugins><Name>mcctcp</Name></Plugins>\
<Plugins><Name>mcctls</Name></Plugins>\
<Plugins><Name>mcchttp</Name></Plugins>\
<Plugins><Name>mccsoap</Name></Plugins>\
<Plugins><Name>arcshc</Name></Plugins>\
<Chain>\
<Component name='tcp.client' id='tcp'><tcp:Connect><tcp:Host>127.0.0.1</tcp:Host><tcp:Port>50000</tcp:Port></tcp:Connect></Component>\
<Component name='tls.client' id='tls'><next id='tcp'/>\
<!--For proxy certificate, KeyPath and CertificatePath are supposed to be the same-->\
<KeyPath>./testkey-nopass.pem</KeyPath>\
<CertificatePath>./testcert.pem</CertificatePath>\
<CACertificatePath>./testcacert.pem</CACertificatePath>\
</Component>\
<Component name='http.client' id='http'><next id='tcp'/>\
<Method>POST</Method>\
<Endpoint>/Echo</Endpoint>\
</Component>\
<Component name='soap.client' id='soap' entry='soap'>\
<next id='http'/>\
</Component>\
</Chain>\
</ArcConfig>");
Arc::Config client_config(client_doc);
if(!client_config) {
logger.msg(Arc::ERROR, "Failed to load client configuration");
return -1;
};
Arc::MCCLoader client_loader(client_config);
logger.msg(Arc::INFO, "Client side MCCs are loaded");
Arc::MCC* client_entry = client_loader["soap"];
if(!client_entry) {
logger.msg(Arc::ERROR, "Client chain does not have entry point");
return -1;
};
// for (int i = 0; i < 10; i++) {
// Create and send echo request
logger.msg(Arc::INFO, "Creating and sending request");
Arc::NS echo_ns; echo_ns["echo"]="http://www.nordugrid.org/schemas/echo";
Arc::PayloadSOAP req(echo_ns);
req.NewChild("echo").NewChild("say")="HELLO";
Arc::Message reqmsg;
Arc::Message repmsg;
reqmsg.Payload(&req);
// It is a responsibility of code initiating first Message to
// provide Context and Attributes as well.
Arc::MessageAttributes attributes_req;
Arc::MessageAttributes attributes_rep;
Arc::MessageContext context;
reqmsg.Attributes(&attributes_req);
reqmsg.Context(&context);
repmsg.Attributes(&attributes_rep);
repmsg.Context(&context);
Arc::MCC_Status status = client_entry->process(reqmsg,repmsg);
if(!status) {
logger.msg(Arc::ERROR, "Request failed");
std::cerr << "Status: " << std::string(status) << std::endl;
return -1;
};
Arc::PayloadSOAP* resp = NULL;
if(repmsg.Payload() == NULL) {
logger.msg(Arc::ERROR, "There is no response");
return -1;
};
try {
resp = dynamic_cast<Arc::PayloadSOAP*>(repmsg.Payload());
} catch(std::exception&) { };
if(resp == NULL) {
logger.msg(Arc::ERROR, "Response is not SOAP");
return -1;
};
std::string xml;
resp->GetXML(xml);
std::cout << "XML: "<< xml << std::endl;
std::cout << "Response: " << (std::string)((*resp)["echoResponse"]["hear"]) << std::endl;
//}
return 0;
}
