TAO/orbsvcs/tests/Security/Callback/server.cpp

   1 #include "ace/Log_Msg.h"
   2 #include "server_i.h"
   3 #include "ace/OS_NS_stdio.h"
   4 #include "ace/SString.h"
   5 #include "ace/Get_Opt.h"
   6
   7 const ACE_TCHAR *ior_output_file = ACE_TEXT ("server.ior");
   8 const ACE_TCHAR *cert_file = ACE_TEXT("cacert.pem");
   9
  10 int
  11 parse_args (int argc, ACE_TCHAR *argv[])
  12 {
  13   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("o:"));
  14   int c;
  15
  16   while ((c = get_opts ()) != -1)
  17     switch (c)
  18       {
  19       case 'o':
  20         ior_output_file = get_opts.opt_arg ();
  21         break;
  22
  23       case '?':
  24       default:
  25         ACE_ERROR_RETURN ((LM_ERROR,
  26                            "usage:  %s "
  27                            "-o <iorfile>"
  28                            "\n",
  29                            argv [0]),
  30                           -1);
  31       }
  32   // Indicates successful parsing of the command line
  33   return 0;
  34 }
  35
  36 int
  37 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  38 {
  39   try
  40     {
  41       ACE_TString env (ACE_TEXT("SSL_CERT_FILE="));
  42       env += cert_file;
  43       ACE_OS::putenv ( ACE_TEXT_ALWAYS_CHAR(env.c_str ()));
  44
  45       //
  46       // Initialize the ORB
  47       //
  48       CORBA::ORB_var orb =
  49         CORBA::ORB_init (argc, argv);
  50
  51       if (parse_args (argc, argv) != 0)
  52         return 1;
  53
  54       //
  55       // Get the Root POA.
  56       //
  57       CORBA::Object_var obj =
  58         orb->resolve_initial_references ("RootPOA");
  59
  60       PortableServer::POA_var poa =
  61         PortableServer::POA::_narrow (obj.in ());
  62
  63       //
  64       // Create the server, get object reference,
  65       // and create "stringified" IOR.
  66       //
  67       server_i *tmp = 0;
  68       ACE_NEW_RETURN (tmp,
  69                       server_i (orb.in ()),
  70                       -1);
  71       PortableServer::ServantBase_var theServer = tmp;
  72
  73       PortableServer::ObjectId_var oid =
  74         poa->activate_object (theServer.in ());
  75       CORBA::Object_var server_obj =
  76         poa->id_to_reference (oid.in ());
  77       CORBA::String_var server_IORString =
  78         orb->object_to_string (server_obj.in ());
  79
  80       //
  81       // Write the IOR to a file.
  82       //
  83       // Output the IOR to the <ior_output_file>
  84       FILE *output_file= ACE_OS::fopen (ior_output_file, "w");
  85       if (output_file == 0)
  86         ACE_ERROR_RETURN ((LM_ERROR,
  87                            "Cannot open output file for writing IOR\n"),
  88                             -1);
  89       ACE_OS::fprintf (output_file, "%s", server_IORString.in ());
  90       ACE_OS::fclose (output_file);
  91
  92       //
  93       // Activate the POA manager.
  94       //
  95       PortableServer::POAManager_var mgr =
  96         poa->the_POAManager ();
  97       mgr->activate ();
  98
  99       ACE_DEBUG ((LM_INFO,
 100                   ACE_TEXT ("(%P) calling orb->run () ...\n")));
 101
 102       orb->run ();
 103
 104       poa->destroy (true, true);
 105
 106       orb->destroy ();
 107     }
 108   catch (const CORBA::Exception& ex)
 109     {
 110       ex._tao_print_exception (ACE_TEXT ("Caught exception\n"));
 111
 112       return -1;
 113     }
 114
 115   return 0;
 116 }