Subversion Repositories or1k

/*

 *  POSIX 1003.1b - 9.2.2 - User Database Access Routines

 *

 *  The license and distribution terms for this file may be

 *  found in the file LICENSE in this distribution or at

 *  http://www.OARcorp.com/rtems/license.html.

 *

 *  getpwent.c,v 1.7 2001/08/09 22:11:19 joel Exp

 */

#if HAVE_CONFIG_H

#include "config.h"

#endif

#include <stdio.h>

#include <sys/types.h>

#include <pwd.h>

#include <errno.h>

#include <unistd.h>

#include <stdlib.h>

#include <string.h>

#include <limits.h>

#include <fcntl.h>

#include <unistd.h>

#include <rtems/libio_.h>

static struct passwd pw_passwd;  /* password structure */

static FILE *passwd_fp;

/*

 *  The size of these buffers is arbitrary and there is no provision

 *  to protect any of them from overflowing.  The scanf patterns

 *  need to be changed to prevent overflowing.  In addition,

 *  the limits on these needs to be examined.

 */

static char logname[8];

static char password[1024];

static char comment[1024];

static char gecos[1024];

static char dir[1024];

static char shell[1024];

/*

 *  Initialize a useable but dummy /etc/passwd

 *

 *  NOTE: Ignore all errors.

 *

 */

static char etc_passwd_initted = 0;

void init_etc_passwd_group(void)

{

  FILE *fp;

  if ( etc_passwd_initted )

    return;

  etc_passwd_initted = 1;

  (void) mkdir( "/etc", 0777);

  /*

   *  Initialize /etc/passwd

   */

  if ((fp = fopen ("/etc/passwd", "w")) == NULL)

    return;

  fprintf( fp, "root:*:0:0:root,,,,:/:/bin/sh\n"

               "rtems:*:1:1:RTEMS Application,,,,:/:/bin/sh\n"

               "tty:!:2:2:tty owner,,,,:/:/bin/false\n" );

  fclose( fp );

  /*

   *  Initialize /etc/group

   */

  if ((fp = fopen ("/etc/group", "w")) == NULL)

    return;

  fprintf( fp, "root:x:0:root\n"

               "rtems:x:1:rtems\n"

               "tty:x:2:tty\n" );

  fclose( fp );

}

int getpwnam_r(

  const char     *name,

  struct passwd  *pwd,

  char           *buffer,

  size_t          bufsize,

  struct passwd **result

)

{

  FILE *fp;

  rtems_user_env_t * aux=rtems_current_user_env; /* save */

  init_etc_passwd_group();

  rtems_current_user_env=&rtems_global_user_env; /* set root */

  if ((fp = fopen ("/etc/passwd", "r")) == NULL) {

    errno = EINVAL;

    rtems_current_user_env=aux; /* restore */

    return -1;

  }

  while (fgets (buffer, bufsize, fp)) {

    sscanf (buffer, "%[^:]:%[^:]:%d:%d:%[^:]:%[^:]:%[^:]:%s\n",

        logname, password, &pwd->pw_uid,

        &pwd->pw_gid, comment, gecos,

        dir, shell);

    pwd->pw_name = logname;

    pwd->pw_passwd = password;

    pwd->pw_comment = comment;

    pwd->pw_gecos = gecos;

    pwd->pw_dir = dir;

    pwd->pw_shell = shell;

    if (!strcmp (logname, name)) {

      fclose (fp);

      *result = pwd;

      rtems_current_user_env=aux; /* restore */

      return 0;

    }

  }

  fclose (fp);

  errno = EINVAL;

    rtems_current_user_env=aux; /* restore */

  return -1;

}

struct passwd *getpwnam(

  const char *name

)

{

  char   buf[1024];

  struct passwd *p;

  if ( getpwnam_r( name, &pw_passwd, buf, 1024, &p ) )

    return NULL;

  return p;

}

int getpwuid_r(

  uid_t           uid,

  struct passwd  *pwd,

  char           *buffer,

  size_t          bufsize,

  struct passwd **result

)

{

  FILE *fp;

  rtems_user_env_t * aux=rtems_current_user_env; /* save */

  init_etc_passwd_group();

  rtems_current_user_env=&rtems_global_user_env; /* set root */

  if ((fp = fopen ("/etc/passwd", "r")) == NULL) {

    errno = EINVAL;

    rtems_current_user_env=aux; /* restore */

    return -1;

  }

  while (fgets (buffer, bufsize, fp)) {

    sscanf (buffer, "%[^:]:%[^:]:%d:%d:%[^:]:%[^:]:%[^:]:%s\n",

     logname, password, &pw_passwd.pw_uid,

     &pw_passwd.pw_gid, comment, gecos,

     dir, shell);

    pwd->pw_name = logname;

    pwd->pw_passwd = password;

    pwd->pw_comment = comment;

    pwd->pw_gecos = gecos;

    pwd->pw_dir = dir;

    pwd->pw_shell = shell;

    if (uid == pwd->pw_uid) {

      fclose (fp);

      *result = pwd;

      rtems_current_user_env=aux; /* restore */

      return 0;

    }

  }

  fclose (fp);

  errno = EINVAL;

  rtems_current_user_env=aux; /* restore */

  return -1;

}

struct passwd *getpwuid(

  uid_t uid

)

{

  char   buf[1024];

  struct passwd *p;

  if ( getpwuid_r( uid, &pw_passwd, buf, 1024, &p ) )

    return NULL;

  return p;

}

struct passwd *getpwent()

{

  char buf[1024];

  if (passwd_fp == NULL)

    return NULL;

  if (fgets (buf, sizeof (buf), passwd_fp) == NULL)

    return NULL;

  sscanf (buf, "%[^:]:%[^:]:%d:%d:%[^:]:%[^:]:%[^:]:%s\n",

    logname, password, &pw_passwd.pw_uid,

    &pw_passwd.pw_gid, comment, gecos,

    dir, shell);

  pw_passwd.pw_name = logname;

  pw_passwd.pw_passwd = password;

  pw_passwd.pw_comment = comment;

  pw_passwd.pw_gecos = gecos;

  pw_passwd.pw_dir = dir;

  pw_passwd.pw_shell = shell;

  return &pw_passwd;

}

void setpwent( void )

{

  rtems_user_env_t * aux=rtems_current_user_env; /* save */

  init_etc_passwd_group();

  rtems_current_user_env=&rtems_global_user_env; /* set root */

  if (passwd_fp != NULL)

    fclose (passwd_fp);

  passwd_fp = fopen ("/etc/passwd", "r");

  rtems_current_user_env=aux; /* restore */

}

void endpwent( void )

{

  if (passwd_fp != NULL)

    fclose (passwd_fp);

}