/** irserv.cc - return the IOR for the Interface Repository. This is         **
 **             currently required for the idl2perl command that is a        **
 **             part of the COPE distribution (CORBA Perl).                  **
 ** Author    - Peter Bowen (bowen@excitehome.net)                           **
 **                                                                          **
 **                                                                          **/

/* $Id: irserv.cc 1206 2006-05-31 07:11:53Z rvosa $ */

#ifndef _VIS_INCLUDE_IR
#define _VIS_INCLUDE_IR
#endif

#include "corba.h"
#include "strvar.h"

int main(int argc, char *argv[]) {
        CORBA::ORB_ptr orb = CORBA::ORB_init(argc, argv);
        CORBA::Repository_ptr rep = CORBA::Repository::_bind();
        char *IOR = orb->object_to_string(rep);
        cout << IOR << endl;    
        return 0;
}