mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-09-30 15:11:16 +02:00
Patch for Kerberos V.
Most (nearly all) of the work was done by David Wragg <dpw@doc.ic.ac.uk> He patched 6.5.3. I've updated it for 7.0RC5. It works for MIT kerberos 1.1.1 (and previously for 1.0.6 as well). I've got the patch against 6.5.3, plus kerberized RPMS. Mike Wyer <mw@doc.ic.ac.uk> || "Woof?"
This commit is contained in:
parent
ddae527c96
commit
9500b35f17
@ -7,7 +7,7 @@
|
|||||||
#
|
#
|
||||||
#
|
#
|
||||||
# IDENTIFICATION
|
# IDENTIFICATION
|
||||||
# $Header: /cvsroot/pgsql/src/Makefile.global.in,v 1.71 2000/05/23 02:12:46 tgl Exp $
|
# $Header: /cvsroot/pgsql/src/Makefile.global.in,v 1.72 2000/05/27 03:39:31 momjian Exp $
|
||||||
#
|
#
|
||||||
# NOTES
|
# NOTES
|
||||||
# Essentially all Postgres make files include this file and use the
|
# Essentially all Postgres make files include this file and use the
|
||||||
@ -120,7 +120,7 @@ ENFORCE_ALIGNMENT= true
|
|||||||
# Set KRBVERS to "4" for Kerberos v4, "5" for Kerberos v5.
|
# Set KRBVERS to "4" for Kerberos v4, "5" for Kerberos v5.
|
||||||
# XXX Edit the default Kerberos variables below!
|
# XXX Edit the default Kerberos variables below!
|
||||||
#
|
#
|
||||||
#KRBVERS= 5
|
KRBVERS=5
|
||||||
|
|
||||||
# Globally pass Kerberos file locations.
|
# Globally pass Kerberos file locations.
|
||||||
# these are used in the postmaster and all libpq applications.
|
# these are used in the postmaster and all libpq applications.
|
||||||
@ -132,9 +132,9 @@ ENFORCE_ALIGNMENT= true
|
|||||||
# PG_KRB_SRVTAB is the location of the server's keytab file.
|
# PG_KRB_SRVTAB is the location of the server's keytab file.
|
||||||
#
|
#
|
||||||
ifdef KRBVERS
|
ifdef KRBVERS
|
||||||
KRBINCS= -I/usr/athena/include
|
KRBINCS= -I/usr/krb5/include
|
||||||
KRBLIBS= -L/usr/athena/lib
|
KRBLIBS= -L/usr/krb5/lib
|
||||||
KRBFLAGS+= $(KRBINCS) -DPG_KRB_SRVNAM='"postgres_dbms"'
|
KRBFLAGS+= $(KRBINCS) -DPG_KRB_SRVNAM='"postgres"'
|
||||||
ifeq ($(KRBVERS), 4)
|
ifeq ($(KRBVERS), 4)
|
||||||
KRBFLAGS+= -DKRB4
|
KRBFLAGS+= -DKRB4
|
||||||
KRBFLAGS+= -DPG_KRB_SRVTAB='"/etc/srvtab"'
|
KRBFLAGS+= -DPG_KRB_SRVTAB='"/etc/srvtab"'
|
||||||
@ -142,8 +142,8 @@ KRBLIBS+= -lkrb -ldes
|
|||||||
else
|
else
|
||||||
ifeq ($(KRBVERS), 5)
|
ifeq ($(KRBVERS), 5)
|
||||||
KRBFLAGS+= -DKRB5
|
KRBFLAGS+= -DKRB5
|
||||||
KRBFLAGS+= -DPG_KRB_SRVTAB='"FILE:/krb5/srvtab.postgres"'
|
KRBFLAGS+= -DPG_KRB_SRVTAB='"FILE:/usr/local/postgres/krb5.keytab"'
|
||||||
KRBLIBS+= -lkrb5 -lcrypto -lcom_err -lisode
|
KRBLIBS+= -lkrb5 -lcrypto -lcom_err
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
|
@ -8,7 +8,7 @@
|
|||||||
*
|
*
|
||||||
*
|
*
|
||||||
* IDENTIFICATION
|
* IDENTIFICATION
|
||||||
* $Header: /cvsroot/pgsql/src/backend/libpq/auth.c,v 1.44 2000/04/12 17:15:13 momjian Exp $
|
* $Header: /cvsroot/pgsql/src/backend/libpq/auth.c,v 1.45 2000/05/27 03:39:31 momjian Exp $
|
||||||
*
|
*
|
||||||
*-------------------------------------------------------------------------
|
*-------------------------------------------------------------------------
|
||||||
*/
|
*/
|
||||||
@ -149,7 +149,8 @@ pg_krb4_recvauth(Port *port)
|
|||||||
*----------------------------------------------------------------
|
*----------------------------------------------------------------
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "krb5/krb5.h"
|
#include <krb5.h>
|
||||||
|
#include <com_err.h>
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* pg_an_to_ln -- return the local name corresponding to an authentication
|
* pg_an_to_ln -- return the local name corresponding to an authentication
|
||||||
@ -174,6 +175,64 @@ pg_an_to_ln(char *aname)
|
|||||||
return aname;
|
return aname;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Various krb5 state which is not connection specfic, and a flag to
|
||||||
|
* indicate whether we have initialised it yet.
|
||||||
|
*/
|
||||||
|
static int pg_krb5_initialised;
|
||||||
|
static krb5_context pg_krb5_context;
|
||||||
|
static krb5_keytab pg_krb5_keytab;
|
||||||
|
static krb5_principal pg_krb5_server;
|
||||||
|
|
||||||
|
|
||||||
|
static int
|
||||||
|
pg_krb5_init(void)
|
||||||
|
{
|
||||||
|
krb5_error_code retval;
|
||||||
|
|
||||||
|
if (pg_krb5_initialised)
|
||||||
|
return STATUS_OK;
|
||||||
|
|
||||||
|
retval = krb5_init_context(&pg_krb5_context);
|
||||||
|
if (retval) {
|
||||||
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
|
"pg_krb5_init: krb5_init_context returned"
|
||||||
|
" Kerberos error %d\n", retval);
|
||||||
|
com_err("postgres", retval, "while initializing krb5");
|
||||||
|
return STATUS_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
retval = krb5_kt_resolve(pg_krb5_context, PG_KRB_SRVTAB, &pg_krb5_keytab);
|
||||||
|
if (retval) {
|
||||||
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
|
"pg_krb5_init: krb5_kt_resolve returned"
|
||||||
|
" Kerberos error %d\n", retval);
|
||||||
|
com_err("postgres", retval, "while resolving keytab file %s",
|
||||||
|
PG_KRB_SRVTAB);
|
||||||
|
krb5_free_context(pg_krb5_context);
|
||||||
|
return STATUS_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
retval = krb5_sname_to_principal(pg_krb5_context, NULL, PG_KRB_SRVNAM,
|
||||||
|
KRB5_NT_SRV_HST, &pg_krb5_server);
|
||||||
|
if (retval) {
|
||||||
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
|
"pg_krb5_init: krb5_sname_to_principal returned"
|
||||||
|
" Kerberos error %d\n", retval);
|
||||||
|
com_err("postgres", retval,
|
||||||
|
"while getting server principal for service %s",
|
||||||
|
PG_KRB_SRVTAB);
|
||||||
|
krb5_kt_close(pg_krb5_context, pg_krb5_keytab);
|
||||||
|
krb5_free_context(pg_krb5_context);
|
||||||
|
return STATUS_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
pg_krb5_initialised = 1;
|
||||||
|
return STATUS_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* pg_krb5_recvauth -- server routine to receive authentication information
|
* pg_krb5_recvauth -- server routine to receive authentication information
|
||||||
* from the client
|
* from the client
|
||||||
@ -182,122 +241,68 @@ pg_an_to_ln(char *aname)
|
|||||||
* packet to the authenticated name, as described in pg_krb4_recvauth. This
|
* packet to the authenticated name, as described in pg_krb4_recvauth. This
|
||||||
* is a bit more problematic in v5, as described above in pg_an_to_ln.
|
* is a bit more problematic in v5, as described above in pg_an_to_ln.
|
||||||
*
|
*
|
||||||
* In addition, as described above in pg_krb5_sendauth, we still need to
|
* We have our own keytab file because postgres is unlikely to run as root,
|
||||||
* canonicalize the server name v4-style before constructing a principal
|
* and so cannot read the default keytab.
|
||||||
* from it. Again, this is kind of iffy.
|
|
||||||
*
|
|
||||||
* Finally, we need to tangle with the fact that v5 doesn't let you explicitly
|
|
||||||
* set server keytab file names -- you have to feed lower-level routines a
|
|
||||||
* function to retrieve the contents of a keytab, along with a single argument
|
|
||||||
* that allows them to open the keytab. We assume that a server keytab is
|
|
||||||
* always a real file so we can allow people to specify their own filenames.
|
|
||||||
* (This is important because the POSTGRES keytab needs to be readable by
|
|
||||||
* non-root users/groups; the v4 tools used to force you do dump a whole
|
|
||||||
* host's worth of keys into a file, effectively forcing you to use one file,
|
|
||||||
* but kdb5_edit allows you to select which principals to dump. Yay!)
|
|
||||||
*/
|
*/
|
||||||
static int
|
static int
|
||||||
pg_krb5_recvauth(Port *port)
|
pg_krb5_recvauth(Port *port)
|
||||||
{
|
{
|
||||||
char servbuf[MAXHOSTNAMELEN + 1 +
|
krb5_error_code retval;
|
||||||
sizeof(PG_KRB_SRVNAM)];
|
int ret;
|
||||||
char *hostp,
|
krb5_auth_context auth_context = NULL;
|
||||||
*kusername = (char *) NULL;
|
krb5_ticket *ticket;
|
||||||
krb5_error_code code;
|
char *kusername;
|
||||||
krb5_principal client,
|
|
||||||
server;
|
|
||||||
krb5_address sender_addr;
|
|
||||||
krb5_rdreq_key_proc keyproc = (krb5_rdreq_key_proc) NULL;
|
|
||||||
krb5_pointer keyprocarg = (krb5_pointer) NULL;
|
|
||||||
|
|
||||||
/*
|
ret = pg_krb5_init();
|
||||||
* Set up server side -- since we have no ticket file to make this
|
if (ret != STATUS_OK)
|
||||||
* easy, we construct our own name and parse it. See note on
|
return ret;
|
||||||
* canonicalization above.
|
|
||||||
*/
|
retval = krb5_recvauth(pg_krb5_context, &auth_context,
|
||||||
strcpy(servbuf, PG_KRB_SRVNAM);
|
(krb5_pointer)&port->sock, PG_KRB_SRVNAM,
|
||||||
*(hostp = servbuf + (sizeof(PG_KRB_SRVNAM) - 1)) = '/';
|
pg_krb5_server, 0, pg_krb5_keytab, &ticket);
|
||||||
if (gethostname(++hostp, MAXHOSTNAMELEN) < 0)
|
if (retval) {
|
||||||
strcpy(hostp, "localhost");
|
|
||||||
if (hostp = strchr(hostp, '.'))
|
|
||||||
*hostp = '\0';
|
|
||||||
if (code = krb5_parse_name(servbuf, &server))
|
|
||||||
{
|
|
||||||
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
"pg_krb5_recvauth: Kerberos error %d in krb5_parse_name\n", code);
|
"pg_krb5_recvauth: krb5_recvauth returned"
|
||||||
com_err("pg_krb5_recvauth", code, "in krb5_parse_name");
|
" Kerberos error %d\n", retval);
|
||||||
|
com_err("postgres", retval, "from krb5_recvauth");
|
||||||
return STATUS_ERROR;
|
return STATUS_ERROR;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
* krb5_sendauth needs this to verify the address in the client
|
|
||||||
* authenticator.
|
|
||||||
*/
|
|
||||||
sender_addr.addrtype = port->raddr.in.sin_family;
|
|
||||||
sender_addr.length = sizeof(port->raddr.in.sin_addr);
|
|
||||||
sender_addr.contents = (krb5_octet *) & (port->raddr.in.sin_addr);
|
|
||||||
|
|
||||||
if (strcmp(PG_KRB_SRVTAB, ""))
|
|
||||||
{
|
|
||||||
keyproc = krb5_kt_read_service_key;
|
|
||||||
keyprocarg = PG_KRB_SRVTAB;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (code = krb5_recvauth((krb5_pointer) & port->sock,
|
|
||||||
PG_KRB5_VERSION,
|
|
||||||
server,
|
|
||||||
&sender_addr,
|
|
||||||
(krb5_pointer) NULL,
|
|
||||||
keyproc,
|
|
||||||
keyprocarg,
|
|
||||||
(char *) NULL,
|
|
||||||
(krb5_int32 *) NULL,
|
|
||||||
&client,
|
|
||||||
(krb5_ticket **) NULL,
|
|
||||||
(krb5_authenticator **) NULL))
|
|
||||||
{
|
|
||||||
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
|
||||||
"pg_krb5_recvauth: Kerberos error %d in krb5_recvauth\n", code);
|
|
||||||
com_err("pg_krb5_recvauth", code, "in krb5_recvauth");
|
|
||||||
krb5_free_principal(server);
|
|
||||||
return STATUS_ERROR;
|
|
||||||
}
|
|
||||||
krb5_free_principal(server);
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* The "client" structure comes out of the ticket and is therefore
|
* The "client" structure comes out of the ticket and is therefore
|
||||||
* authenticated. Use it to check the username obtained from the
|
* authenticated. Use it to check the username obtained from the
|
||||||
* postmaster startup packet.
|
* postmaster startup packet.
|
||||||
|
*
|
||||||
|
* I have no idea why this is considered necessary.
|
||||||
*/
|
*/
|
||||||
if ((code = krb5_unparse_name(client, &kusername)))
|
retval = krb5_unparse_name(pg_krb5_context,
|
||||||
{
|
ticket->enc_part2->client, &kusername);
|
||||||
|
if (retval) {
|
||||||
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
"pg_krb5_recvauth: Kerberos error %d in krb5_unparse_name\n", code);
|
"pg_krb5_recvauth: krb5_unparse_name returned"
|
||||||
com_err("pg_krb5_recvauth", code, "in krb5_unparse_name");
|
" Kerberos error %d\n", retval);
|
||||||
krb5_free_principal(client);
|
com_err("postgres", retval, "while unparsing client name");
|
||||||
return STATUS_ERROR;
|
krb5_free_ticket(pg_krb5_context, ticket);
|
||||||
}
|
krb5_auth_con_free(pg_krb5_context, auth_context);
|
||||||
krb5_free_principal(client);
|
|
||||||
if (!kusername)
|
|
||||||
{
|
|
||||||
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
|
||||||
"pg_krb5_recvauth: could not decode username\n");
|
|
||||||
fputs(PQerrormsg, stderr);
|
|
||||||
pqdebug("%s", PQerrormsg);
|
|
||||||
return STATUS_ERROR;
|
return STATUS_ERROR;
|
||||||
}
|
}
|
||||||
|
|
||||||
kusername = pg_an_to_ln(kusername);
|
kusername = pg_an_to_ln(kusername);
|
||||||
if (strncmp(username, kusername, SM_USER))
|
if (strncmp(port->user, kusername, SM_USER))
|
||||||
{
|
{
|
||||||
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
"pg_krb5_recvauth: name \"%s\" != \"%s\"\n", port->user, kusername);
|
"pg_krb5_recvauth: user name \"%s\" != krb5 name \"%s\"\n",
|
||||||
fputs(PQerrormsg, stderr);
|
port->user, kusername);
|
||||||
pqdebug("%s", PQerrormsg);
|
ret = STATUS_ERROR;
|
||||||
pfree(kusername);
|
|
||||||
return STATUS_ERROR;
|
|
||||||
}
|
}
|
||||||
pfree(kusername);
|
else
|
||||||
return STATUS_OK;
|
ret = STATUS_OK;
|
||||||
|
|
||||||
|
krb5_free_ticket(pg_krb5_context, ticket);
|
||||||
|
krb5_auth_con_free(pg_krb5_context, auth_context);
|
||||||
|
free(kusername);
|
||||||
|
|
||||||
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
#else
|
#else
|
||||||
|
@ -6,7 +6,7 @@
|
|||||||
# Copyright (c) 1994, Regents of the University of California
|
# Copyright (c) 1994, Regents of the University of California
|
||||||
#
|
#
|
||||||
# IDENTIFICATION
|
# IDENTIFICATION
|
||||||
# $Header: /cvsroot/pgsql/src/interfaces/libpq/Attic/Makefile.in,v 1.54 2000/04/14 00:42:06 tgl Exp $
|
# $Header: /cvsroot/pgsql/src/interfaces/libpq/Attic/Makefile.in,v 1.55 2000/05/27 03:39:33 momjian Exp $
|
||||||
#
|
#
|
||||||
#-------------------------------------------------------------------------
|
#-------------------------------------------------------------------------
|
||||||
|
|
||||||
@ -21,6 +21,7 @@ CFLAGS+= -DFRONTEND
|
|||||||
|
|
||||||
ifdef KRBVERS
|
ifdef KRBVERS
|
||||||
CFLAGS+= $(KRBFLAGS)
|
CFLAGS+= $(KRBFLAGS)
|
||||||
|
SHLIB_LINK += $(KRBLIBS)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
OBJS= fe-auth.o fe-connect.o fe-exec.o fe-misc.o fe-print.o fe-lobj.o \
|
OBJS= fe-auth.o fe-connect.o fe-exec.o fe-misc.o fe-print.o fe-lobj.o \
|
||||||
|
@ -10,7 +10,7 @@
|
|||||||
* exceed INITIAL_EXPBUFFER_SIZE (currently 256 bytes).
|
* exceed INITIAL_EXPBUFFER_SIZE (currently 256 bytes).
|
||||||
*
|
*
|
||||||
* IDENTIFICATION
|
* IDENTIFICATION
|
||||||
* $Header: /cvsroot/pgsql/src/interfaces/libpq/fe-auth.c,v 1.39 2000/04/12 17:17:13 momjian Exp $
|
* $Header: /cvsroot/pgsql/src/interfaces/libpq/fe-auth.c,v 1.40 2000/05/27 03:39:33 momjian Exp $
|
||||||
*
|
*
|
||||||
*-------------------------------------------------------------------------
|
*-------------------------------------------------------------------------
|
||||||
*/
|
*/
|
||||||
@ -39,6 +39,7 @@
|
|||||||
#include "win32.h"
|
#include "win32.h"
|
||||||
#else
|
#else
|
||||||
#include <unistd.h>
|
#include <unistd.h>
|
||||||
|
#include <fcntl.h>
|
||||||
#include <sys/param.h> /* for MAXHOSTNAMELEN on most */
|
#include <sys/param.h> /* for MAXHOSTNAMELEN on most */
|
||||||
#ifndef MAXHOSTNAMELEN
|
#ifndef MAXHOSTNAMELEN
|
||||||
#include <netdb.h> /* for MAXHOSTNAMELEN on some */
|
#include <netdb.h> /* for MAXHOSTNAMELEN on some */
|
||||||
@ -234,7 +235,8 @@ pg_krb4_sendauth(const char *PQerrormsg, int sock,
|
|||||||
*----------------------------------------------------------------
|
*----------------------------------------------------------------
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "krb5/krb5.h"
|
#include <krb5.h>
|
||||||
|
#include <com_err.h>
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* pg_an_to_ln -- return the local name corresponding to an authentication
|
* pg_an_to_ln -- return the local name corresponding to an authentication
|
||||||
@ -250,7 +252,7 @@ pg_krb4_sendauth(const char *PQerrormsg, int sock,
|
|||||||
* and we can't afford to punt.
|
* and we can't afford to punt.
|
||||||
*/
|
*/
|
||||||
static char *
|
static char *
|
||||||
pg_an_to_ln(const char *aname)
|
pg_an_to_ln(char *aname)
|
||||||
{
|
{
|
||||||
char *p;
|
char *p;
|
||||||
|
|
||||||
@ -261,197 +263,160 @@ pg_an_to_ln(const char *aname)
|
|||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* pg_krb5_init -- initialization performed before any Kerberos calls are made
|
* Various krb5 state which is not connection specfic, and a flag to
|
||||||
*
|
* indicate whether we have initialised it yet.
|
||||||
* With v5, we can no longer set the ticket (credential cache) file name;
|
|
||||||
* we now have to provide a file handle for the open (well, "resolved")
|
|
||||||
* ticket file everywhere.
|
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
static int pg_krb5_initialised;
|
||||||
|
static krb5_context pg_krb5_context;
|
||||||
|
static krb5_ccache pg_krb5_ccache;
|
||||||
|
static krb5_principal pg_krb5_client;
|
||||||
|
static char *pg_krb5_name;
|
||||||
|
|
||||||
|
|
||||||
static int
|
static int
|
||||||
krb5_ccache
|
pg_krb5_init(char *PQerrormsg)
|
||||||
pg_krb5_init(void)
|
|
||||||
{
|
{
|
||||||
krb5_error_code code;
|
krb5_error_code retval;
|
||||||
char *realm,
|
|
||||||
*defname;
|
|
||||||
char tktbuf[MAXPGPATH];
|
|
||||||
static krb5_ccache ccache = (krb5_ccache) NULL;
|
|
||||||
|
|
||||||
if (ccache)
|
if (pg_krb5_initialised)
|
||||||
return ccache;
|
return STATUS_OK;
|
||||||
|
|
||||||
/*
|
retval = krb5_init_context(&pg_krb5_context);
|
||||||
* If the user set PGREALM, then we use a ticket file with a special
|
if (retval) {
|
||||||
* name: <usual-ticket-file-name>@<PGREALM-value>
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
*/
|
"pg_krb5_init: krb5_init_context: %s",
|
||||||
if (!(defname = krb5_cc_default_name()))
|
error_message(retval));
|
||||||
{
|
return STATUS_ERROR;
|
||||||
(void) sprintf(PQerrormsg,
|
|
||||||
"pg_krb5_init: krb5_cc_default_name failed\n");
|
|
||||||
return (krb5_ccache) NULL;
|
|
||||||
}
|
|
||||||
strcpy(tktbuf, defname);
|
|
||||||
if (realm = getenv("PGREALM"))
|
|
||||||
{
|
|
||||||
strcat(tktbuf, "@");
|
|
||||||
strcat(tktbuf, realm);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
if (code = krb5_cc_resolve(tktbuf, &ccache))
|
retval = krb5_cc_default(pg_krb5_context, &pg_krb5_ccache);
|
||||||
{
|
if (retval) {
|
||||||
(void) sprintf(PQerrormsg,
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
"pg_krb5_init: Kerberos error %d in krb5_cc_resolve\n", code);
|
"pg_krb5_init: krb5_cc_default: %s",
|
||||||
com_err("pg_krb5_init", code, "in krb5_cc_resolve");
|
error_message(retval));
|
||||||
return (krb5_ccache) NULL;
|
krb5_free_context(pg_krb5_context);
|
||||||
}
|
return STATUS_ERROR;
|
||||||
return ccache;
|
}
|
||||||
|
|
||||||
|
retval = krb5_cc_get_principal(pg_krb5_context, pg_krb5_ccache,
|
||||||
|
&pg_krb5_client);
|
||||||
|
if (retval) {
|
||||||
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
|
"pg_krb5_init: krb5_cc_get_principal: %s",
|
||||||
|
error_message(retval));
|
||||||
|
krb5_cc_close(pg_krb5_context, pg_krb5_ccache);
|
||||||
|
krb5_free_context(pg_krb5_context);
|
||||||
|
return STATUS_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
retval = krb5_unparse_name(pg_krb5_context, pg_krb5_client, &pg_krb5_name);
|
||||||
|
if (retval) {
|
||||||
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
|
"pg_krb5_init: krb5_unparse_name: %s",
|
||||||
|
error_message(retval));
|
||||||
|
krb5_free_principal(pg_krb5_context, pg_krb5_client);
|
||||||
|
krb5_cc_close(pg_krb5_context, pg_krb5_ccache);
|
||||||
|
krb5_free_context(pg_krb5_context);
|
||||||
|
return STATUS_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
pg_krb5_name = pg_an_to_ln(pg_krb5_name);
|
||||||
|
|
||||||
|
pg_krb5_initialised = 1;
|
||||||
|
return STATUS_OK;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* pg_krb5_authname -- returns a pointer to static space containing whatever
|
* pg_krb5_authname -- returns a pointer to static space containing whatever
|
||||||
* name the user has authenticated to the system
|
* name the user has authenticated to the system
|
||||||
*
|
*/
|
||||||
* We obtain this information by digging around in the ticket file.
|
|
||||||
*/
|
|
||||||
static const char *
|
static const char *
|
||||||
pg_krb5_authname(const char *PQerrormsg)
|
pg_krb5_authname(char *PQerrormsg)
|
||||||
{
|
{
|
||||||
krb5_ccache ccache;
|
if (pg_krb5_init(PQerrormsg) != STATUS_OK)
|
||||||
krb5_principal principal;
|
return NULL;
|
||||||
krb5_error_code code;
|
|
||||||
static char *authname = (char *) NULL;
|
|
||||||
|
|
||||||
if (authname)
|
return pg_krb5_name;
|
||||||
return authname;
|
|
||||||
|
|
||||||
ccache = pg_krb5_init(); /* don't free this */
|
|
||||||
|
|
||||||
if (code = krb5_cc_get_principal(ccache, &principal))
|
|
||||||
{
|
|
||||||
(void) sprintf(PQerrormsg,
|
|
||||||
"pg_krb5_authname: Kerberos error %d in krb5_cc_get_principal\n", code);
|
|
||||||
com_err("pg_krb5_authname", code, "in krb5_cc_get_principal");
|
|
||||||
return (char *) NULL;
|
|
||||||
}
|
|
||||||
if (code = krb5_unparse_name(principal, &authname))
|
|
||||||
{
|
|
||||||
(void) sprintf(PQerrormsg,
|
|
||||||
"pg_krb5_authname: Kerberos error %d in krb5_unparse_name\n", code);
|
|
||||||
com_err("pg_krb5_authname", code, "in krb5_unparse_name");
|
|
||||||
krb5_free_principal(principal);
|
|
||||||
return (char *) NULL;
|
|
||||||
}
|
|
||||||
krb5_free_principal(principal);
|
|
||||||
return pg_an_to_ln(authname);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* pg_krb5_sendauth -- client routine to send authentication information to
|
* pg_krb5_sendauth -- client routine to send authentication information to
|
||||||
* the server
|
* the server
|
||||||
*
|
|
||||||
* This routine does not do mutual authentication, nor does it return enough
|
|
||||||
* information to do encrypted connections. But then, if we want to do
|
|
||||||
* encrypted connections, we'll have to redesign the whole RPC mechanism
|
|
||||||
* anyway.
|
|
||||||
*
|
|
||||||
* Server hostnames are canonicalized v4-style, i.e., all domain suffixes
|
|
||||||
* are simply chopped off. Hence, we are assuming that you've entered your
|
|
||||||
* server instances as
|
|
||||||
* <value-of-PG_KRB_SRVNAM>/<canonicalized-hostname>
|
|
||||||
* in the PGREALM (or local) database. This is probably a bad assumption.
|
|
||||||
*/
|
*/
|
||||||
static int
|
static int
|
||||||
pg_krb5_sendauth(const char *PQerrormsg, int sock,
|
pg_krb5_sendauth(char *PQerrormsg, int sock,
|
||||||
struct sockaddr_in * laddr,
|
struct sockaddr_in * laddr,
|
||||||
struct sockaddr_in * raddr,
|
struct sockaddr_in * raddr,
|
||||||
const char *hostname)
|
const char *hostname)
|
||||||
{
|
{
|
||||||
char servbuf[MAXHOSTNAMELEN + 1 +
|
krb5_error_code retval;
|
||||||
sizeof(PG_KRB_SRVNAM)];
|
int ret;
|
||||||
const char *hostp;
|
krb5_principal server;
|
||||||
const char *realm;
|
krb5_auth_context auth_context = NULL;
|
||||||
krb5_error_code code;
|
krb5_error *err_ret = NULL;
|
||||||
krb5_principal client,
|
int flags;
|
||||||
server;
|
|
||||||
krb5_ccache ccache;
|
|
||||||
krb5_error *error = (krb5_error *) NULL;
|
|
||||||
|
|
||||||
ccache = pg_krb5_init(); /* don't free this */
|
ret = pg_krb5_init(PQerrormsg);
|
||||||
|
if (ret != STATUS_OK)
|
||||||
|
return ret;
|
||||||
|
|
||||||
/*
|
retval = krb5_sname_to_principal(pg_krb5_context, hostname, PG_KRB_SRVNAM,
|
||||||
* set up client -- this is easy, we can get it out of the ticket
|
KRB5_NT_SRV_HST, &server);
|
||||||
* file.
|
if (retval) {
|
||||||
*/
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
if (code = krb5_cc_get_principal(ccache, &client))
|
"pg_krb5_sendauth: krb5_sname_to_principal: %s",
|
||||||
{
|
error_message(retval));
|
||||||
(void) sprintf(PQerrormsg,
|
|
||||||
"pg_krb5_sendauth: Kerberos error %d in krb5_cc_get_principal\n", code);
|
|
||||||
com_err("pg_krb5_sendauth", code, "in krb5_cc_get_principal");
|
|
||||||
return STATUS_ERROR;
|
return STATUS_ERROR;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* set up server -- canonicalize as described above
|
* libpq uses a non-blocking socket. But kerberos needs a blocking
|
||||||
|
* socket, and we have to block somehow to do mutual authentication
|
||||||
|
* anyway. So we temporarily make it blocking.
|
||||||
*/
|
*/
|
||||||
strcpy(servbuf, PG_KRB_SRVNAM);
|
flags = fcntl(sock, F_GETFL);
|
||||||
*(hostp = servbuf + (sizeof(PG_KRB_SRVNAM) - 1)) = '/';
|
if (flags < 0 || fcntl(sock, F_SETFL, (long)(flags & ~O_NONBLOCK))) {
|
||||||
if (hostname || *hostname)
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
strncpy(++hostp, hostname, MAXHOSTNAMELEN);
|
"pg_krb5_sendauth: fcntl: %s", strerror(errno));
|
||||||
else
|
krb5_free_principal(pg_krb5_context, server);
|
||||||
{
|
|
||||||
if (gethostname(++hostp, MAXHOSTNAMELEN) < 0)
|
|
||||||
strcpy(hostp, "localhost");
|
|
||||||
}
|
|
||||||
if (hostp = strchr(hostp, '.'))
|
|
||||||
*hostp = '\0';
|
|
||||||
if (realm = getenv("PGREALM"))
|
|
||||||
{
|
|
||||||
strcat(servbuf, "@");
|
|
||||||
strcat(servbuf, realm);
|
|
||||||
}
|
|
||||||
if (code = krb5_parse_name(servbuf, &server))
|
|
||||||
{
|
|
||||||
(void) sprintf(PQerrormsg,
|
|
||||||
"pg_krb5_sendauth: Kerberos error %d in krb5_parse_name\n", code);
|
|
||||||
com_err("pg_krb5_sendauth", code, "in krb5_parse_name");
|
|
||||||
krb5_free_principal(client);
|
|
||||||
return STATUS_ERROR;
|
return STATUS_ERROR;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
retval = krb5_sendauth(pg_krb5_context, &auth_context,
|
||||||
* The only thing we want back from krb5_sendauth is an error status
|
(krb5_pointer) &sock, PG_KRB_SRVNAM,
|
||||||
* and any error messages.
|
pg_krb5_client, server,
|
||||||
*/
|
AP_OPTS_MUTUAL_REQUIRED,
|
||||||
if (code = krb5_sendauth((krb5_pointer) & sock,
|
NULL, 0, /* no creds, use ccache instead */
|
||||||
PG_KRB5_VERSION,
|
pg_krb5_ccache, &err_ret, NULL, NULL);
|
||||||
client,
|
if (retval) {
|
||||||
server,
|
if (retval == KRB5_SENDAUTH_REJECTED && err_ret) {
|
||||||
(krb5_flags) 0,
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
(krb5_checksum *) NULL,
|
"pg_krb5_sendauth: authentication rejected: \"%*s\"",
|
||||||
(krb5_creds *) NULL,
|
err_ret->text.length, err_ret->text.data);
|
||||||
ccache,
|
|
||||||
(krb5_int32 *) NULL,
|
|
||||||
(krb5_keyblock **) NULL,
|
|
||||||
&error,
|
|
||||||
(krb5_ap_rep_enc_part **) NULL))
|
|
||||||
{
|
|
||||||
if ((code == KRB5_SENDAUTH_REJECTED) && error)
|
|
||||||
{
|
|
||||||
(void) sprintf(PQerrormsg,
|
|
||||||
"pg_krb5_sendauth: authentication rejected: \"%*s\"\n",
|
|
||||||
error->text.length, error->text.data);
|
|
||||||
}
|
}
|
||||||
else
|
else {
|
||||||
{
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
(void) sprintf(PQerrormsg,
|
"pg_krb5_sendauth: krb5_sendauth: %s",
|
||||||
"pg_krb5_sendauth: Kerberos error %d in krb5_sendauth\n", code);
|
error_message(retval));
|
||||||
com_err("pg_krb5_sendauth", code, "in krb5_sendauth");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (err_ret)
|
||||||
|
krb5_free_error(pg_krb5_context, err_ret);
|
||||||
|
|
||||||
|
ret = STATUS_ERROR;
|
||||||
}
|
}
|
||||||
krb5_free_principal(client);
|
|
||||||
krb5_free_principal(server);
|
krb5_free_principal(pg_krb5_context, server);
|
||||||
return code ? STATUS_ERROR : STATUS_OK;
|
|
||||||
|
if (fcntl(sock, F_SETFL, (long)flags)) {
|
||||||
|
snprintf(PQerrormsg, PQERRORMSG_LENGTH,
|
||||||
|
"pg_krb5_sendauth: fcntl: %s", strerror(errno));
|
||||||
|
ret = STATUS_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
#endif /* KRB5 */
|
#endif /* KRB5 */
|
||||||
|
@ -12,7 +12,7 @@
|
|||||||
* Portions Copyright (c) 1996-2000, PostgreSQL, Inc
|
* Portions Copyright (c) 1996-2000, PostgreSQL, Inc
|
||||||
* Portions Copyright (c) 1994, Regents of the University of California
|
* Portions Copyright (c) 1994, Regents of the University of California
|
||||||
*
|
*
|
||||||
* $Id: libpq-int.h,v 1.23 2000/04/12 17:17:15 momjian Exp $
|
* $Id: libpq-int.h,v 1.24 2000/05/27 03:39:33 momjian Exp $
|
||||||
*
|
*
|
||||||
*-------------------------------------------------------------------------
|
*-------------------------------------------------------------------------
|
||||||
*/
|
*/
|
||||||
@ -50,6 +50,7 @@
|
|||||||
* POSTGRES backend dependent Constants.
|
* POSTGRES backend dependent Constants.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
#define PQERRORMSG_LENGTH 1024
|
||||||
#define CMDSTATUS_LEN 40
|
#define CMDSTATUS_LEN 40
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
Loading…
Reference in New Issue
Block a user