home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Lib / or / or_init.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  1.2 KB  |  60 lines
  1. /* or_init.c: or-name initialisation */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Lib/or/RCS/or_init.c,v 6.0 1991/12/18 20:23:08 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Lib/or/RCS/or_init.c,v 6.0 1991/12/18 20:23:08 jpo Rel $
  9.  *
  10.  * $Log: or_init.c,v $
  11.  * Revision 6.0  1991/12/18  20:23:08  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include "head.h"
  19. #include "mta.h"
  20. #include "or.h"
  21.  
  22.  
  23. GlobalDomId             Myglobalname;
  24. extern  OR_ptr          loc_ortree;
  25.  
  26.  
  27. extern    void err_abrt ();
  28.  
  29. /* ---------------------  Start  Routines  -------------------------------- */
  30.  
  31.  
  32.  
  33.  
  34. /*
  35. Starts up the or package etc.
  36. */
  37.  
  38. void or_myinit()
  39. {
  40.     static  char    or_inited = 0;
  41.     OR_ptr          or = NULLOR;
  42.  
  43.     if (or_inited)
  44.         return;
  45.     or_inited++;
  46.     if (or_init() == NOTOK)
  47.         err_abrt (RP_MECH, "or_init failed");
  48.     or = or_find (loc_ortree, OR_C, NULLCP);
  49.     if (or == NULLOR)
  50.         err_abrt (RP_MECH, "or_init - no country in loc_or");
  51.     Myglobalname.global_Country = or->or_value;
  52.     or = or_find (loc_ortree, OR_ADMD, NULLCP);
  53.     if (or == NULLOR)
  54.         err_abrt (RP_MECH, "or_init - no ADMD in loc_or");
  55.     Myglobalname.global_Admin = or->or_value;
  56.     or = or_find (loc_ortree, OR_PRMD, NULLCP);
  57.     if (or != NULLOR)
  58.         Myglobalname.global_Private = or->or_value;
  59. }
  60.