#include "httpd.h"
#include "http_config.h"
-#include "http_protocol.h"
+#include "http_conf_globals.h"
#include "http_log.h"
+#include "http_protocol.h"
+#include "http_request.h"
+#include "http_core.h"
#include "ap_config.h"
#include <krb5.h>
+#if defined(sun)
#include <sys/ioccom.h>
+#endif /* sun */
#include <stropts.h>
-#include <kerberosIV/krb.h>
-#include <kerberosIV/des.h>
#include <afs/venus.h>
+#include <afs/auth.h>
+#include <rx/rxkad.h>
+
+#define KEYTAB "/home/drh/keytab.umweb.drhtest"
+#define KEYTAB_PRINCIPAL "umweb/drhtest"
-#define KEYTAB_PATH "/usr/local/etc/kerbero/keytab.cosign"
-#define IN_TKT_SERVICE "krbtgt/UMICH.EDU"
+#define TKT_LIFE 10*60*60
+#define SLEEP_TIME 5*60 /* should be TKT_LIFE */
+
+#define AFS_CELL "umich.edu" /* NB: lower case */
+
+#define K5PATH "FILE:/tmp/waklog.creds.k5"
+#define K4PATH "/tmp/waklog.creds.k4"
module waklog_module;
int configured;
int protect;
char *keytab;
+ char *keytab_principal;
+ char *afs_cell;
} waklog_host_config;
+typedef struct {
+ struct ktc_token token;
+} waklog_child_config;
+waklog_child_config child;
+
static void *
waklog_create_dir_config( pool *p, char *path )
cfg = (waklog_host_config *)ap_pcalloc( p, sizeof( waklog_host_config ));
cfg->configured = 0;
cfg->protect = 0;
- cfg->keytab = NULL;
+ cfg->keytab = KEYTAB;
+ cfg->keytab_principal = KEYTAB_PRINCIPAL;
+ cfg->afs_cell = AFS_CELL;
return( cfg );
}
cfg = (waklog_host_config *)ap_pcalloc( p, sizeof( waklog_host_config ));
cfg->configured = 0;
cfg->protect = 0;
- cfg->keytab = NULL;
+ cfg->keytab = KEYTAB;
+ cfg->keytab_principal = KEYTAB_PRINCIPAL;
+ cfg->afs_cell = AFS_CELL;
+
+#if 0
+ ap_set_module_config( s->module_config, &waklog_module, cfg);
+#endif /* 0 */
return( cfg );
}
- static void
-waklog_init( server_rec *s, pool *p )
+ static const char *
+set_waklog_protect( cmd_parms *params, void *mconfig, int flag )
{
- extern char *version;
+ waklog_host_config *cfg;
- ap_log_error( APLOG_MARK, APLOG_INFO|APLOG_NOERRNO, s,
- "mod_waklog: version %s initialized.", version );
- return;
+ if ( params->path == NULL ) {
+ cfg = (waklog_host_config *) ap_get_module_config(
+ params->server->module_config, &waklog_module );
+ } else {
+ cfg = (waklog_host_config *)mconfig;
+ }
+
+ cfg->protect = flag;
+ cfg->configured = 1;
+ return( NULL );
}
static const char *
-set_waklog_protect( cmd_parms *params, void *mconfig, int flag )
+set_waklog_use_keytab( cmd_parms *params, void *mconfig, char *file )
{
waklog_host_config *cfg;
cfg = (waklog_host_config *)mconfig;
}
- cfg->protect = flag;
+ ap_log_error( APLOG_MARK, APLOG_INFO|APLOG_NOERRNO, params->server,
+ "mod_waklog: using keytab: %s", file );
+
+ cfg->keytab = file;
cfg->configured = 1;
return( NULL );
}
static const char *
-set_waklog_use_keytab( cmd_parms *params, void *mconfig, char *file )
+set_waklog_use_keytab_principal( cmd_parms *params, void *mconfig, char *file )
{
waklog_host_config *cfg;
cfg = (waklog_host_config *)mconfig;
}
- cfg->keytab = file;
+ ap_log_error( APLOG_MARK, APLOG_INFO|APLOG_NOERRNO, params->server,
+ "mod_waklog: using keytab_principal: %s", file );
+
+ cfg->keytab_principal = file;
+ cfg->configured = 1;
+ return( NULL );
+}
+
+
+ static const char *
+set_waklog_use_afs_cell( cmd_parms *params, void *mconfig, char *file )
+{
+ waklog_host_config *cfg;
+
+ if ( params->path == NULL ) {
+ cfg = (waklog_host_config *) ap_get_module_config(
+ params->server->module_config, &waklog_module );
+ } else {
+ cfg = (waklog_host_config *)mconfig;
+ }
+
+ ap_log_error( APLOG_MARK, APLOG_INFO|APLOG_NOERRNO, params->server,
+ "mod_waklog: using afs_cell: %s", file );
+
+ cfg->afs_cell = file;
cfg->configured = 1;
return( NULL );
}
static void
waklog_child_init( server_rec *s, pool *p )
{
+
+ memset( &child.token, 0, sizeof( struct ktc_token ) );
+
setpag();
+
return;
}
NULL, RSRC_CONF | ACCESS_CONF, FLAG,
"enable waklog on a location or directory basis" },
- { "WaklogUseKeytab", set_waklog_use_keytab,
+ { "WaklogUseKeytabPath", set_waklog_use_keytab,
+ NULL, RSRC_CONF, TAKE1,
+ "Use the supplied keytab rather than the default" },
+
+ { "WaklogUseKeytabPrincipal", set_waklog_use_keytab_principal,
NULL, RSRC_CONF, TAKE1,
- "Use the supplied keytab file rather than the user's TGT" },
+ "Use the supplied keytab principal rather than the default" },
+
+ { "WaklogUseAFSCell", set_waklog_use_afs_cell,
+ NULL, RSRC_CONF, TAKE1,
+ "Use the supplied AFS cell rather than the default" },
{ NULL }
};
static void
-pioctl_cleanup( void *data )
+token_cleanup( void *data )
{
request_rec *r = (request_rec *)data;
- struct ViceIoctl vi;
- vi.in = NULL;
- vi.in_size = 0;
- vi.out = NULL;
- vi.out_size = 0;
+ if ( child.token.ticketLen ) {
+ memset( &child.token, 0, sizeof( struct ktc_token ) );
- if ( pioctl( 0, VIOCUNPAG, &vi, 0 ) < 0 ) {
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
- "mod_waklog: unlog pioctl failed" );
- }
+ ktc_ForgetAllTokens();
- ap_log_error( APLOG_MARK, APLOG_DEBUG, r->server,
- "mod_waklog: unlog pioctl succeeded" );
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: ktc_ForgetAllTokens succeeded: pid: %d", getpid() );
+ }
return;
}
static int
-waklog_ktinit( request_rec *r )
+waklog_kinit( server_rec *s )
{
krb5_error_code kerror;
- krb5_context kcontext;
- krb5_principal kprinc;
- krb5_principal sprinc;
+ krb5_context kcontext = NULL;
+ krb5_principal kprinc = NULL;
krb5_get_init_creds_opt kopts;
- krb5_creds kcreds;
- krb5_ccache kccache;
- krb5_keytab keytab = 0;
+ krb5_creds v5creds;
+ krb5_ccache kccache = NULL;
+ krb5_keytab keytab = NULL;
char ktbuf[ MAX_KEYTAB_NAME_LEN + 1 ];
- char krbpath [ 24 ];
+ waklog_host_config *cfg;
+
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, s,
+ "mod_waklog: waklog_kinit called" );
+
+ cfg = (waklog_host_config *) ap_get_module_config( s->module_config,
+ &waklog_module );
if (( kerror = krb5_init_context( &kcontext ))) {
- /* Authentication Required ( kerberos error ) */
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
- (char *)error_message( kerror ));
+ ap_log_error( APLOG_MARK, APLOG_ERR, s,
+ (char *)error_message( kerror ));
- return;
+ goto cleanup;
}
- if (( kerror = krb5_parse_name( kcontext, r->connection->user,
- &kprinc ))) {
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ /* use the path */
+ if (( kerror = krb5_cc_resolve( kcontext, K5PATH, &kccache )) != 0 ) {
+ ap_log_error( APLOG_MARK, APLOG_ERR, s,
(char *)error_message( kerror ));
- return;
+ goto cleanup;
}
- snprintf( krbpath, sizeof( krbpath ), "/ticket/waklog" );
-
- if (( kerror = krb5_cc_resolve( kcontext, krbpath, &kccache )) != 0 ) {
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ if (( kerror = krb5_parse_name( kcontext, cfg->keytab_principal, &kprinc ))) {
+ ap_log_error( APLOG_MARK, APLOG_ERR, s,
(char *)error_message( kerror ));
- return;
+ goto cleanup;
}
krb5_get_init_creds_opt_init( &kopts );
- krb5_get_init_creds_opt_set_tkt_life( &kopts, 10*60*60 );
+ krb5_get_init_creds_opt_set_tkt_life( &kopts, TKT_LIFE );
krb5_get_init_creds_opt_set_renew_life( &kopts, 0 );
krb5_get_init_creds_opt_set_forwardable( &kopts, 1 );
krb5_get_init_creds_opt_set_proxiable( &kopts, 0 );
- if ( KEYTAB_PATH == '\0' ) {
- if (( kerror = krb5_kt_default_name(
- kcontext, ktbuf, MAX_KEYTAB_NAME_LEN )) != 0 ) {
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
- (char *)error_message( kerror ));
+ /* keytab from config */
+ strncpy( ktbuf, cfg->keytab, sizeof( ktbuf ) - 1 );
- return;
- }
- } else {
- if ( strlen( KEYTAB_PATH ) > MAX_KEYTAB_NAME_LEN ) {
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
- "server configuration error" );
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, s,
+ "mod_waklog: waklog_kinit using: %s", ktbuf );
- return;
- }
- strcpy( ktbuf, KEYTAB_PATH );
+ if (( kerror = krb5_kt_resolve( kcontext, ktbuf, &keytab )) != 0 ) {
+ ap_log_error( APLOG_MARK, APLOG_ERR, s,
+ (char *)error_message( kerror ));
+
+ goto cleanup;
}
- if (( kerror = krb5_kt_resolve( kcontext, ktbuf, &keytab )) != 0 ) {
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ /* get the krbtgt */
+ if (( kerror = krb5_get_init_creds_keytab( kcontext, &v5creds,
+ kprinc, keytab, 0, NULL, &kopts ))) {
+
+ ap_log_error( APLOG_MARK, APLOG_ERR, s,
(char *)error_message( kerror ));
-
- return;
+
+ goto cleanup;
}
- if (( kerror = krb5_sname_to_principal( kcontext, NULL, "cosign",
- KRB5_NT_SRV_HST, &sprinc )) != 0 ) {
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ if (( kerror = krb5_verify_init_creds( kcontext, &v5creds,
+ kprinc, keytab, NULL, NULL )) != 0 ) {
+
+ ap_log_error( APLOG_MARK, APLOG_ERR, s,
(char *)error_message( kerror ));
-
- return;
+
+ goto cleanup;
}
- if (( kerror = krb5_get_init_creds_keytab( kcontext, &kcreds,
- kprinc, keytab, NULL, IN_TKT_SERVICE, &kopts ))) {
+ if (( kerror = krb5_cc_initialize( kcontext, kccache, kprinc )) != 0 ) {
+ ap_log_error( APLOG_MARK, APLOG_ERR, s,
+ (char *)error_message( kerror ));
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ goto cleanup;
+ }
+
+ kerror = krb5_cc_store_cred( kcontext, kccache, &v5creds );
+ krb5_free_cred_contents( kcontext, &v5creds );
+ if ( kerror != 0 ) {
+ ap_log_error( APLOG_MARK, APLOG_ERR, s,
(char *)error_message( kerror ));
- return;
+ goto cleanup;
}
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, s,
+ "mod_waklog: waklog_kinit success" );
- (void)krb5_kt_close( kcontext, keytab );
- krb5_free_principal( kcontext, sprinc );
+cleanup:
+ if ( keytab )
+ (void)krb5_kt_close( kcontext, keytab );
+ if ( kprinc )
+ krb5_free_principal( kcontext, kprinc );
+ if ( kccache )
+ krb5_cc_close( kcontext, kccache );
+ if ( kcontext )
+ krb5_free_context( kcontext );
- if (( kerror = krb5_cc_initialize( kcontext, kccache, kprinc )) != 0 ) {
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, s,
+ "mod_waklog: waklog_kinit: exiting" );
+
+ return( 0 );
+}
+
+
+ static void
+waklog_aklog( request_rec *r )
+{
+ int rc;
+ char buf[ 2048 ];
+ const char *k4path = NULL;
+ const char *k5path = NULL;
+ krb5_error_code kerror;
+ krb5_context kcontext = NULL;
+ krb5_creds increds;
+ krb5_creds *v5credsp = NULL;
+ krb5_ccache kccache = NULL;
+ struct ktc_principal server = { "afs", "", "" };
+ struct ktc_principal client;
+ struct ktc_token token;
+ waklog_host_config *cfg;
+ int buflen;
+
+ k5path = ap_table_get( r->subprocess_env, "KRB5CCNAME" );
+ k4path = ap_table_get( r->subprocess_env, "KRBTKFILE" );
+
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: waklog_aklog called: k5path: %s, k4path: %s", k5path, k4path );
+
+ if ( !k5path || !k4path ) {
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: waklog_aklog giving up" );
+ goto cleanup;
+ }
+
+ /*
+ ** Get/build creds from file/tgs, then see if we need to SetToken
+ */
+
+ if (( kerror = krb5_init_context( &kcontext ))) {
+ /* Authentication Required ( kerberos error ) */
ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
(char *)error_message( kerror ));
-
- return;
+
+ goto cleanup;
}
- if (( kerror = krb5_cc_store_cred( kcontext, kccache, &kcreds )) != 0 ) {
+ memset( (char *)&increds, 0, sizeof(increds));
+
+ cfg = (waklog_host_config *) ap_get_module_config(
+ r->server->module_config, &waklog_module );
+
+ /* afs/<cell> or afs */
+ strncpy( buf, "afs", sizeof( buf ) - 1 );
+ if ( strcmp( cfg->afs_cell, AFS_CELL ) ) {
+ strncat( buf, "/" , sizeof( buf ) - strlen( buf ) - 1 );
+ strncat( buf, cfg->afs_cell, sizeof( buf ) - strlen( buf ) - 1 );
+ }
+
+ /* set server part */
+ if (( kerror = krb5_parse_name( kcontext, buf, &increds.server ))) {
ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
(char *)error_message( kerror ));
-
- return;
+
+ goto cleanup;
+ }
+
+ if (( kerror = krb5_cc_resolve( kcontext, k5path, &kccache )) != 0 ) {
+ ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ (char *)error_message( kerror ));
+
+ goto cleanup;
+ }
+
+ /* set client part */
+ krb5_cc_get_principal( kcontext, kccache, &increds.client );
+
+ increds.times.endtime = 0;
+ /* Ask for DES since that is what V4 understands */
+ increds.keyblock.enctype = ENCTYPE_DES_CBC_CRC;
+
+ /* get the V5 credentials */
+ if (( kerror = krb5_get_credentials( kcontext, 0, kccache,
+ &increds, &v5credsp ) ) ) {
+ ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ "mod_waklog: krb5_get_credentials: %s", error_message( kerror ));
+ goto cleanup;
+ }
+
+ /* don't overflor */
+ if ( v5credsp->ticket.length >= 344 ) { /* from krb524d.c */
+ ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ "mod_waklog: ticket size (%d) to big to fake", v5credsp->ticket.length );
+ goto cleanup;
+ }
+
+ /* assemble the token */
+ memset( &token, 0, sizeof( struct ktc_token ) );
+
+ token.startTime = v5credsp->times.starttime ? v5credsp->times.starttime : v5credsp->times.authtime;
+ token.endTime = v5credsp->times.endtime;
+ memmove( &token.sessionKey, v5credsp->keyblock.contents, v5credsp->keyblock.length );
+ token.kvno = RXKAD_TKT_TYPE_KERBEROS_V5;
+ token.ticketLen = v5credsp->ticket.length;
+ memmove( token.ticket, v5credsp->ticket.data, token.ticketLen );
+
+ /* make sure we have to do this */
+ if ( child.token.kvno != token.kvno ||
+ child.token.ticketLen != token.ticketLen ||
+ (memcmp( &child.token.sessionKey, &token.sessionKey,
+ sizeof( token.sessionKey ) )) ||
+ (memcmp( child.token.ticket, token.ticket, token.ticketLen )) ) {
+
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: client: %s", buf );
+
+ /* build the name */
+ memmove( buf, v5credsp->client->data[0].data, v5credsp->client->data[0].length );
+ buf[ v5credsp->client->data[0].length ] = '\0';
+ if ( v5credsp->client->length > 1 ) {
+ strncat( buf, ".", sizeof( buf ) - strlen( buf ) - 1 );
+ buflen = strlen( buf );
+ memmove( buf + buflen, v5credsp->client->data[1].data, v5credsp->client->data[1].length );
+ buf[ buflen + v5credsp->client->data[1].length ] = '\0';
+ }
+
+ /* assemble the client */
+ strncpy( client.name, buf, sizeof( client.name ) - 1 );
+ strncpy( client.instance, "", sizeof( client.instance) - 1 );
+ memmove( buf, v5credsp->client->realm.data, v5credsp->client->realm.length );
+ buf[ v5credsp->client->realm.length ] = '\0';
+ strncpy( client.cell, buf, sizeof( client.cell ) - 1 );
+
+ /* assemble the server's cell */
+ strncpy( server.cell, cfg->afs_cell , sizeof( server.cell ) - 1 );
+
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: server: name=%s, instance=%s, cell=%s",
+ server.name, server.instance, server.cell );
+
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: client: name=%s, instance=%s, cell=%s",
+ client.name, client.instance, client.cell );
+
+ /* use the path */
+ krb_set_tkt_string( (char *)k4path );
+
+ /* rumor: we have to do this for AIX 4.1.4 with AFS 3.4+ */
+ write( 2, "", 0 );
+
+ if ( ( rc = ktc_SetToken( &server, &token, &client, 0 ) ) ) {
+ ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
+ "mod_waklog: settoken returned %d", rc );
+ goto cleanup;
+ }
+
+ /* save this */
+ memmove( &child.token, &token, sizeof( struct ktc_token ) );
+
+ /* we'll need to unlog when this connection is done. */
+ ap_register_cleanup( r->pool, (void *)r, token_cleanup, ap_null_cleanup );
}
- krb5_free_cred_contents( kcontext, &kcreds );
- krb5_free_principal( kcontext, kprinc );
- krb5_cc_close( kcontext, kccache );
- krb5_free_context( kcontext );
+cleanup:
+ if ( v5credsp )
+ krb5_free_cred_contents( kcontext, v5credsp );
+ if ( increds.client )
+ krb5_free_principal( kcontext, increds.client );
+ if ( increds.server )
+ krb5_free_principal( kcontext, increds.server );
+ if ( kccache )
+ krb5_cc_close( kcontext, kccache );
+ if ( kcontext )
+ krb5_free_context( kcontext );
+
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: finished with waklog_aklog" );
+
+ return;
+
+}
+
+ static int
+waklog_child_routine( void *s, child_info *pinfo )
+{
+ if ( !getuid() ) {
+ ap_log_error( APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, s,
+ "mod_waklog: waklog_child_routine called as root" );
+
+ /* this was causing the credential file to get owned by root */
+ setgid(ap_group_id);
+ setuid(ap_user_id);
+ }
+
+ while( 1 ) {
+ waklog_kinit( s );
+ sleep( SLEEP_TIME );
+ }
+
+}
+
+
+ static void
+waklog_init( server_rec *s, pool *p )
+{
+ extern char *version;
+ int pid;
+
+ ap_log_error( APLOG_MARK, APLOG_INFO|APLOG_NOERRNO, s,
+ "mod_waklog: version %s initialized.", version );
+
+ pid = ap_bspawn_child( p, waklog_child_routine, s, kill_always,
+ NULL, NULL, NULL );
+
+ ap_log_error( APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, s,
+ "mod_waklog: ap_bspawn_child: %d.", pid );
}
static int
-waklog_get_tokens( request_rec *r )
+waklog_phase0( request_rec *r )
{
- CREDENTIALS cr;
- struct ViceIoctl vi;
- struct ClearToken ct;
- int i, rc;
- char buf[ 1024 ], *s;
- char *urealm = "UMICH.EDU";
- char *lrealm = "umich.edu";
waklog_host_config *cfg;
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: phase0 called" );
+
/* directory config? */
cfg = (waklog_host_config *)ap_get_module_config(
r->per_dir_config, &waklog_module);
/* server config? */
if ( !cfg->configured ) {
- cfg = (waklog_host_config *)ap_get_module_config(
- r->server->module_config, &waklog_module);
+ cfg = (waklog_host_config *)ap_get_module_config(
+ r->server->module_config, &waklog_module);
}
if ( !cfg->protect ) {
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: phase0 declining" );
return( DECLINED );
}
- if ( cfg->keytab ) {
- ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
- "mod_waklog: keytab is configured: %s", cfg->keytab );
-
- /* check for afs token? */
-
- /* authenticate using keytab file */
-
- /* 524 */
+ /* do this only if we are still unauthenticated */
+ if ( !child.token.ticketLen ) {
- /* get afs token */
+ /* set our environment variables */
+ ap_table_set( r->subprocess_env, "KRB5CCNAME", K5PATH );
+ ap_table_set( r->subprocess_env, "KRBTKFILE", K4PATH );
- return OK;
+ /* stuff the credentials into the kernel */
+ waklog_aklog( r );
}
+
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: phase0 returning" );
+ return DECLINED;
+}
- if (( rc = krb_get_cred( "afs", "", urealm, &cr )) != KSUCCESS ) {
- ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
- "mod_waklog: krb_get_cred: %s", krb_err_txt[ rc ] );
- if (( rc = get_ad_tkt( "afs", "", urealm, 255 )) != KSUCCESS ) {
- ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_DEBUG, r->server,
- "mod_waklog: get_ad_tkt: %s", krb_err_txt[ rc ] );
+ static int
+waklog_phase7( request_rec *r )
+{
+ waklog_host_config *cfg;
- /* fail here or just let AFS deny permission? */
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: phase7 called" );
- return OK;
- }
+ /* directory config? */
+ cfg = (waklog_host_config *)ap_get_module_config(
+ r->per_dir_config, &waklog_module);
- if (( rc = krb_get_cred( "afs", "", urealm, &cr )) != KSUCCESS ) {
- ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
- "mod_waklog: krb_get_cred: %s", krb_err_txt[ rc ] );
- return OK;
- }
+ /* server config? */
+ if ( !cfg->configured ) {
+ cfg = (waklog_host_config *)ap_get_module_config(
+ r->server->module_config, &waklog_module);
}
- ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_DEBUG, r->server,
- "mod_waklog: %s.%s@%s", cr.service, cr.instance, cr.realm );
- ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_DEBUG, r->server,
- "mod_waklog: %d %d %d", cr.lifetime, cr.kvno, cr.issue_date );
- ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_DEBUG, r->server,
- "mod_waklog: %s %s", cr.pname, cr.pinst );
- ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_DEBUG, r->server,
- "mod_waklog: %d", cr.ticket_st.length );
-
- s = buf;
- memmove( s, &cr.ticket_st.length, sizeof( int ));
- s += sizeof( int );
- memmove( s, cr.ticket_st.dat, cr.ticket_st.length );
- s += cr.ticket_st.length;
-
- ct.AuthHandle = cr.kvno;
- memmove( ct.HandShakeKey, cr.session, sizeof( cr.session ));
- ct.ViceId = 0;
- ct.BeginTimestamp = cr.issue_date;
- ct.EndTimestamp = krb_life_to_time( cr.issue_date, cr.lifetime );
-
- i = sizeof( struct ClearToken );
- memmove( s, &i, sizeof( int ));
- s += sizeof( int );
- memmove( s, &ct, sizeof( struct ClearToken ));
- s += sizeof( struct ClearToken );
-
- i = 0;
- memmove( s, &i, sizeof( int ));
- s += sizeof( int );
-
- strcpy( s, lrealm );
- s += strlen( lrealm ) + 1;
-
- vi.in = buf;
- vi.in_size = s - buf;
- vi.out = buf;
- vi.out_size = sizeof( buf );
-
- if ( pioctl( 0, VIOCSETTOK, &vi, 0 ) < 0 ) {
- ap_log_error( APLOG_MARK, APLOG_ERR, r->server,
- "mod_waklog: pioctl failed" );
+ if ( !cfg->protect ) {
+ return( DECLINED );
}
- /* we'll need to unlog when this connection is done. */
- ap_register_cleanup( r->pool, (void *)r, pioctl_cleanup, ap_null_cleanup );
+ /* stuff the credentials into the kernel */
+ waklog_aklog( r );
- ap_log_error( APLOG_MARK, APLOG_DEBUG|APLOG_NOERRNO, r->server,
- "mod_waklog: finished with get_token" );
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, r->server,
+ "mod_waklog: phase7 returning" );
- return OK;
+ return DECLINED;
}
+ static void
+waklog_new_connection( conn_rec *c ) {
+ ap_log_error( APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, c->server,
+ "mod_waklog: new_connection called: pid: %d", getpid() );
+ return;
+}
module MODULE_VAR_EXPORT waklog_module = {
STANDARD_MODULE_STUFF,
- waklog_init, /* module initializer */
+ waklog_init, /* module initializer */
waklog_create_dir_config, /* create per-dir config structures */
NULL, /* merge per-dir config structures */
waklog_create_server_config, /* create per-server config structures */
NULL, /* [#5] check if the user is ok _here_ */
NULL, /* [#3] check access by host address */
NULL, /* [#6] determine MIME type */
- waklog_get_tokens, /* [#7] pre-run fixups */
+ waklog_phase7, /* [#7] pre-run fixups */
NULL, /* [#9] log a transaction */
NULL, /* [#2] header parser */
waklog_child_init, /* child_init */
NULL, /* child_exit */
- NULL /* [#0] post read-request */
+ waklog_phase0 /* [#0] post read-request */
#ifdef EAPI
,NULL, /* EAPI: add_module */
NULL, /* EAPI: remove_module */
NULL, /* EAPI: rewrite_command */
- NULL /* EAPI: new_connection */
+ waklog_new_connection /* EAPI: new_connection */
#endif
};
HCoop / hcoop / debian / libapache-mod-waklog.git / blobdiff