source3/auth/pampass.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3    PAM Password checking
   4    Copyright (C) Andrew Tridgell 1992-2001
   5    Copyright (C) John H Terpsta 1999-2001
   6    Copyright (C) Andrew Bartlett 2001
   7    Copyright (C) Jeremy Allison 2001
   8
   9    This program is free software; you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation; either version 3 of the License, or
  12    (at your option) any later version.
  13
  14    This program is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21 */
  22
  23 /*
  24  * This module provides PAM based functions for validation of
  25  * username/password pairs, account managment, session and access control.
  26  * Note: SMB password checking is done in smbpass.c
  27  */
  28
  29 #include "includes.h"
  30 #include "auth.h"
  31 #include "../libcli/auth/pam_errors.h"
  32 #include "lib/util/string_wrappers.h"
  33
  34 #undef DBGC_CLASS
  35 #define DBGC_CLASS DBGC_AUTH
  36
  37 #ifdef WITH_PAM
  38
  39 /*******************************************************************
  40  * Handle PAM authentication
  41  *      - Access, Authentication, Session, Password
  42  *   Note: See PAM Documentation and refer to local system PAM implementation
  43  *   which determines what actions/limitations/allowances become affected.
  44  *********************************************************************/
  45
  46 #if defined(HAVE_SECURITY_PAM_APPL_H)
  47 #include <security/pam_appl.h>
  48 #elif defined(HAVE_PAM_PAM_APPL_H)
  49 #include <pam/pam_appl.h>
  50 #endif
  51
  52 /*
  53  * Structure used to communicate between the conversation function
  54  * and the server_login/change password functions.
  55  */
  56
  57 struct smb_pam_userdata {
  58         const char *PAM_username;
  59         const char *PAM_password;
  60         const char *PAM_newpassword;
  61 };
  62
  63 typedef int (*smb_pam_conv_fn)(int, const struct pam_message **, struct pam_response **, void *appdata_ptr);
  64
  65 static char *smb_pam_copy_string(const char *s)
  66 {
  67         if (s == NULL) {
  68                 return NULL;
  69         }
  70         return SMB_STRDUP(s);
  71 }
  72
  73 static char *smb_pam_copy_fstring(const char *s)
  74 {
  75         if (s[0] == '\0') {
  76                 return NULL;
  77         }
  78         return SMB_STRDUP(s);
  79 }
  80
  81 /*******************************************************************
  82  PAM error handler.
  83  *********************************************************************/
  84
  85 static bool smb_pam_error_handler(pam_handle_t *pamh, int pam_error, const char *msg, int dbglvl)
  86 {
  87
  88         if( pam_error != PAM_SUCCESS) {
  89                 DEBUG(dbglvl, ("smb_pam_error_handler: PAM: %s : %s\n",
  90                                 msg, pam_strerror(pamh, pam_error)));
  91                 return False;
  92         }
  93         return True;
  94 }
  95
  96 /*******************************************************************
  97  This function is a sanity check, to make sure that we NEVER report
  98  failure as sucess.
  99 *********************************************************************/
 100
 101 static bool smb_pam_nt_status_error_handler(pam_handle_t *pamh, int pam_error,
 102                                             const char *msg, int dbglvl,
 103                                             NTSTATUS *nt_status)
 104 {
 105         *nt_status = pam_to_nt_status(pam_error);
 106
 107         if (smb_pam_error_handler(pamh, pam_error, msg, dbglvl))
 108                 return True;
 109
 110         if (NT_STATUS_IS_OK(*nt_status)) {
 111                 /* Complain LOUDLY */
 112                 DEBUG(0, ("smb_pam_nt_status_error_handler: PAM: BUG: PAM and NT_STATUS \
 113 error MISMATCH, forcing to NT_STATUS_LOGON_FAILURE"));
 114                 *nt_status = NT_STATUS_LOGON_FAILURE;
 115         }
 116         return False;
 117 }
 118
 119 /*
 120  * PAM conversation function
 121  * Here we assume (for now, at least) that echo on means login name, and
 122  * echo off means password.
 123  */
 124
 125 static int smb_pam_conv(int num_msg,
 126                     const struct pam_message **msg,
 127                     struct pam_response **resp,
 128                     void *appdata_ptr)
 129 {
 130         int replies = 0;
 131         struct pam_response *reply = NULL;
 132         struct smb_pam_userdata *udp = (struct smb_pam_userdata *)appdata_ptr;
 133
 134         *resp = NULL;
 135
 136         if (num_msg <= 0)
 137                 return PAM_CONV_ERR;
 138
 139         /*
 140          * Apparantly HPUX has a buggy PAM that doesn't support the
 141          * appdata_ptr. Fail if this is the case. JRA.
 142          */
 143
 144         if (udp == NULL) {
 145                 DEBUG(0,("smb_pam_conv: PAM on this system is broken - appdata_ptr == NULL !\n"));
 146                 return PAM_CONV_ERR;
 147         }
 148
 149         reply = SMB_MALLOC_ARRAY(struct pam_response, num_msg);
 150         if (!reply)
 151                 return PAM_CONV_ERR;
 152
 153         memset(reply, '\0', sizeof(struct pam_response) * num_msg);
 154
 155         for (replies = 0; replies < num_msg; replies++) {
 156                 switch (msg[replies]->msg_style) {
 157                         case PAM_PROMPT_ECHO_ON:
 158                                 reply[replies].resp_retcode = PAM_SUCCESS;
 159                                 reply[replies].resp = smb_pam_copy_string(
 160                                         udp->PAM_username);
 161                                 /* PAM frees resp */
 162                                 break;
 163
 164                         case PAM_PROMPT_ECHO_OFF:
 165                                 reply[replies].resp_retcode = PAM_SUCCESS;
 166                                 reply[replies].resp = smb_pam_copy_string(
 167                                         udp->PAM_password);
 168                                 /* PAM frees resp */
 169                                 break;
 170
 171                         case PAM_TEXT_INFO:
 172                                 FALL_THROUGH;
 173
 174                         case PAM_ERROR_MSG:
 175                                 /* ignore it... */
 176                                 reply[replies].resp_retcode = PAM_SUCCESS;
 177                                 reply[replies].resp = NULL;
 178                                 break;
 179
 180                         default:
 181                                 /* Must be an error of some sort... */
 182                                 SAFE_FREE(reply);
 183                                 return PAM_CONV_ERR;
 184                 }
 185         }
 186         if (reply)
 187                 *resp = reply;
 188         return PAM_SUCCESS;
 189 }
 190
 191 /*
 192  * PAM password change conversation function
 193  * Here we assume (for now, at least) that echo on means login name, and
 194  * echo off means password.
 195  */
 196
 197 static void special_char_sub(char *buf)
 198 {
 199         all_string_sub(buf, "\\n", "", 0);
 200         all_string_sub(buf, "\\r", "", 0);
 201         all_string_sub(buf, "\\s", " ", 0);
 202         all_string_sub(buf, "\\t", "\t", 0);
 203 }
 204
 205 static void pwd_sub(char *buf, const char *username, const char *oldpass, const char *newpass)
 206 {
 207         fstring_sub(buf, "%u", username);
 208         all_string_sub(buf, "%o", oldpass, sizeof(fstring));
 209         all_string_sub(buf, "%n", newpass, sizeof(fstring));
 210 }
 211
 212
 213 struct chat_struct {
 214         struct chat_struct *next, *prev;
 215         fstring prompt;
 216         fstring reply;
 217 };
 218
 219 /**************************************************************
 220  Create a linked list containing chat data.
 221 ***************************************************************/
 222
 223 static struct chat_struct *make_pw_chat(const char *p)
 224 {
 225         char *prompt;
 226         char *reply;
 227         struct chat_struct *list = NULL;
 228         struct chat_struct *t;
 229         TALLOC_CTX *frame = talloc_stackframe();
 230
 231         while (1) {
 232                 t = SMB_MALLOC_P(struct chat_struct);
 233                 if (!t) {
 234                         DEBUG(0,("make_pw_chat: malloc failed!\n"));
 235                         TALLOC_FREE(frame);
 236                         return NULL;
 237                 }
 238
 239                 ZERO_STRUCTP(t);
 240
 241                 DLIST_ADD_END(list, t);
 242
 243                 if (!next_token_talloc(frame, &p, &prompt, NULL)) {
 244                         break;
 245                 }
 246
 247                 if (strequal(prompt,".")) {
 248                         fstrcpy(prompt,"*");
 249                 }
 250
 251                 special_char_sub(prompt);
 252                 fstrcpy(t->prompt, prompt);
 253                 (void)strlower_m(t->prompt);
 254                 trim_char(t->prompt, ' ', ' ');
 255
 256                 if (!next_token_talloc(frame, &p, &reply, NULL)) {
 257                         break;
 258                 }
 259
 260                 if (strequal(reply,".")) {
 261                         fstrcpy(reply,"");
 262                 }
 263
 264                 special_char_sub(reply);
 265                 fstrcpy(t->reply, reply);
 266                 (void)strlower_m(t->reply);
 267                 trim_char(t->reply, ' ', ' ');
 268
 269         }
 270         TALLOC_FREE(frame);
 271         return list;
 272 }
 273
 274 static void free_pw_chat(struct chat_struct *list)
 275 {
 276     while (list) {
 277         struct chat_struct *old_head = list;
 278         DLIST_REMOVE(list, list);
 279         SAFE_FREE(old_head);
 280     }
 281 }
 282
 283 static int smb_pam_passchange_conv(int num_msg,
 284                                 const struct pam_message **msg,
 285                                 struct pam_response **resp,
 286                                 void *appdata_ptr)
 287 {
 288         int replies = 0;
 289         struct pam_response *reply = NULL;
 290         fstring current_prompt;
 291         fstring current_reply;
 292         struct smb_pam_userdata *udp = (struct smb_pam_userdata *)appdata_ptr;
 293         struct chat_struct *pw_chat;
 294         struct chat_struct *t;
 295         const struct loadparm_substitution *lp_sub =
 296                 loadparm_s3_global_substitution();
 297         bool found;
 298         *resp = NULL;
 299
 300         DEBUG(10,("smb_pam_passchange_conv: starting converstation for %d messages\n", num_msg));
 301
 302         if (num_msg <= 0)
 303                 return PAM_CONV_ERR;
 304
 305         if ((pw_chat = make_pw_chat(lp_passwd_chat(talloc_tos(), lp_sub))) == NULL)
 306                 return PAM_CONV_ERR;
 307
 308         /*
 309          * Apparantly HPUX has a buggy PAM that doesn't support the
 310          * appdata_ptr. Fail if this is the case. JRA.
 311          */
 312
 313         if (udp == NULL) {
 314                 DEBUG(0,("smb_pam_passchange_conv: PAM on this system is broken - appdata_ptr == NULL !\n"));
 315                 free_pw_chat(pw_chat);
 316                 return PAM_CONV_ERR;
 317         }
 318
 319         reply = SMB_MALLOC_ARRAY(struct pam_response, num_msg);
 320         if (!reply) {
 321                 DEBUG(0,("smb_pam_passchange_conv: malloc for reply failed!\n"));
 322                 free_pw_chat(pw_chat);
 323                 return PAM_CONV_ERR;
 324         }
 325
 326         for (replies = 0; replies < num_msg; replies++) {
 327                 found = False;
 328                 DEBUG(10,("smb_pam_passchange_conv: Processing message %d\n", replies));
 329                 switch (msg[replies]->msg_style) {
 330                 case PAM_PROMPT_ECHO_ON:
 331                         DEBUG(10,("smb_pam_passchange_conv: PAM_PROMPT_ECHO_ON: PAM said: %s\n", msg[replies]->msg));
 332                         fstrcpy(current_prompt, msg[replies]->msg);
 333                         trim_char(current_prompt, ' ', ' ');
 334                         for (t=pw_chat; t; t=t->next) {
 335
 336                                 DEBUG(10,("smb_pam_passchange_conv: PAM_PROMPT_ECHO_ON: trying to match |%s| to |%s|\n",
 337                                                 t->prompt, current_prompt ));
 338
 339                                 if (unix_wild_match(t->prompt, current_prompt)) {
 340                                         fstrcpy(current_reply, t->reply);
 341                                         DEBUG(10,("smb_pam_passchange_conv: PAM_PROMPT_ECHO_ON: We sent: %s\n", current_reply));
 342                                         pwd_sub(current_reply, udp->PAM_username, udp->PAM_password, udp->PAM_newpassword);
 343 #ifdef DEBUG_PASSWORD
 344                                         DEBUG(100,("smb_pam_passchange_conv: PAM_PROMPT_ECHO_ON: We actually sent: %s\n", current_reply));
 345 #endif
 346                                         reply[replies].resp_retcode = PAM_SUCCESS;
 347                                         reply[replies].resp = smb_pam_copy_fstring(
 348                                                 current_reply);
 349                                         found = True;
 350                                         break;
 351                                 }
 352                         }
 353                         /* PAM frees resp */
 354                         if (!found) {
 355                                 DEBUG(3,("smb_pam_passchange_conv: Could not find reply for PAM prompt: %s\n",msg[replies]->msg));
 356                                 free_pw_chat(pw_chat);
 357                                 SAFE_FREE(reply);
 358                                 return PAM_CONV_ERR;
 359                         }
 360                         break;
 361
 362                 case PAM_PROMPT_ECHO_OFF:
 363                         DEBUG(10,("smb_pam_passchange_conv: PAM_PROMPT_ECHO_OFF: PAM said: %s\n", msg[replies]->msg));
 364                         fstrcpy(current_prompt, msg[replies]->msg);
 365                         trim_char(current_prompt, ' ', ' ');
 366                         for (t=pw_chat; t; t=t->next) {
 367
 368                                 DEBUG(10,("smb_pam_passchange_conv: PAM_PROMPT_ECHO_OFF: trying to match |%s| to |%s|\n",
 369                                                 t->prompt, current_prompt ));
 370
 371                                 if (unix_wild_match(t->prompt, current_prompt)) {
 372                                         fstrcpy(current_reply, t->reply);
 373                                         DEBUG(10,("smb_pam_passchange_conv: PAM_PROMPT_ECHO_OFF: We sent: %s\n", current_reply));
 374                                         pwd_sub(current_reply, udp->PAM_username, udp->PAM_password, udp->PAM_newpassword);
 375                                         reply[replies].resp_retcode = PAM_SUCCESS;
 376                                         reply[replies].resp = smb_pam_copy_fstring(
 377                                                 current_reply);
 378 #ifdef DEBUG_PASSWORD
 379                                         DEBUG(100,("smb_pam_passchange_conv: PAM_PROMPT_ECHO_OFF: We actually sent: %s\n", current_reply));
 380 #endif
 381                                         found = True;
 382                                         break;
 383                                 }
 384                         }
 385                         /* PAM frees resp */
 386
 387                         if (!found) {
 388                                 DEBUG(3,("smb_pam_passchange_conv: Could not find reply for PAM prompt: %s\n",msg[replies]->msg));
 389                                 free_pw_chat(pw_chat);
 390                                 SAFE_FREE(reply);
 391                                 return PAM_CONV_ERR;
 392                         }
 393                         break;
 394
 395                 case PAM_TEXT_INFO:
 396                         FALL_THROUGH;
 397
 398                 case PAM_ERROR_MSG:
 399                         /* ignore it... */
 400                         reply[replies].resp_retcode = PAM_SUCCESS;
 401                         reply[replies].resp = NULL;
 402                         break;
 403
 404                 default:
 405                         /* Must be an error of some sort... */
 406                         free_pw_chat(pw_chat);
 407                         SAFE_FREE(reply);
 408                         return PAM_CONV_ERR;
 409                 }
 410         }
 411
 412         free_pw_chat(pw_chat);
 413         if (reply)
 414                 *resp = reply;
 415         return PAM_SUCCESS;
 416 }
 417
 418 /***************************************************************************
 419  Free up a malloced pam_conv struct.
 420 ****************************************************************************/
 421
 422 static void smb_free_pam_conv(struct pam_conv *pconv)
 423 {
 424         if (pconv)
 425                 SAFE_FREE(pconv->appdata_ptr);
 426
 427         SAFE_FREE(pconv);
 428 }
 429
 430 /***************************************************************************
 431  Allocate a pam_conv struct.
 432 ****************************************************************************/
 433
 434 static struct pam_conv *smb_setup_pam_conv(smb_pam_conv_fn smb_pam_conv_fnptr, const char *user,
 435                                         const char *passwd, const char *newpass)
 436 {
 437         struct pam_conv *pconv = SMB_MALLOC_P(struct pam_conv);
 438         struct smb_pam_userdata *udp = SMB_MALLOC_P(struct smb_pam_userdata);
 439
 440         if (pconv == NULL || udp == NULL) {
 441                 SAFE_FREE(pconv);
 442                 SAFE_FREE(udp);
 443                 return NULL;
 444         }
 445
 446         udp->PAM_username = user;
 447         udp->PAM_password = passwd;
 448         udp->PAM_newpassword = newpass;
 449
 450         pconv->conv = smb_pam_conv_fnptr;
 451         pconv->appdata_ptr = (void *)udp;
 452         return pconv;
 453 }
 454
 455 /*
 456  * PAM Closing out cleanup handler
 457  */
 458
 459 static bool smb_pam_end(pam_handle_t *pamh, struct pam_conv *smb_pam_conv_ptr)
 460 {
 461         int pam_error;
 462
 463         smb_free_pam_conv(smb_pam_conv_ptr);
 464
 465         if( pamh != NULL ) {
 466                 pam_error = pam_end(pamh, 0);
 467                 if(smb_pam_error_handler(pamh, pam_error, "End Cleanup Failed", 2) == True) {
 468                         DEBUG(4, ("smb_pam_end: PAM: PAM_END OK.\n"));
 469                         return True;
 470                 }
 471         }
 472         DEBUG(2,("smb_pam_end: PAM: not initialised"));
 473         return False;
 474 }
 475
 476 /*
 477  * Start PAM authentication for specified account
 478  */
 479
 480 static bool smb_pam_start(pam_handle_t **pamh, const char *user, const char *rhost, struct pam_conv *pconv)
 481 {
 482         int pam_error;
 483
 484         *pamh = (pam_handle_t *)NULL;
 485
 486         DEBUG(4,("smb_pam_start: PAM: Init user: %s\n", user));
 487
 488         pam_error = pam_start("samba", user, pconv, pamh);
 489         if( !smb_pam_error_handler(*pamh, pam_error, "Init Failed", 0)) {
 490                 *pamh = (pam_handle_t *)NULL;
 491                 return False;
 492         }
 493
 494 #ifdef HAVE_PAM_RHOST
 495         DEBUG(4,("smb_pam_start: PAM: setting rhost to: %s\n", rhost));
 496         pam_error = pam_set_item(*pamh, PAM_RHOST, rhost);
 497         if(!smb_pam_error_handler(*pamh, pam_error, "set rhost failed", 0)) {
 498                 smb_pam_end(*pamh, pconv);
 499                 *pamh = (pam_handle_t *)NULL;
 500                 return False;
 501         }
 502 #endif
 503 #ifdef HAVE_PAM_TTY
 504         DEBUG(4,("smb_pam_start: PAM: setting tty\n"));
 505         pam_error = pam_set_item(*pamh, PAM_TTY, "samba");
 506         if (!smb_pam_error_handler(*pamh, pam_error, "set tty failed", 0)) {
 507                 smb_pam_end(*pamh, pconv);
 508                 *pamh = (pam_handle_t *)NULL;
 509                 return False;
 510         }
 511 #endif
 512         DEBUG(4,("smb_pam_start: PAM: Init passed for user: %s\n", user));
 513         return True;
 514 }
 515
 516 /*
 517  * PAM Authentication Handler
 518  */
 519 static NTSTATUS smb_pam_auth(pam_handle_t *pamh, const char *user)
 520 {
 521         int pam_error;
 522         NTSTATUS nt_status = NT_STATUS_LOGON_FAILURE;
 523
 524         /*
 525          * To enable debugging set in /etc/pam.d/samba:
 526          *      auth required /lib/security/pam_pwdb.so nullok shadow audit
 527          */
 528
 529         DEBUG(4,("smb_pam_auth: PAM: Authenticate User: %s\n", user));
 530         pam_error = pam_authenticate(pamh, PAM_SILENT | (lp_null_passwords() ? 0 : PAM_DISALLOW_NULL_AUTHTOK));
 531         switch( pam_error ){
 532                 case PAM_AUTH_ERR:
 533                         DEBUG(2, ("smb_pam_auth: PAM: Authentication Error for user %s\n", user));
 534                         break;
 535                 case PAM_CRED_INSUFFICIENT:
 536                         DEBUG(2, ("smb_pam_auth: PAM: Insufficient Credentials for user %s\n", user));
 537                         break;
 538                 case PAM_AUTHINFO_UNAVAIL:
 539                         DEBUG(2, ("smb_pam_auth: PAM: Authentication Information Unavailable for user %s\n", user));
 540                         break;
 541                 case PAM_USER_UNKNOWN:
 542                         DEBUG(2, ("smb_pam_auth: PAM: Username %s NOT known to Authentication system\n", user));
 543                         break;
 544                 case PAM_MAXTRIES:
 545                         DEBUG(2, ("smb_pam_auth: PAM: One or more authentication modules reports user limit for user %s exceeeded\n", user));
 546                         break;
 547                 case PAM_ABORT:
 548                         DEBUG(0, ("smb_pam_auth: PAM: One or more PAM modules failed to load for user %s\n", user));
 549                         break;
 550                 case PAM_SUCCESS:
 551                         DEBUG(4, ("smb_pam_auth: PAM: User %s Authenticated OK\n", user));
 552                         break;
 553                 default:
 554                         DEBUG(0, ("smb_pam_auth: PAM: UNKNOWN ERROR while authenticating user %s\n", user));
 555                         break;
 556         }
 557
 558         smb_pam_nt_status_error_handler(pamh, pam_error, "Authentication Failure", 2, &nt_status);
 559         return nt_status;
 560 }
 561
 562 /*
 563  * PAM Account Handler
 564  */
 565 static NTSTATUS smb_pam_account(pam_handle_t *pamh, const char * user)
 566 {
 567         int pam_error;
 568         NTSTATUS nt_status = NT_STATUS_ACCOUNT_DISABLED;
 569
 570         DEBUG(4,("smb_pam_account: PAM: Account Management for User: %s\n", user));
 571         pam_error = pam_acct_mgmt(pamh, PAM_SILENT); /* Is user account enabled? */
 572         switch( pam_error ) {
 573                 case PAM_AUTHTOK_EXPIRED:
 574                         DEBUG(2, ("smb_pam_account: PAM: User %s is valid but password is expired\n", user));
 575                         break;
 576                 case PAM_ACCT_EXPIRED:
 577                         DEBUG(2, ("smb_pam_account: PAM: User %s no longer permitted to access system\n", user));
 578                         break;
 579                 case PAM_AUTH_ERR:
 580                         DEBUG(2, ("smb_pam_account: PAM: There was an authentication error for user %s\n", user));
 581                         break;
 582                 case PAM_PERM_DENIED:
 583                         DEBUG(0, ("smb_pam_account: PAM: User %s is NOT permitted to access system at this time\n", user));
 584                         break;
 585                 case PAM_USER_UNKNOWN:
 586                         DEBUG(0, ("smb_pam_account: PAM: User \"%s\" is NOT known to account management\n", user));
 587                         break;
 588                 case PAM_SUCCESS:
 589                         DEBUG(4, ("smb_pam_account: PAM: Account OK for User: %s\n", user));
 590                         break;
 591                 default:
 592                         DEBUG(0, ("smb_pam_account: PAM: UNKNOWN PAM ERROR (%d) during Account Management for User: %s\n", pam_error, user));
 593                         break;
 594         }
 595
 596         smb_pam_nt_status_error_handler(pamh, pam_error, "Account Check Failed", 2, &nt_status);
 597         return nt_status;
 598 }
 599
 600 /*
 601  * PAM Credential Setting
 602  */
 603
 604 static NTSTATUS smb_pam_setcred(pam_handle_t *pamh, const char * user)
 605 {
 606         int pam_error;
 607         NTSTATUS nt_status = NT_STATUS_NO_TOKEN;
 608
 609         /*
 610          * This will allow samba to aquire a kerberos token. And, when
 611          * exporting an AFS cell, be able to /write/ to this cell.
 612          */
 613
 614         DEBUG(4,("PAM: Account Management SetCredentials for User: %s\n", user));
 615         pam_error = pam_setcred(pamh, (PAM_ESTABLISH_CRED|PAM_SILENT));
 616         switch( pam_error ) {
 617                 case PAM_CRED_UNAVAIL:
 618                         DEBUG(0, ("smb_pam_setcred: PAM: Credentials not found for user:%s\n", user ));
 619                         break;
 620                 case PAM_CRED_EXPIRED:
 621                         DEBUG(0, ("smb_pam_setcred: PAM: Credentials for user: \"%s\" EXPIRED!\n", user ));
 622                         break;
 623                 case PAM_USER_UNKNOWN:
 624                         DEBUG(0, ("smb_pam_setcred: PAM: User: \"%s\" is NOT known so can not set credentials!\n", user ));
 625                         break;
 626                 case PAM_CRED_ERR:
 627                         DEBUG(0, ("smb_pam_setcred: PAM: Unknown setcredentials error - unable to set credentials for %s\n", user ));
 628                         break;
 629                 case PAM_SUCCESS:
 630                         DEBUG(4, ("smb_pam_setcred: PAM: SetCredentials OK for User: %s\n", user));
 631                         break;
 632                 default:
 633                         DEBUG(0, ("smb_pam_setcred: PAM: UNKNOWN PAM ERROR (%d) during SetCredentials for User: %s\n", pam_error, user));
 634                         break;
 635         }
 636
 637         smb_pam_nt_status_error_handler(pamh, pam_error, "Set Credential Failure", 2, &nt_status);
 638         return nt_status;
 639 }
 640
 641 /*
 642  * PAM Internal Session Handler
 643  */
 644 static bool smb_internal_pam_session(pam_handle_t *pamh, const char *user, const char *tty, bool flag)
 645 {
 646         int pam_error;
 647
 648 #ifdef HAVE_PAM_TTY
 649         DEBUG(4,("smb_internal_pam_session: PAM: tty set to: %s\n", tty));
 650         pam_error = pam_set_item(pamh, PAM_TTY, tty);
 651         if (!smb_pam_error_handler(pamh, pam_error, "set tty failed", 0))
 652                 return False;
 653 #endif
 654
 655         if (flag) {
 656                 pam_error = pam_open_session(pamh, PAM_SILENT);
 657                 if (!smb_pam_error_handler(pamh, pam_error, "session setup failed", 0))
 658                         return False;
 659         } else {
 660                 pam_setcred(pamh, (PAM_DELETE_CRED|PAM_SILENT)); /* We don't care if this fails */
 661                 pam_error = pam_close_session(pamh, PAM_SILENT); /* This will probably pick up the error anyway */
 662                 if (!smb_pam_error_handler(pamh, pam_error, "session close failed", 0))
 663                         return False;
 664         }
 665         return (True);
 666 }
 667
 668 /*
 669  * Internal PAM Password Changer.
 670  */
 671
 672 static bool smb_pam_chauthtok(pam_handle_t *pamh, const char * user)
 673 {
 674         int pam_error;
 675
 676         DEBUG(4,("smb_pam_chauthtok: PAM: Password Change for User: %s\n", user));
 677
 678         pam_error = pam_chauthtok(pamh, PAM_SILENT); /* Change Password */
 679
 680         switch( pam_error ) {
 681         case PAM_AUTHTOK_ERR:
 682                 DEBUG(2, ("PAM: unable to obtain the new authentication token - is password to weak?\n"));
 683                 break;
 684
 685         /* This doesn't seem to be defined on Solaris. JRA */
 686 #ifdef PAM_AUTHTOK_RECOVER_ERR
 687         case PAM_AUTHTOK_RECOVER_ERR:
 688                 DEBUG(2, ("PAM: unable to obtain the old authentication token - was the old password wrong?.\n"));
 689                 break;
 690 #endif
 691
 692         case PAM_AUTHTOK_LOCK_BUSY:
 693                 DEBUG(2, ("PAM: unable to change the authentication token since it is currently locked.\n"));
 694                 break;
 695         case PAM_AUTHTOK_DISABLE_AGING:
 696                 DEBUG(2, ("PAM: Authentication token aging has been disabled.\n"));
 697                 break;
 698         case PAM_PERM_DENIED:
 699                 DEBUG(0, ("PAM: Permission denied.\n"));
 700                 break;
 701         case PAM_TRY_AGAIN:
 702                 DEBUG(0, ("PAM: Could not update all authentication token(s). No authentication tokens were updated.\n"));
 703                 break;
 704         case PAM_USER_UNKNOWN:
 705                 DEBUG(0, ("PAM: User not known to PAM\n"));
 706                 break;
 707         case PAM_SUCCESS:
 708                 DEBUG(4, ("PAM: Account OK for User: %s\n", user));
 709                 break;
 710         default:
 711                 DEBUG(0, ("PAM: UNKNOWN PAM ERROR (%d) for User: %s\n", pam_error, user));
 712         }
 713
 714         if(!smb_pam_error_handler(pamh, pam_error, "Password Change Failed", 2)) {
 715                 return False;
 716         }
 717
 718         /* If this point is reached, the password has changed. */
 719         return True;
 720 }
 721
 722 /*
 723  * PAM Externally accessible Session handler
 724  */
 725
 726 bool smb_pam_claim_session(const char *user, const char *tty, const char *rhost)
 727 {
 728         pam_handle_t *pamh = NULL;
 729         struct pam_conv *pconv = NULL;
 730
 731         /* Ignore PAM if told to. */
 732
 733         if (!lp_obey_pam_restrictions())
 734                 return True;
 735
 736         if ((pconv = smb_setup_pam_conv(smb_pam_conv, user, NULL, NULL)) == NULL)
 737                 return False;
 738
 739         if (!smb_pam_start(&pamh, user, rhost, pconv))
 740                 return False;
 741
 742         if (!smb_internal_pam_session(pamh, user, tty, True)) {
 743                 smb_pam_end(pamh, pconv);
 744                 return False;
 745         }
 746
 747         return smb_pam_end(pamh, pconv);
 748 }
 749
 750 /*
 751  * PAM Externally accessible Session handler
 752  */
 753
 754 bool smb_pam_close_session(const char *user, const char *tty, const char *rhost)
 755 {
 756         pam_handle_t *pamh = NULL;
 757         struct pam_conv *pconv = NULL;
 758
 759         /* Ignore PAM if told to. */
 760
 761         if (!lp_obey_pam_restrictions())
 762                 return True;
 763
 764         if ((pconv = smb_setup_pam_conv(smb_pam_conv, user, NULL, NULL)) == NULL)
 765                 return False;
 766
 767         if (!smb_pam_start(&pamh, user, rhost, pconv))
 768                 return False;
 769
 770         if (!smb_internal_pam_session(pamh, user, tty, False)) {
 771                 smb_pam_end(pamh, pconv);
 772                 return False;
 773         }
 774
 775         return smb_pam_end(pamh, pconv);
 776 }
 777
 778 /*
 779  * PAM Externally accessible Account handler
 780  */
 781
 782 NTSTATUS smb_pam_accountcheck(const char *user, const char *rhost)
 783 {
 784         NTSTATUS nt_status = NT_STATUS_ACCOUNT_DISABLED;
 785         pam_handle_t *pamh = NULL;
 786         struct pam_conv *pconv = NULL;
 787
 788         /* Ignore PAM if told to. */
 789
 790         if (!lp_obey_pam_restrictions())
 791                 return NT_STATUS_OK;
 792
 793         if ((pconv = smb_setup_pam_conv(smb_pam_conv, user, NULL, NULL)) == NULL)
 794                 return NT_STATUS_NO_MEMORY;
 795
 796         if (!smb_pam_start(&pamh, user, rhost, pconv))
 797                 return NT_STATUS_ACCOUNT_DISABLED;
 798
 799         if (!NT_STATUS_IS_OK(nt_status = smb_pam_account(pamh, user)))
 800                 DEBUG(0, ("smb_pam_accountcheck: PAM: Account Validation Failed - Rejecting User %s!\n", user));
 801
 802         smb_pam_end(pamh, pconv);
 803         return nt_status;
 804 }
 805
 806 /*
 807  * PAM Password Validation Suite
 808  */
 809
 810 NTSTATUS smb_pam_passcheck(const char * user, const char * rhost,
 811                            const char * password)
 812 {
 813         pam_handle_t *pamh = NULL;
 814         NTSTATUS nt_status = NT_STATUS_LOGON_FAILURE;
 815         struct pam_conv *pconv = NULL;
 816
 817         /*
 818          * Note we can't ignore PAM here as this is the only
 819          * way of doing auths on plaintext passwords when
 820          * compiled --with-pam.
 821          */
 822
 823         if ((pconv = smb_setup_pam_conv(smb_pam_conv, user, password, NULL)) == NULL)
 824                 return NT_STATUS_LOGON_FAILURE;
 825
 826         if (!smb_pam_start(&pamh, user, rhost, pconv))
 827                 return NT_STATUS_LOGON_FAILURE;
 828
 829         if (!NT_STATUS_IS_OK(nt_status = smb_pam_auth(pamh, user))) {
 830                 DEBUG(0, ("smb_pam_passcheck: PAM: smb_pam_auth failed - Rejecting User %s !\n", user));
 831                 smb_pam_end(pamh, pconv);
 832                 return nt_status;
 833         }
 834
 835         if (!NT_STATUS_IS_OK(nt_status = smb_pam_account(pamh, user))) {
 836                 DEBUG(0, ("smb_pam_passcheck: PAM: smb_pam_account failed - Rejecting User %s !\n", user));
 837                 smb_pam_end(pamh, pconv);
 838                 return nt_status;
 839         }
 840
 841         if (!NT_STATUS_IS_OK(nt_status = smb_pam_setcred(pamh, user))) {
 842                 DEBUG(0, ("smb_pam_passcheck: PAM: smb_pam_setcred failed - Rejecting User %s !\n", user));
 843                 smb_pam_end(pamh, pconv);
 844                 return nt_status;
 845         }
 846
 847         smb_pam_end(pamh, pconv);
 848         return nt_status;
 849 }
 850
 851 /*
 852  * PAM Password Change Suite
 853  */
 854
 855 bool smb_pam_passchange(const char *user, const char *rhost,
 856                         const char *oldpassword, const char *newpassword)
 857 {
 858         /* Appropriate quantities of root should be obtained BEFORE calling this function */
 859         struct pam_conv *pconv = NULL;
 860         pam_handle_t *pamh = NULL;
 861
 862         if ((pconv = smb_setup_pam_conv(smb_pam_passchange_conv, user, oldpassword, newpassword)) == NULL)
 863                 return False;
 864
 865         if(!smb_pam_start(&pamh, user, rhost, pconv))
 866                 return False;
 867
 868         if (!smb_pam_chauthtok(pamh, user)) {
 869                 DEBUG(0, ("smb_pam_passchange: PAM: Password Change Failed for user %s!\n", user));
 870                 smb_pam_end(pamh, pconv);
 871                 return False;
 872         }
 873
 874         return smb_pam_end(pamh, pconv);
 875 }
 876
 877 #else
 878
 879 /* If PAM not used, no PAM restrictions on accounts. */
 880 NTSTATUS smb_pam_accountcheck(const char *user, const char *rhost)
 881 {
 882         return NT_STATUS_OK;
 883 }
 884
 885 /* If PAM not used, also no PAM restrictions on sessions. */
 886 bool smb_pam_claim_session(const char *user, const char *tty, const char *rhost)
 887 {
 888         return True;
 889 }
 890
 891 /* If PAM not used, also no PAM restrictions on sessions. */
 892 bool smb_pam_close_session(const char *in_user, const char *tty, const char *rhost)
 893 {
 894         return True;
 895 }
 896 #endif /* WITH_PAM */