summaryrefslogtreecommitdiff
path: root/lib/ZGetSender.c
blob: 3f3939215a99d71b1159a723e93450cdd3ac6aeb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
/* This file is part of the Project Athena Zephyr Notification System.
 * It contains source for the ZGetSender.c function.
 *
 *	Created by:	Robert French
 *
 *	$Source$
 *	$Author$
 *
 *	Copyright (c) 1987 by the Massachusetts Institute of Technology.
 *	For copying and distribution information, see the file
 *	"mit-copyright.h". 
 */
/* $Header$ */

#ifndef lint
static char rcsid_ZGetSender_c[] = "$Header$";
#endif lint

#include <zephyr/mit-copyright.h>

#include <zephyr/zephyr_internal.h>

#include <pwd.h>

uid_t getuid();

char *ZGetSender()
{
    struct passwd *pw;
#ifdef KERBEROS
    char pname[ANAME_SZ], pinst[INST_SZ];
    static char sender[ANAME_SZ+INST_SZ+REALM_SZ+3] = "";
#else
    static char sender[128] = "";
#endif

    /* Return it if already cached */
    if (*sender)
	return (sender);

#ifdef KERBEROS
    if (tf_init((char *)TKT_FILE, R_TKT_FIL) == KSUCCESS) {
	if ((tf_get_pname(pname) == KSUCCESS) &&
	    (tf_get_pinst(pinst) == KSUCCESS)) {
	    (void) sprintf(sender, "%s%s%s@%s", pname, (pinst[0]?".":""),
			   pinst, __Zephyr_realm);
	    tf_close();
	    return (sender);
	}
	tf_close();
    }
#endif KERBEROS

    /* XXX a uid_t is a u_short (now),  but getpwuid
     * wants an int. AARGH! */
    pw = getpwuid((int) getuid());
    if (!pw)
	return ("unknown");
    (void) sprintf(sender, "%s@%s", pw->pw_name, __Zephyr_realm);
    return (sender);
}