//
// Test for etherealize/incarnate
//

#include "hello.h"
#include <coss/CosNaming.h>

#ifdef HAVE_ANSI_CPLUSPLUS_HEADERS
#include <fstream>
#else // HAVE_ANSI_CPLUSPLUS_HEADERS
#include <fstream.h>
#endif // HAVE_ANSI_CPLUSPLUS_HEADERS

#include <mico/security/sl3utils.h>

using namespace std;

CORBA::ORB_ptr orb = CORBA::ORB::_nil();

class HelloWorld_impl
    : virtual public POA_HelloWorld
{
public:
    void hello();
};

void
HelloWorld_impl::hello()
{
    wcout << "Hello World" << endl;
    wcout << "client credentials: " << endl;
    CORBA::Object_var obj = orb->resolve_initial_references
	("TransportSecurity::SecurityCurrent");
    TransportSecurity::SecurityCurrent_var current
	= TransportSecurity::SecurityCurrent::_narrow(obj);
    assert(!CORBA::is_nil(current));
    TransportSecurity::ClientCredentials_ptr creds
	= current->client_credentials();
    MICOSL3Utils::PP::indent(&wcout);
    MICOSL3Utils::PP::print_client_credentials(&wcout, creds);
    wcout << endl;
}

int
main (int argc, char *argv[])
{
    orb = CORBA::ORB_init(argc, argv);
    CORBA::Object_var obj = orb->resolve_initial_references
	("TransportSecurity::SecurityManager");
    TransportSecurity::SecurityManager_var secman
	= TransportSecurity::SecurityManager::_narrow(obj);
    assert(!CORBA::is_nil(secman));
    TransportSecurity::CredentialsCurator_var curator
	= secman->credentials_curator();

    obj = orb->resolve_initial_references("SL3TCPIP::ArgBuilderFactory");
    SL3AQArgs::ArgBuilderFactory_var tcpip_fact
	= SL3AQArgs::ArgBuilderFactory::_narrow(obj);
    assert(!CORBA::is_nil(tcpip_fact));
    SL3TCPIP::TCPIPArgBuilder_var tcpip_builder
	= SL3TCPIP::TCPIPArgBuilder::_narrow
	(tcpip_fact->create_arg_builder(SL3CM::CU_InitiateOnly));
    assert(!CORBA::is_nil(tcpip_builder));
    SL3AQArgs::Argument_var arg = tcpip_builder->reap_args();
    TransportSecurity::CredentialsAcquirer_var acquirer
	= curator->acquire_credentials(arg);
    TransportSecurity::OwnCredentials_var tcpip_creds = acquirer->get_credentials(TRUE);
    MICOSL3Utils::PP::print_own_credentials(&wcout, tcpip_creds);

    obj = orb->resolve_initial_references("SL3TLS::ArgBuilderFactory");
    SL3AQArgs::ArgBuilderFactory_var fact
	= SL3AQArgs::ArgBuilderFactory::_narrow(obj);
    assert(!CORBA::is_nil(fact));
    SL3TLS::OpenSSLConfigArgBuilder_var builder
	= SL3TLS::OpenSSLConfigArgBuilder::_narrow
	(fact->create_arg_builder(SL3CM::CU_AcceptOnly));
    assert(!CORBA::is_nil(builder));
    CORBA::StringSeq sseq(0);
    builder->add_tcpip_acceptor_options(sseq, "localhost", 2345, 0, 0, FALSE);
    builder->add_tls_acceptor_options("ca_cert.pem", "s_cert.pem", "s_key.pem");
    builder->add_acceptor_verify_depth(1);
    SL3AQArgs::Argument_var arg2 = builder->reap_args();
    acquirer = curator->acquire_credentials(arg2);
    TransportSecurity::OwnCredentials_ptr creds = acquirer->get_credentials(TRUE);
    CORBA::String_var id = creds->creds_id();
    TransportSecurity::OwnCredentials_ptr c2 = curator->get_own_credentials(id.in());
    wcout << endl;
    MICOSL3Utils::PP::print_own_credentials(&wcout, c2);
    CORBA::Object_var poaobj = orb->resolve_initial_references("RootPOA");
    PortableServer::POA_var poa = PortableServer::POA::_narrow(poaobj);
    PortableServer::POAManager_var mgr = poa->the_POAManager();

    HelloWorld_impl* servant = new HelloWorld_impl;
    PortableServer::ObjectId_var oid = poa->activate_object(servant);
    CORBA::Object_var ref = poa->id_to_reference(oid.in());
    CORBA::Object_var nsobj = orb->resolve_initial_references
	("NameService");
    CosNaming::NamingContext_var nc = 
	CosNaming::NamingContext::_narrow (nsobj);

    if (CORBA::is_nil (nc)) {
	cerr << "oops, I cannot access the Naming Service!" << endl;
	exit (1);
    }
    CosNaming::Name name;
    name.length (1);
    name[0].id = CORBA::string_dup ("HelloServer");
    name[0].kind = CORBA::string_dup ("");
    wcout << "Binding HelloServer in the Naming Service ... " << flush;
    nc->rebind (name, ref);
    wcout << "done." << endl;

    wcout << "Running." << endl;

    mgr->activate();
    orb->run();
    return 0;
}