home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / mail / mh / 1464 < prev    next >
Encoding:
Internet Message Format  |  1993-01-05  |  26.2 KB
  1. Xref: sparky comp.mail.mh:1464 comp.protocols.kerberos:983
  2. Path: sparky!uunet!dtix!mimsy!mojo.eng.umd.edu!enterpoop.mit.edu!senator-bedfellow.mit.edu!aktis.com!jik
  3. From: jik@Aktis.COM (Jonathan I. Kamens)
  4. Newsgroups: comp.mail.mh,comp.protocols.kerberos
  5. Subject: mh 6.8 changes: Kerberos V5 & NeXT support
  6. Message-ID: <1icua0INN8r7@senator-bedfellow.MIT.EDU>
  7. Date: 5 Jan 93 21:24:16 GMT
  8. Sender: jik@athena.mit.edu (Jonathan I. Kamens)
  9. Followup-To: comp.mail.mh
  10. Organization: Aktis, Inc.
  11. Lines: 1053
  12. NNTP-Posting-Host: pit-manager.mit.edu
  13.  
  14. The patches below do four things:
  15.  
  16. 1) Add support for Kerberos V5, rather than Kerberos V4, by adding the K5POP
  17. option, which should be used instead of (rather than in addition to) the KPOP
  18. option.
  19.  
  20. 2) Clean up the Kerberos V4 configuration stuff (some of which is used for
  21. Kerberos V5 as well).  The two biggest elements in the cleanup were making some
  22. global variables that didn't need to be global local in some files, and fixing
  23. the linking order of libraries when linking against Kerberos libraries.
  24.  
  25. 3) Add support for compiling under NeXTSTEP 3 with gcc2.  This involved only a
  26. minor change to h/strings.h.
  27.  
  28. 4) Add a "dldflag" configuration parameter, defaulting to "dldflag: -pic". 
  29. This is necessary, for example, when building shared libraries using gcc2 under
  30. SunOS; in that case, it would be "dldflag: -fPIC".
  31.  
  32. I haven't updated the documentation, but the changes are straightforward.
  33.  
  34. NOTE: We're using the popper that was shipped with the Kerberos V5 beta release
  35. (after fixing it to make it actually work; eventually, we'll be posting those
  36. patches as well), not the one that's in the MH distribution.  I've patched the
  37. MH popd so that it looks like the one in the Kerberos V5 distribution and so
  38. that it compiles, but I haven't tested it.  I have, however, tested the client
  39. Kerberos patches (inc, msgchk), and they appear to work just fine.
  40.  
  41. *** 1.1    1992/12/31 20:25:48
  42. --- conf/config/mts.c    1992/12/31 21:25:44
  43. ***************
  44. *** 475,481 ****
  45.   char   *getusr () {
  46.       register char  *cp,
  47.                      *np;
  48. ! #ifdef KPOP
  49.       int uid;
  50.   #endif /* KPOP */
  51.       register struct passwd *pw;
  52. --- 475,481 ----
  53.   char   *getusr () {
  54.       register char  *cp,
  55.                      *np;
  56. ! #if defined(KPOP) || defined(K5POP)
  57.       int uid;
  58.   #endif /* KPOP */
  59.       register struct passwd *pw;
  60. ***************
  61. *** 483,493 ****
  62.       if (username[0])
  63.       return username;
  64.   
  65. ! #ifndef KPOP
  66.       if ((pw = getpwuid (getuid ())) == NULL
  67.           || pw -> pw_name == NULL
  68.           || *pw -> pw_name == NULL) {
  69. ! #else /* KPOP */
  70.       uid = getuid ();
  71.       if (uid == geteuid () && (cp = getenv ("USER")) != NULL
  72.       && (pw = getpwnam (cp)) != NULL)
  73. --- 483,493 ----
  74.       if (username[0])
  75.       return username;
  76.   
  77. ! #if !defined(KPOP) && !defined(K5POP)
  78.       if ((pw = getpwuid (getuid ())) == NULL
  79.           || pw -> pw_name == NULL
  80.           || *pw -> pw_name == NULL) {
  81. ! #else /* KPOP || K5POP */
  82.       uid = getuid ();
  83.       if (uid == geteuid () && (cp = getenv ("USER")) != NULL
  84.       && (pw = getpwnam (cp)) != NULL)
  85. ***************
  86. *** 495,501 ****
  87.       else if ((pw = getpwuid (uid)) == NULL
  88.            || pw -> pw_name == NULL
  89.            || *pw -> pw_name == '\0') {
  90. ! #endif /* KPOP */
  91.       (void) strcpy (username, "unknown");
  92.       (void) sprintf (fullname, "The Unknown User-ID (%d)", getuid ());
  93.       return username;
  94. --- 495,501 ----
  95.       else if ((pw = getpwuid (uid)) == NULL
  96.            || pw -> pw_name == NULL
  97.            || *pw -> pw_name == '\0') {
  98. ! #endif /* KPOP || K5POP */
  99.       (void) strcpy (username, "unknown");
  100.       (void) sprintf (fullname, "The Unknown User-ID (%d)", getuid ());
  101.       return username;
  102. *** 1.1    1992/12/31 19:39:55
  103. --- conf/makefiles/support/pop    1992/12/31 21:21:57
  104. ***************
  105. *** 12,17 ****
  106. --- 12,23 ----
  107.   OPTIONS    =    @(MHOPTIONS) @(POPUUMBOX) -I..
  108.   LDOPTIONS=    @(LDOPTIONS)
  109.   LDOPTLIB=    @(LDOPTLIB)
  110. + @BEGIN: KPOP
  111. + KRBLIB=        -lkrb -ldes
  112. + @END: KPOP
  113. + @BEGIN: K5POP
  114. + KRBLIB=        -lkrb5 -lcrypto -lisode -lcom_err
  115. + @END: K5POP
  116.   @BEGIN: MPOP
  117.   LDCURSES=    @(LDCURSES)
  118.   @END: MPOP
  119. ***************
  120. *** 51,57 ****
  121.   @BEGIN: STDLIB
  122.   LIBES2    =    ../../config/config.o ../../sbr/libmh.a $(LIBES1)
  123.   LDLIBS1    =    $(LIBES1) $(LDOPTLIB)
  124. ! LDLIBS2    =    $(LIBES2) ../../config/version.o $(LDOPTLIB)
  125.   @END: STDLIB
  126.   @BEGIN: SUN4SHLIB
  127.   SLIBVER    =    .@(SLIBVER)
  128. --- 57,63 ----
  129.   @BEGIN: STDLIB
  130.   LIBES2    =    ../../config/config.o ../../sbr/libmh.a $(LIBES1)
  131.   LDLIBS1    =    $(LIBES1) $(LDOPTLIB)
  132. ! LDLIBS2    =    $(LIBES2) ../../config/version.o $(KRBLIB) $(LDOPTLIB)
  133.   @END: STDLIB
  134.   @BEGIN: SUN4SHLIB
  135.   SLIBVER    =    .@(SLIBVER)
  136. ***************
  137. *** 60,66 ****
  138.   LIBES2    =    ../../config/config.o ../../sbr/libmh.so $(LIBES1)
  139.   LDLIBS1    =    $(LIBES1) $(LDOPTLIB)
  140.   LDLIBS2    =    ../../config/config.o ../../config/version.o \
  141. !         -Bdynamic @(SLDFLAG) -lmh$(SLIBVER) $(LIBES1) $(LDOPTLIB)
  142.   @END: SHAREDLIB
  143.   
  144.   LINT    =    lint
  145. --- 66,73 ----
  146.   LIBES2    =    ../../config/config.o ../../sbr/libmh.so $(LIBES1)
  147.   LDLIBS1    =    $(LIBES1) $(LDOPTLIB)
  148.   LDLIBS2    =    ../../config/config.o ../../config/version.o \
  149. !         @(DLDFLAG) @(SLDFLAG) -lmh$(SLIBVER) $(LIBES1) \
  150. !         $(KRBLIB) $(LDOPTLIB)
  151.   @END: SHAREDLIB
  152.   
  153.   LINT    =    lint
  154. *** 1.1    1992/12/31 19:51:18
  155. --- conf/makefiles/support/bboards    1992/12/31 19:52:04
  156. ***************
  157. *** 55,61 ****
  158.   LDLIBS1    =    $(LIBES1) $(LDOPTLIB)
  159.   LDLIBS2    =    $(LIBES2) $(LDOPTLIB)
  160.   LDLIBS2    =    ../../config/config.o ../../config/version.o \
  161. !         -Bdynamic @(SLDFLAG) -lmh$(SLIBVER) $(LIBES1) $(LDOPTLIB)
  162.   @END: SHAREDLIB
  163.   
  164.   LINT    =    lint
  165. --- 55,61 ----
  166.   LDLIBS1    =    $(LIBES1) $(LDOPTLIB)
  167.   LDLIBS2    =    $(LIBES2) $(LDOPTLIB)
  168.   LDLIBS2    =    ../../config/config.o ../../config/version.o \
  169. !         @(DLDFLAG) @(SLDFLAG) -lmh$(SLIBVER) $(LIBES1) $(LDOPTLIB)
  170.   @END: SHAREDLIB
  171.   
  172.   LINT    =    lint
  173. *** 1.1    1992/12/31 19:28:03
  174. --- conf/makefiles/uip    1992/12/31 21:21:16
  175. ***************
  176. *** 84,89 ****
  177. --- 84,92 ----
  178.   @BEGIN: KPOP
  179.   KRBLIB  =       -lkrb -ldes
  180.   @END: KPOP
  181. + @BEGIN: K5POP
  182. + KRBLIB=        -lkrb5 -lcrypto -lisode -lcom_err
  183. + @END: K5POP
  184.   @BEGIN: BPOP
  185.   PSHLIB    =    popsbr.o
  186.   PSHLLIBS=    popsbr.c 
  187. ***************
  188. *** 132,138 ****
  189.   @BEGIN: STDLIB
  190.   LIBES    =    ../config/config.o ../sbr/libmh.a ../mts/libmts.a \
  191.           ../zotnet/libzot.a
  192. ! LDLIBS    =    $(LIBES) ../config/version.o $(LDOPTLIB)
  193.   @END: STDLIB
  194.   @BEGIN: SUN4SHLIB
  195.   SLIBVER    =    .@(SLIBVER)
  196. --- 135,141 ----
  197.   @BEGIN: STDLIB
  198.   LIBES    =    ../config/config.o ../sbr/libmh.a ../mts/libmts.a \
  199.           ../zotnet/libzot.a
  200. ! LDLIBS    =    $(LIBES) ../config/version.o $(KRBLIB) $(HESLIB) $(LDOPTLIB)
  201.   @END: STDLIB
  202.   @BEGIN: SUN4SHLIB
  203.   SLIBVER    =    .@(SLIBVER)
  204. ***************
  205. *** 140,148 ****
  206.   @BEGIN: SHAREDLIB
  207.   LIBES    =    ../config/config.o ../sbr/libmh.so ../mts/libmts.a \
  208.           ../zotnet/libzot.a
  209. ! LDLIBES    =    ../config/config.o -Bdynamic @(SLDFLAG) -lmh$(SLIBVER) \
  210.           ../mts/libmts.a  ../zotnet/libzot.a
  211. ! LDLIBS    =    $(LDLIBES) ../config/version.o $(LDOPTLIB)
  212.   @END: SHAREDLIB
  213.   LINT    =    lint
  214.   LFLAGS    =    -bhu $(OPTIONS) $(TMAOPTS)
  215. --- 143,151 ----
  216.   @BEGIN: SHAREDLIB
  217.   LIBES    =    ../config/config.o ../sbr/libmh.so ../mts/libmts.a \
  218.           ../zotnet/libzot.a
  219. ! LDLIBES    =    ../config/config.o @(DLDFLAG) @(SLDFLAG) -lmh$(SLIBVER) \
  220.           ../mts/libmts.a  ../zotnet/libzot.a
  221. ! LDLIBS    =    $(LDLIBES) ../config/version.o $(KRBLIB) $(HESLIB) $(LDOPTLIB)
  222.   @END: SHAREDLIB
  223.   LINT    =    lint
  224.   LFLAGS    =    -bhu $(OPTIONS) $(TMAOPTS)
  225. ***************
  226. *** 568,574 ****
  227.   xinc:        inc.o scansbr.o dropsbr.o trmsbr.o \
  228.               $(POPLIB) $(TMALIB) $(LIBES)
  229.           $(LD) $(LDFLAGS) -o $@ inc.o scansbr.o dropsbr.o \
  230. !             trmsbr.o $(POPLIB) $(TMALIB) $(KRBLIB) $(HESLIB) \
  231.               $(LDLIBS) $(LDCURSES)
  232.   
  233.   l-inc:;        $(LINT) $(LFLAGS) inc.c scansbr.c \
  234. --- 571,577 ----
  235.   xinc:        inc.o scansbr.o dropsbr.o trmsbr.o \
  236.               $(POPLIB) $(TMALIB) $(LIBES)
  237.           $(LD) $(LDFLAGS) -o $@ inc.o scansbr.o dropsbr.o \
  238. !             trmsbr.o $(POPLIB) $(TMALIB) \
  239.               $(LDLIBS) $(LDCURSES)
  240.   
  241.   l-inc:;        $(LINT) $(LFLAGS) inc.c scansbr.c \
  242. ***************
  243. *** 734,741 ****
  244.   msgchk:        xmsgchk
  245.   
  246.   xmsgchk:    msgchk.o $(POPLIB) $(LIBES)
  247. !         $(LD) $(LDFLAGS) -o $@ msgchk.o $(POPLIB) \
  248. !                     $(KRBLIB) $(HESLIB) $(LDLIBS)
  249.   
  250.   l-msgchk:;    $(LINT) $(LFLAGS) msgchk.c $(POPLLIBS) $(LLIBS)
  251.   
  252. --- 737,743 ----
  253.   msgchk:        xmsgchk
  254.   
  255.   xmsgchk:    msgchk.o $(POPLIB) $(LIBES)
  256. !         $(LD) $(LDFLAGS) -o $@ msgchk.o $(POPLIB) $(LDLIBS)
  257.   
  258.   l-msgchk:;    $(LINT) $(LFLAGS) msgchk.c $(POPLLIBS) $(LLIBS)
  259.   
  260. *** 1.1    1992/12/31 19:52:28
  261. --- conf/mhconfig.c    1992/12/31 20:23:19
  262. ***************
  263. *** 91,96 ****
  264. --- 91,97 ----
  265.   static char *signl = "int";
  266.   static char *slibdir = "/usr/local/lib";
  267.   static char *slflags = "-pic";
  268. + static char *dldflag = "-Bdynamic";
  269.   static char *sprntf = NULL;
  270.   
  271.   /*   */
  272. ***************
  273. *** 132,137 ****
  274. --- 133,139 ----
  275.       "APOP", 0,    /* authenticated pop */
  276.       "BSD43", 0,    /* sgid ttys */
  277.       "KPOP", 0,     /* KERBEROS pop */
  278. +     "K5POP", 0, /* KERBEROS V5 pop */
  279.       "HESIOD", 0,
  280.       "MIME", 0,    /* multi-media extensions */
  281.       "MPOP", 0,    /* mobile pop */
  282. ***************
  283. *** 187,192 ****
  284. --- 189,195 ----
  285.               "sharedlib", &sharedlib, BD_NIL,
  286.               "signal", &signl, BD_NIL,
  287.               "slflags", &slflags, BD_NIL,
  288. +             "dldflag", &dldflag, BD_NIL,
  289.               "slibdir", &slibdir, BD_NIL,
  290.               "sprintf", &sprntf, BD_NIL,
  291.                           NULL
  292. ***************
  293. *** 433,438 ****
  294. --- 436,442 ----
  295.       fprintf (fp, "s%%@(SLIBDIR)%%%s%%g\n", slibdir);
  296.       fprintf (fp, "s%%@(SLIBVER)%%%s%%g\n", MHSLIBVER);
  297.       fprintf (fp, "s%%@(SLFLAGS)%%%s%%g\n", SVAL(slflags));
  298. +     fprintf (fp, "s%%@(DLDFLAG)%%%s%%g\n", SVAL(dldflag));
  299.       if (strcmp (sharedlib, "secure") == 0)
  300.           fprintf (fp, "s%%@(SLDFLAG)%%-L%s%%g\n",slibdir);
  301.       else
  302. *** 1.1    1993/01/04 20:15:17
  303. --- h/strings.h    1993/01/05 01:21:01
  304. ***************
  305. *** 3,10 ****
  306.   
  307.   #ifndef    _STRINGS        /* once-only... */
  308.   #define    _STRINGS
  309.   
  310. ! #ifdef AUX
  311.   #include <stdlib.h>
  312.   #endif
  313.   
  314. --- 3,10 ----
  315.   
  316.   #ifndef    _STRINGS        /* once-only... */
  317.   #define    _STRINGS
  318.   
  319. ! #if defined(AUX) || defined(NeXT)
  320.   #include <stdlib.h>
  321.   #endif
  322.   
  323. ***************
  324. *** 51,57 ****
  325.   char   *strncpy ();
  326.   #endif
  327.   
  328. ! #ifndef    SVR4
  329.   char   *getenv ();
  330.   char   *calloc (), *malloc (), *realloc ();
  331.   #endif    /* SVR4 */
  332. --- 51,57 ----
  333.   char   *strncpy ();
  334.   #endif
  335.   
  336. ! #if !(defined(SVR4)  || defined(NeXT))
  337.   char   *getenv ();
  338.   char   *calloc (), *malloc (), *realloc ();
  339.   #endif    /* SVR4 */
  340. *** 1.1    1992/12/31 20:15:28
  341. --- uip/inc.c    1992/12/31 20:24:02
  342. ***************
  343. *** 18,26 ****
  344.   #include "../h/mh.h"
  345.   #ifdef    POP
  346.   #include "../h/dropsbr.h"
  347. - #endif
  348. - #ifdef KPOP
  349. - #include <krb.h>
  350.   #endif
  351.   #ifdef HESIOD
  352.   #include <hesiod.h>
  353. --- 18,23 ----
  354. *** 1.1    1992/12/31 21:48:15
  355. --- uip/popsbr.c    1992/12/31 21:48:57
  356. ***************
  357. *** 142,148 ****
  358.   #endif    /* APOP */
  359.   
  360.   #ifndef NNTP
  361. ! #ifndef    KPOP
  362.       if ((fd1 = client (host, "tcp", POPSERVICE, rpop, response)) == NOTOK)
  363.   #else    /* KPOP */
  364.       (void) sprintf (buffer, "%s/%s", POPSERVICE, "kpop");
  365. --- 142,148 ----
  366.   #endif    /* APOP */
  367.   
  368.   #ifndef NNTP
  369. ! #if !defined(KPOP) && !defined(K5POP)
  370.       if ((fd1 = client (host, "tcp", POPSERVICE, rpop, response)) == NOTOK)
  371.   #else    /* KPOP */
  372.       (void) sprintf (buffer, "%s/%s", POPSERVICE, "kpop");
  373. *** 1.1    1992/12/31 21:48:15
  374. --- uip/pshsbr.c    1992/12/31 21:48:58
  375. ***************
  376. *** 142,148 ****
  377.   #endif    /* APOP */
  378.   
  379.   #ifndef NNTP
  380. ! #ifndef    KPOP
  381.       if ((fd1 = client (host, "tcp", POPSERVICE, rpop, response)) == NOTOK)
  382.   #else    /* KPOP */
  383.       (void) sprintf (buffer, "%s/%s", POPSERVICE, "kpop");
  384. --- 142,148 ----
  385.   #endif    /* APOP */
  386.   
  387.   #ifndef NNTP
  388. ! #if !defined(KPOP) && !defined(K5POP)
  389.       if ((fd1 = client (host, "tcp", POPSERVICE, rpop, response)) == NOTOK)
  390.   #else    /* KPOP */
  391.       (void) sprintf (buffer, "%s/%s", POPSERVICE, "kpop");
  392. *** 1.1    1992/12/31 21:04:34
  393. --- zotnet/mts/client.c    1992/12/31 21:39:01
  394. ***************
  395. *** 27,32 ****
  396. --- 27,35 ----
  397.   #endif
  398.   
  399.   #ifdef KPOP
  400. + #ifdef K5POP
  401. + "Can't use both KPOP and K5POP!"
  402. + #endif
  403.   #include <krb.h>
  404.   #include <ctype.h>
  405.   
  406. ***************
  407. *** 35,40 ****
  408. --- 38,51 ----
  409.   static KTEXT ticket = (KTEXT)NULL;
  410.   static Key_schedule schedule;
  411.   #endif    /* KPOP */
  412. + #ifdef K5POP
  413. + #include <krb5/krb5.h>
  414. + #include <krb5/ext-proto.h>
  415. + #include <ctype.h>
  416. + #endif /* K5POP */
  417. + #if defined(KPOP) || defined(K5POP)
  418. + static char *kservice;        /* "pop" if using kpop */
  419. + #endif
  420.   
  421.   #define    NOTOK    (-1)
  422.   #define    OK    0
  423. ***************
  424. *** 74,85 ****
  425.   static struct addrent *he, *hz;
  426.   static struct addrent hosts[MAXHOSTS];
  427.   
  428. - #ifdef KPOP
  429. - char krb_realm[REALM_SZ];
  430. - char *PrincipalHostname();
  431. - static char *kservice;        /* "pop" if using kpop */
  432. - #endif /* KPOP */
  433. - 
  434.   #ifdef __STDC__
  435.   static int rcaux (struct servent *, struct hostent *, int, char *);
  436.   static int getport (int, int, char *);
  437. --- 85,90 ----
  438. ***************
  439. *** 108,114 ****
  440.       register struct netent *np;
  441.   #endif
  442.       register struct servent *sp;
  443. ! #ifdef    KPOP
  444.       char *cp;
  445.   
  446.       if (cp = index (kservice = service, '/')) {    /* "pop/kpop" */
  447. --- 113,119 ----
  448.       register struct netent *np;
  449.   #endif
  450.       register struct servent *sp;
  451. ! #if defined(KPOP) || defined(K5POP)
  452.       char *cp;
  453.   
  454.       if (cp = index (kservice = service, '/')) {    /* "pop/kpop" */
  455. ***************
  456. *** 117,123 ****
  457.       }
  458.       else
  459.       kservice = NULL;    /* not using KERBEROS */
  460. ! #endif    /* KPOP */
  461.       
  462.   
  463.       if ((sp = getservbyname (service, protocol)) == NULL) {
  464. --- 122,128 ----
  465.       }
  466.       else
  467.       kservice = NULL;    /* not using KERBEROS */
  468. ! #endif    /* KPOP || K5POP */
  469.       
  470.   
  471.       if ((sp = getservbyname (service, protocol)) == NULL) {
  472. ***************
  473. *** 208,213 ****
  474. --- 213,226 ----
  475.   #ifdef KPOP
  476.       int rem;
  477.   #endif    /* KPOP */
  478. + #ifdef K5POP
  479. +      krb5_error_code rem;
  480. +      krb5_ccache ccdef;
  481. +      krb5_principal client, server;
  482. +      krb5_error *err_ret;
  483. +      register char *cp;
  484. + #endif /* K5POP */
  485. +     char *error_string = "Post office refused connection: ";
  486.   
  487.       for (ap = nets; ap < ne; ap++)
  488.       if (ap -> a_addrtype == hp -> h_addrtype && inet (hp, ap -> a_net))
  489. ***************
  490. *** 262,274 ****
  491.                  "KPOPV0.1");
  492.       if (rem != KSUCCESS) {
  493.           close(sd);
  494. !         (void) strcpy(response, "Post office refused connection: ");
  495.           (void) strcat(response, krb_err_txt[rem]);
  496.           return OOPS2;
  497.       }
  498.       }
  499.   #endif    /* KPOP */
  500.   
  501.       return sd;
  502.   }
  503.   
  504. --- 275,344 ----
  505.                  "KPOPV0.1");
  506.       if (rem != KSUCCESS) {
  507.           close(sd);
  508. !         (void) strcpy(response, error_string);
  509.           (void) strcat(response, krb_err_txt[rem]);
  510.           return OOPS2;
  511.       }
  512.       }
  513.   #endif    /* KPOP */
  514. + #ifdef K5POP
  515. +     if (kservice) {
  516. +     krb5_init_ets();
  517. + 
  518. +     if (rem = krb5_cc_default(&ccdef)) {
  519. +     krb5error:
  520. +         close(sd);
  521. +         (void) strcpy(response, error_string);
  522. +         (void) strcat(response, error_message(rem));
  523. +         return OOPS2;
  524. +     }
  525. + 
  526. +     if (rem = krb5_cc_get_principal(ccdef, &client)) {
  527. +         goto krb5error;
  528. +     }
  529. + 
  530. +     for (cp = hp->h_name; *cp; cp++) {
  531. +         if (isupper(*cp)) {
  532. +         *cp = tolower(*cp);
  533. +         }
  534. +     }
  535.   
  536. +     if (rem = krb5_sname_to_principal(hp->h_name, kservice,
  537. +                       FALSE, &server)) {
  538. +         goto krb5error;
  539. +     }
  540. + 
  541. +     rem = krb5_sendauth((krb5_pointer) &sd, "KPOPV1.0", client, server,
  542. +                 AP_OPTS_MUTUAL_REQUIRED,
  543. +                 0,    /* no checksum */
  544. +                 0,    /* no creds, use ccache instead */
  545. +                 ccdef,
  546. +                 0,    /* don't need seq # */
  547. +                 0,    /* don't need subsession key */
  548. +                 &err_ret,
  549. +                 0); /* don't need reply */
  550. +     krb5_free_principal(server);
  551. +         /* XXX It's really stupid to assume that response is */
  552. +         /* big enough to hold errors, but I wasn't the first */
  553. +         /* person to do that in this code, so I'm following  */
  554. +         /* the other guy's lead.                 */
  555. +     if (rem) {
  556. +         (void) strcpy(response, error_string);
  557. +         (void) strcat(response, error_message(rem));
  558. +         if (err_ret && err_ret->text.length) {
  559. +         (void) strcat(response, " [server says '");
  560. +         (void) strncat(response, err_ret->text.data,
  561. +                    err_ret->text.length);
  562. +         (void) strcat(response, "']");
  563. +         }
  564. +         if (err_ret) {
  565. +         krb5_free_error(err_ret);
  566. +         }
  567. +         (void) close(sd);
  568. +         return OOPS2;
  569. +     }
  570. +     }
  571. + #endif /* K5POP */
  572.       return sd;
  573.   }
  574.   
  575. ***************
  576. *** 297,306 ****
  577.           : "unknown error");
  578.       return NOTOK;
  579.       }
  580. ! #ifdef KPOP
  581.       if (kservice)    /* "pop" */
  582.       return(sd);
  583. ! #endif    /* KPOP */
  584.       if (!rproto)
  585.       return sd;
  586.   
  587. --- 367,376 ----
  588.           : "unknown error");
  589.       return NOTOK;
  590.       }
  591. ! #if defined(KPOP) || defined(K5POP)
  592.       if (kservice)    /* "pop" */
  593.       return(sd);
  594. ! #endif    /* KPOP || K5POP */
  595.       if (!rproto)
  596.       return sd;
  597.   
  598. *** 1.1    1992/12/31 20:29:21
  599. --- support/pop/popd.c    1992/12/31 21:43:23
  600. ***************
  601. *** 32,43 ****
  602.   #include <netdb.h>
  603.   #include <arpa/inet.h>
  604.   #ifdef KPOP
  605.   #include <krb.h>
  606. - 
  607. - static Key_schedule schedule;
  608. - static KTEXT_ST ticket;
  609. - static AUTH_DAT kdata;
  610.   #endif
  611.   #ifdef    SYS5
  612.   #include <fcntl.h>
  613.   #endif
  614. --- 32,48 ----
  615.   #include <netdb.h>
  616.   #include <arpa/inet.h>
  617.   #ifdef KPOP
  618. + #ifdef K5POP
  619. + "Can't use both KPOP and K5POP!"
  620. + #endif /* K5POP */
  621.   #include <krb.h>
  622.   #endif
  623. + #ifdef K5POP
  624. + #include <krb5/krb5.h>
  625. + #include <krb5/ext-proto.h>
  626. + #include <com_err.h>
  627. + #include <ctype.h>
  628. + #endif /* K5POP */
  629.   #ifdef    SYS5
  630.   #include <fcntl.h>
  631.   #endif
  632. ***************
  633. *** 79,88 ****
  634.   static struct sockaddr_in   in_socket;
  635.   static struct sockaddr_in  *isock = &in_socket;
  636.   
  637. - #ifdef KPOP
  638. - static AUTH_DAT kdata;
  639. - #endif
  640. - 
  641.   static int    chldser ();
  642.   void    padios (), padvise ();
  643.   
  644. --- 84,89 ----
  645. ***************
  646. *** 96,102 ****
  647.   char  **argv,
  648.         **envp;
  649.   {
  650. ! #ifdef KPOP
  651.       int     i;
  652.   #else
  653.       int     fd,
  654. --- 97,103 ----
  655.   char  **argv,
  656.         **envp;
  657.   {
  658. ! #if defined(KPOP) || defined(K5POP)
  659.       int     i;
  660.   #else
  661.       int     fd,
  662. ***************
  663. *** 107,113 ****
  664.                          *osock = &out_socket;
  665.   #endif
  666.   
  667. ! #ifdef KPOP
  668.       i = sizeof(in_socket);
  669.       if (getpeername(0, &in_socket, &i) < 0)
  670.         padios("getpeername", "bad status");
  671. --- 108,114 ----
  672.                          *osock = &out_socket;
  673.   #endif
  674.   
  675. ! #if defined(KPOP) || defined(K5POP)
  676.       i = sizeof(in_socket);
  677.       if (getpeername(0, &in_socket, &i) < 0)
  678.         padios("getpeername", "bad status");
  679. ***************
  680. *** 121,127 ****
  681.       arginit (argv);
  682.       envinit ();
  683.   
  684. ! #ifndef KPOP
  685.   #ifdef    RESTART
  686.       for (;;) {
  687.       char    reason[BUFSIZ];
  688. --- 122,128 ----
  689.       arginit (argv);
  690.       envinit ();
  691.   
  692. ! #if !defined(KPOP) && !defined(K5POP)
  693.   #ifdef    RESTART
  694.       for (;;) {
  695.       char    reason[BUFSIZ];
  696. ***************
  697. *** 192,202 ****
  698.       (void) signal (SIGCHLD, chldser);
  699.   #endif    /* SIGCHLD */
  700.       (void) listen (sd, SOMAXCONN);
  701. ! #endif /* KPOP */
  702.   #ifdef    FAST
  703.       popinit ();
  704.   #endif    /* FAST */
  705. ! #ifndef KPOP
  706.       for (;;) {
  707.       int     i = sizeof *osock;
  708.   
  709. --- 193,203 ----
  710.       (void) signal (SIGCHLD, chldser);
  711.   #endif    /* SIGCHLD */
  712.       (void) listen (sd, SOMAXCONN);
  713. ! #endif /* ! (KPOP || K5POP) */
  714.   #ifdef    FAST
  715.       popinit ();
  716.   #endif    /* FAST */
  717. ! #if !defined(KPOP) && !defined(K5POP)
  718.       for (;;) {
  719.       int     i = sizeof *osock;
  720.   
  721. ***************
  722. *** 210,216 ****
  723.   #ifdef    FAST
  724.       popassert ();
  725.   #endif    /* FAST */
  726. ! #ifndef KPOP
  727.       switch (fork ()) {
  728.           case OK: 
  729.           (void) close (sd);
  730. --- 211,217 ----
  731.   #ifdef    FAST
  732.       popassert ();
  733.   #endif    /* FAST */
  734. ! #if !defined(KPOP) && !defined(K5POP)
  735.       switch (fork ()) {
  736.           case OK: 
  737.           (void) close (sd);
  738. ***************
  739. *** 248,253 ****
  740. --- 249,268 ----
  741.       char instance[INST_SZ];
  742.       char version[9];
  743.       char user[ANAME_SZ];
  744. +     KTEXT_ST ticket;
  745. +     Key_schedule schedule;
  746. +     AUTH_DAT kdata;
  747. + #endif
  748. + #ifdef K5POP
  749. +     int retval;
  750. +     int sock = 0;
  751. +     krb5_principal server, ext_client;
  752. +     krb5_data *tmpdata;
  753. +     char user[100]; /* I can't find anywhere in the V5 sources a       */
  754. +             /* constant that sets the maximum length of a      */
  755. +             /* component in a principal. XXX I'm assuming that */
  756. +             /* there's nobody out there with a username longer */
  757. +             /* than 99 characters.  So shoot me.               */
  758.   #endif
  759.   
  760.       closelog ();
  761. ***************
  762. *** 288,296 ****
  763.         kpop (0, 1, user, (hp ? hp -> h_name : NULLCP), 0);
  764.       }
  765.   #else
  766.       pop (0, 1, sin -> sin_family == AF_INET && port < IPPORT_RESERVED && hp,
  767.           hp ? hp -> h_name : NULLCP);
  768. ! #endif
  769.   }
  770.       
  771.   /*   */
  772. --- 303,349 ----
  773.         kpop (0, 1, user, (hp ? hp -> h_name : NULLCP), 0);
  774.       }
  775.   #else
  776. + #ifdef K5POP
  777. +     krb5_init_ets();
  778. + 
  779. +     if (retval = krb5_sname_to_principal(myhost, "pop", KRB5_NT_SRV_HST,
  780. +                      &server)) {
  781. +     padvise(NULLCP, LOG_ERR,
  782. +         "server mis-configured, can't get principal--%s",
  783. +         error_message(retval));
  784. +     kpop(0, 1, NULLCP, NULLCP, retval);
  785. +     return;
  786. +     }
  787. + 
  788. +     if (retval = krb5_recvauth((krb5_pointer)&sock,
  789. +                    "KPOPV1.0",
  790. +                    server,
  791. +                    0,    /* ignore peer address */
  792. +                    0, 0, 0,    /* no fetchfrom, keyproc or arg */
  793. +                    0,    /* default rc type */
  794. +                    0,    /* don't need seq number */
  795. +                    &ext_client,
  796. +                    0, 0    /* don't care about ticket or
  797. +                        authenticator */
  798. +                    )) {
  799. +     padvise(NULLCP, LOG_INFO, "bad kerberos data, not ok'ing");
  800. +     kpop(0, 1, NULLCP, NULLCP, retval);
  801. +     return;
  802. +     }
  803. +     krb5_free_principal(server);
  804. + 
  805. +     tmpdata = krb5_princ_component(ext_client, 0);
  806. +     if (tmpdata->length >= sizeof(user)) {
  807. +     tmpdata->length - sizeof(user) - 1;
  808. +     }
  809. +     strncpy(user, tmpdata->data, tmpdata->length);
  810. +     user[tmpdata->length] = '\0';
  811. +     kpop(0, 1, user, (hp ? hp->h_name : NULLCP), 0);
  812. + #else
  813.       pop (0, 1, sin -> sin_family == AF_INET && port < IPPORT_RESERVED && hp,
  814.           hp ? hp -> h_name : NULLCP);
  815. ! #endif /* K5POP */
  816. ! #endif /* KPOP */
  817.   }
  818.       
  819.   /*   */
  820. ***************
  821. *** 342,348 ****
  822.   /*   */
  823.   
  824.   static  envinit () {
  825. ! #ifndef KPOP
  826.       int     i,
  827.               sd;
  828.   
  829. --- 395,401 ----
  830.   /*   */
  831.   
  832.   static  envinit () {
  833. ! #if !defined(KPOP) && !defined(K5POP)
  834.       int     i,
  835.               sd;
  836.   
  837. ***************
  838. *** 381,387 ****
  839.   
  840.       for (sd = 3; sd < nbits; sd++)
  841.       (void) close (sd);
  842. ! #endif /* KPOP */
  843.   
  844.       (void) signal (SIGPIPE, SIG_IGN);
  845.   
  846. --- 434,440 ----
  847.   
  848.       for (sd = 3; sd < nbits; sd++)
  849.       (void) close (sd);
  850. ! #endif /* ! (KPOP || K5POP) */
  851.   
  852.       (void) signal (SIGPIPE, SIG_IGN);
  853.   
  854. ***************
  855. *** 398,404 ****
  856.   
  857.   /*   */
  858.   
  859. ! #ifndef KPOP
  860.   
  861.   /* ARGSUSED */
  862.   
  863. --- 451,457 ----
  864.   
  865.   /*   */
  866.   
  867. ! #if !defined(KPOP) && !defined(K5POP)
  868.   
  869.   /* ARGSUSED */
  870.   
  871. ***************
  872. *** 420,426 ****
  873.   }
  874.   
  875.   #endif /* SIGCHLD */
  876. ! #endif /* KPOP */
  877.   
  878.   /*   */
  879.   
  880. --- 473,479 ----
  881.   }
  882.   
  883.   #endif /* SIGCHLD */
  884. ! #endif /* ! (KPOP || K5POP) */
  885.   
  886.   /*   */
  887.   
  888. *** 1.1    1992/12/31 20:29:21
  889. --- support/pop/popser.c    1992/12/31 21:04:19
  890. ***************
  891. *** 22,29 ****
  892. --- 22,38 ----
  893.   #include <sys/types.h>
  894.   #include <sys/stat.h>
  895.   #ifdef KPOP
  896. + #ifdef K5POP
  897. + "Can't use both KPOP and K5POP!"
  898. + #endif
  899.   #include <krb.h>
  900.   #endif    /* KPOP */
  901. + #ifdef K5POP
  902. + #include <krb5/krb5.h>
  903. + #include <krb5/ext-proto.h>
  904. + #include <com_err.h>
  905. + #include <ctype.h>
  906. + #endif /* K5POP */
  907.   #ifdef    SYS5
  908.   #include <fcntl.h>
  909.   #endif    /* SYS5 */
  910. ***************
  911. *** 313,319 ****
  912.   
  913.   /*   */
  914.   
  915. ! #ifdef KPOP
  916.   static char *kusername;
  917.   
  918.   kpop (in, out, principal, rhost, auth)
  919. --- 322,328 ----
  920.   
  921.   /*   */
  922.   
  923. ! #if defined(KPOP) || defined(K5POP)
  924.   static char *kusername;
  925.   
  926.   kpop (in, out, principal, rhost, auth)
  927. ***************
  928. *** 340,352 ****
  929.       mts_init (myname);
  930.   
  931.       hostname = rhost;
  932. ! #ifdef KPOP
  933.       rproto = 1;
  934.       (void) sprintf (server, "%s KPOP server", myhost);
  935.   #else
  936.       rproto = priv;
  937.       (void) sprintf (server, "%s server", priv ? "RPOP" : "POP");
  938. ! #endif    /* KPOP */
  939.   
  940.       if ((input = fdopen (in, "r")) == NULL
  941.           || (output = fdopen (out, "w")) == NULL) {/* you lose big */
  942. --- 349,361 ----
  943.       mts_init (myname);
  944.   
  945.       hostname = rhost;
  946. ! #if defined(KPOP) || defined(K5POP)
  947.       rproto = 1;
  948.       (void) sprintf (server, "%s KPOP server", myhost);
  949.   #else
  950.       rproto = priv;
  951.       (void) sprintf (server, "%s server", priv ? "RPOP" : "POP");
  952. ! #endif    /* KPOP || K5POP */
  953.   
  954.       if ((input = fdopen (in, "r")) == NULL
  955.           || (output = fdopen (out, "w")) == NULL) {/* you lose big */
  956. ***************
  957. *** 354,369 ****
  958.       return;
  959.       }
  960.       (void) signal (SIGPIPE, pipeser);
  961. ! #ifdef KPOP
  962.       if (principal == NULLCP) {
  963.       char buf[512];
  964.       strcpy(buf,  "Authentication failed: ");
  965.       strcat(buf, krb_err_txt[auth]);
  966.       (void) respond (NOTOK, buf);
  967.       return;
  968.       }
  969.       kusername = principal;
  970. ! #endif    /* KPOP */
  971.   
  972.   #ifdef    DPOP
  973.       if ((pw = getpwnam (POPUID)) == NULL || !setpwinfo (pw, POPDB, 1)) {
  974. --- 363,382 ----
  975.       return;
  976.       }
  977.       (void) signal (SIGPIPE, pipeser);
  978. ! #if defined(KPOP) || defined(K5POP)
  979.       if (principal == NULLCP) {
  980.       char buf[512];
  981.       strcpy(buf,  "Authentication failed: ");
  982. + #ifdef KPOP
  983.       strcat(buf, krb_err_txt[auth]);
  984. + #else
  985. +     strcat(buf, error_message(auth));
  986. + #endif
  987.       (void) respond (NOTOK, buf);
  988.       return;
  989.       }
  990.       kusername = principal;
  991. ! #endif    /* KPOP || K5POP */
  992.   
  993.   #ifdef    DPOP
  994.       if ((pw = getpwnam (POPUID)) == NULL || !setpwinfo (pw, POPDB, 1)) {
  995. ***************
  996. *** 425,431 ****
  997.   register char  **vec;
  998.   {
  999.       make_lower (username, vec[1]);
  1000. ! #ifdef KPOP
  1001.       if (!strcmp(username, kusername))
  1002.         return respond (OK, "Kerberos authentication succeeded. Send username as password (%s)", username);
  1003.       else {
  1004. --- 438,444 ----
  1005.   register char  **vec;
  1006.   {
  1007.       make_lower (username, vec[1]);
  1008. ! #if defined(KPOP) || defined(K5POP)
  1009.       if (!strcmp(username, kusername))
  1010.         return respond (OK, "Kerberos authentication succeeded. Send username as password (%s)", username);
  1011.       else {
  1012. ***************
  1013. *** 453,459 ****
  1014.       register struct bboard *pw;
  1015.   #endif    /* DPOP */
  1016.   
  1017. ! #ifdef KPOP
  1018.   #ifndef DPOP
  1019.       if ((pw = getpwnam (username)) != NULL)
  1020.         return setup(pw, FALSE);
  1021. --- 466,472 ----
  1022.       register struct bboard *pw;
  1023.   #endif    /* DPOP */
  1024.   
  1025. ! #if defined(KPOP) || defined(K5POP)
  1026.   #ifndef DPOP
  1027.       if ((pw = getpwnam (username)) != NULL)
  1028.         return setup(pw, FALSE);
  1029. ***************
  1030. *** 471,477 ****
  1031.         return setup(pw, FALSE);
  1032.       }
  1033.   #endif
  1034. ! #else    /* KPOP */
  1035.   
  1036.   #ifndef    DPOP
  1037.   #ifdef    BPOP
  1038. --- 484,490 ----
  1039.         return setup(pw, FALSE);
  1040.       }
  1041.   #endif
  1042. ! #else    /* KPOP || K5POP */
  1043.   
  1044.   #ifndef    DPOP
  1045.   #ifdef    BPOP
  1046. ***************
  1047. *** 540,546 ****
  1048.       return respond (NOTOK, "permission denied");
  1049.   #endif    /* TRUSTED */
  1050.       return setup (pw, guest);
  1051. ! #endif /* KPOP */
  1052.   }
  1053.   
  1054.   /*   */
  1055. --- 553,559 ----
  1056.       return respond (NOTOK, "permission denied");
  1057.   #endif    /* TRUSTED */
  1058.       return setup (pw, guest);
  1059. ! #endif /* KPOP || K5POP */
  1060.   }
  1061.   
  1062.   /*   */
  1063.  
  1064. -- 
  1065. Jonathan Kamens                                       jik@Aktis.COM
  1066. Aktis, Inc.                                 Moderator, news.answers
  1067.