2 * Copyright 2000, International Business Machines Corporation and others.
5 * This software has been released under the terms of the IBM Public
6 * License. For details, see the LICENSE file in the top-level source
7 * directory or online at http://www.openafs.org/dl/license10.html
10 #include <afsconfig.h>
11 #include <afs/param.h>
28 #ifdef AFS_KERBEROS_ENV
29 #include <sys/types.h>
33 #include "AFS_component_version_number.c"
35 extern afs_int32 setpag();
43 char *shell = "/bin/sh";
47 * The following signal action for AIX is necessary so that in case of a
48 * crash (i.e. core is generated) we can include the user's data section
49 * in the core dump. Unfortunately, by default, only a partial core is
50 * generated which, in many cases, isn't too useful.
54 sigemptyset(&nsa.sa_mask);
55 nsa.sa_handler = SIG_DFL;
56 nsa.sa_flags = SA_FULLDUMP;
57 sigaction(SIGSEGV, &nsa, NULL);
63 fprintf(stderr, "Intruder alert.\n");
65 /* shell = pwe->pw_shell; */
70 #ifdef AFS_KERBEROS_ENV
78 fprintf(stderr, "No shell\n");
83 #ifdef AFS_KERBEROS_ENV
84 /* stolen from auth/ktc.c */
86 static afs_uint32 curpag()
88 afs_uint32 groups[NGROUPS_MAX];
92 if (getgroups(sizeof groups/sizeof groups[0], groups) < 2) return 0;
94 g0 = groups[0] & 0xffff;
95 g1 = groups[1] & 0xffff;
98 if ((g0 < 0xc000) && (g1 < 0xc000)) {
99 l = ((g0 & 0x3fff) << 14) | (g1 & 0x3fff);
101 h = (g1 >> 14) + h + h + h;
102 ret = ((h << 28) | l);
103 /* Additional testing */
104 if (((ret >> 24) & 0xff) == 'A')
114 extern char **environ;
118 char fname[256], *prefix = "/ticket/";
120 char **newenv, **senv, **denv;
122 if (stat("/ticket", &sbuf) == -1) {
126 pag = curpag() & 0xffffffff;
128 sprintf(fname, "%s%d", prefix, getuid());
131 sprintf(fname, "%sp%ld", prefix, pag);
133 /* ktc_set_tkt_string(fname); */
135 for (senv=environ, numenv=0; *senv; senv++) numenv++;
136 newenv = (char **)malloc((numenv+2) * sizeof(char *));
138 for (senv=environ, denv=newenv; *senv; *senv++) {
139 if (strncmp(*senv, "KRBTKFILE=", 10) != 0) *denv++ = *senv;
142 *denv = malloc(10 + strlen(fname) + 1);
143 strcpy(*denv, "KRBTKFILE=");
144 strcat(*denv, fname);