Add some more pam modules:
[dragonfly.git] / lib / pam_module / pam_login_access / pam_login_access.c
1 /*-
2  * Copyright (c) 2001 Mark R V Murray
3  * All rights reserved.
4  * Copyright (c) 2001 Networks Associates Technology, Inc.
5  * All rights reserved.
6  *
7  * Portions of this software were developed for the FreeBSD Project by
8  * ThinkSec AS and NAI Labs, the Security Research Division of Network
9  * Associates, Inc.  under DARPA/SPAWAR contract N66001-01-C-8035
10  * ("CBOSS"), as part of the DARPA CHATS research program.
11  *
12  * Redistribution and use in source and binary forms, with or without
13  * modification, are permitted provided that the following conditions
14  * are met:
15  * 1. Redistributions of source code must retain the above copyright
16  *    notice, this list of conditions and the following disclaimer.
17  * 2. Redistributions in binary form must reproduce the above copyright
18  *    notice, this list of conditions and the following disclaimer in the
19  *    documentation and/or other materials provided with the distribution.
20  * 3. The name of the author may not be used to endorse or promote
21  *    products derived from this software without specific prior written
22  *    permission.
23  *
24  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34  * SUCH DAMAGE.
35  *
36  * $FreeBSD: src/lib/libpam/modules/pam_login_access/pam_login_access.c,v 1.11 2004/02/10 10:13:21 des Exp $
37  */
38
39 #define _BSD_SOURCE
40
41 #include <sys/param.h>
42
43 #include <syslog.h>
44 #include <unistd.h>
45
46 #define PAM_SM_ACCOUNT
47
48 #include <security/pam_appl.h>
49 #include <security/pam_modules.h>
50 #include <security/pam_mod_misc.h>
51
52 #include "pam_login_access.h"
53
54 PAM_EXTERN int
55 pam_sm_acct_mgmt(pam_handle_t *pamh, int flags __unused,
56                  int argc __unused, const char *argv[] __unused)
57 {
58         const void *rhost, *tty, *user;
59         char hostname[MAXHOSTNAMELEN];
60         int pam_err;
61
62         pam_err = pam_get_item(pamh, PAM_USER, &user);
63         if (pam_err != PAM_SUCCESS)
64                 return (pam_err);
65
66         if (user == NULL)
67                 return (PAM_SERVICE_ERR);
68
69         PAM_LOG("Got user: %s", (const char *)user);
70
71         pam_err = pam_get_item(pamh, PAM_RHOST, &rhost);
72         if (pam_err != PAM_SUCCESS)
73                 return (pam_err);
74
75         pam_err = pam_get_item(pamh, PAM_TTY, &tty);
76         if (pam_err != PAM_SUCCESS)
77                 return (pam_err);
78
79         gethostname(hostname, sizeof hostname);
80
81         if (rhost == NULL || *(const char *)rhost == '\0') {
82                 PAM_LOG("Checking login.access for user %s on tty %s",
83                     (const char *)user, (const char *)tty);
84                 if (login_access(user, tty) != 0)
85                         return (PAM_SUCCESS);
86                 PAM_VERBOSE_ERROR("%s is not allowed to log in on %s",
87                     user, tty);
88         } else {
89                 PAM_LOG("Checking login.access for user %s from host %s",
90                     (const char *)user, (const char *)rhost);
91                 if (login_access(user, rhost) != 0)
92                         return (PAM_SUCCESS);
93                 PAM_VERBOSE_ERROR("%s is not allowed to log in from %s",
94                     user, rhost);
95         }
96
97         return (PAM_AUTH_ERR);
98 }
99
100 PAM_MODULE_ENTRY("pam_login_access");