* In this file are defined the functions to operate on /etc/shadow file
* No NIS support, no DBM/NDBM/DB support. These extensions should go
* into a separate file, separate functions.
*/
#include "../_pwdb_internal.h"
static FILE *shadow;
static char spwbuf[BUFSIZ];
static struct __pwdb_spwd spwd;
static int shadow_file_end=1; /* XXX: AGM added this */
#define FIELDS 9
#define OFIELDS 5
/*
* setspent - initialize access to shadow text
*/
void __pwdb_setspent (void)
{
if (shadow)
rewind(shadow);
else
shadow = fopen(__PWDB_SHADOW_FILE, "r");
return;
}
/*
* endspent - terminate access to shadow text
*/
void __pwdb_endspent (void)
{
if (shadow)
(void) fclose (shadow);
shadow = (FILE *) 0;
return;
}
/*
* sgetspent - convert string in shadow file format to (struct spwd *)
*/
struct __pwdb_spwd *__pwdb_sgetspent (const char *string)
{
char *fields[FIELDS];
char *cp;
char *cpp;
int i;
/*
* Copy string to local buffer. It has to be tokenized and we
* have to do that to our private copy.
*/
strncpy (spwbuf, string, BUFSIZ-1);
spwbuf[BUFSIZ-1] = ' ';
if ((cp = strrchr (spwbuf, '')))
*cp = ' ';
/*
*
Tokenize the string into colon separated fields. Allow up to
* FIELDS different fields.
*/
f
or (cp = spwbuf, i = 0;*cp && i < FIELDS;i++) {
fields[i] = cp;
while (*cp && *cp != ':')
cp++;
if (*cp)
*cp++ = ' ';
}
/*
* I
t is acceptable for the last SVR4 field to be blank. This
* results in the loop being terminated early. In
which case,
* we just make the last field be blank and be done with it.
*/
if (i == (FIELDS-1)
)
fields[i++] = cp;
if ((cp && *cp) || (i != FIELDS && i != OFIELDS))
return 0;
/*
* Start populating the structure. The fields are all in
* static storage, as is the struct
ure we pass back. If we
* ever see a name with '+' as the first character, we try
* to turn on NIS p
rocessing.
*/
spwd.sp_namp = fields[0];
spwd.sp_pwdp = fields[1];
/*
* Get the
last changed date. For all of the integer fields,
* we check for proper format. It is an error to have an
* incorrectly formatted number, unless we are using NIS.
*/
if ((spwd.sp_lstchg = strtol (fiel
ds[2], &cpp, 10)) == 0 && *cpp) {
return 0;
} else if (fields[2][0] == ' ')
spwd.sp
_lstchg = -1;
/*
* Get the minimum period between password changes.
*/
if ((spwd.sp_mi
n = strtol (fields[3], &cpp, 10)) == 0 && *cpp) {
return 0;
} else if (fields[3][0] == ' ')
spwd.sp_min = -1;
/*
* Get the maximum number of days a password is valid.
*/
if ((spwd.sp_max = strtol (fields[4], &cpp, 10)) == 0 && *cpp) {
return 0;
} else if (fields[4][0
] == ' ')
spwd.sp_max = -1;
if (i == OFIELDS) {
spwd.sp_warn = spwd.sp_inact = spw
d.sp_expire =
spwd.sp_flag = -1;
return &spwd;
}
/*
* Get
the number of days of password expiry warning.
*/
if ((spwd.sp_warn = strtol (fields[5], &cpp, 10)) ==
0 && *cpp) {
return 0;
} else if (fields[5][0] == ' ')
spwd.sp_warn = -1;
/
*
* Get the number of days of inactivity before an account is
* disabled.
*/
if ((spw
d.sp_inact = strtol (fields[6], &cpp, 10)) == 0 && *cpp) {
return 0;
} else if (fields[6][0] == '
')
spwd.sp_inact = -1;
/*
* Get the number of days after the epoch before the account is
* set to expire.
*/
if ((spwd.sp_expire = strtol (fields[7], &cpp, 10)) == 0 && *cpp) {
return 0;
} else if (fields[7][0] == ' ')
spwd.sp_expire = -1;
/*
* Thi
s field is reserved for future use. But it isn't supposed
* to have anything other than a valid integer in it
.
*/
if ((spwd.sp_flag = strtol (fields[8], &cpp, 10)) == 0 && *cpp) {
return 0;
} else if (fields[8][0] == ' ')
spwd.sp_flag = -1;
return (&spwd);
}
/*
* fgetspent - get an e
ntry from a /etc/shadow formatted stream
*/
struct __pwdb_spwd * __pwdb_fgetspent (FILE *fp)
{
char
buf[BUFSIZ];
char *cp;
shadow_file_end = 1; /* safety first */
if (! fp)
return (0);
if (fgets (buf, sizeof buf, fp) != (char *) 0)
{
if ((cp = strchr (buf, '')))
*cp = ' ';
shadow_file_end = 0; /* we read something */
return (__pw
db_sgetspent (buf));
}
return 0;
}
/*
* getspent - get a (struct spwd *) from the current sha
dow file
*/
struct __pwdb_spwd * __pwdb_getspent ()
{
if (! shadow)
__pwdb_setspe
nt ();
return (__pwdb_fgetspent (shadow));
}
/*
* putspent - Output a (struct spwd) in character format
*
* putspent() writes out a (struct spwd) in the format it appears
* in in flat ASCII files.
*/
int __pwdb_putspent(const struct __pwdb_spwd *sp, FILE *stream)
{
if (! stream || ! sp)
return -1;
return (fprintf(stream, "%s:%s:%ld:%ld:%ld:%ld:%ld:%ld:%ld",
sp->sp_namp,
sp->sp_pwdp,
sp->sp_lstchg,
sp->sp_min,
sp->sp_max,
sp->sp_warn,
sp->sp_inact,
sp->sp_ex
pire,
sp->sp_flag
) < 0);
}
/*
* getspnam - get
a shadow entry by name
*/
struct __pwdb_spwd * __pwdb_getspnam (const char *name)
{
struct __pwdb_spwd *sp;
__pwdb_setspent(); /* rewind shadow file */
/* loop through entries until correct one found or end of
* file reached
*/
do {
sp = __pwdb_getspent();
if (sp && (strcmp(name, sp->sp_n
amp) == 0) )
break;
} while ( sp || !shadow_file_end );
__pwdb_endspent(); /* close sha
dow file */
return (sp); /* return entry found (?) */
}