etcutils 1.0.0

data/ext/etcutils/etcutils.h

@@ -0,0 +1,189 @@
+#include "extconf.h"
+#include "ruby.h"
+#include <errno.h>
+
+
+#define EUVERSION "0.1.5"
+
+#ifdef HAVE_RUBY_IO_H
+#include "ruby/io.h"
+#define RTIME_VAL(x) (x)
+#else
+#include "rubyio.h"
+#define RTIME_VAL(x) (x.tv_sec)
+#endif
+
+#ifdef HAVE_SHADOW_H
+#include <shadow.h>
+#ifndef SHADOW
+#define SHADOW "/etc/shadow"
+#endif
+#define PW_DEFAULT_PASS setup_safe_str("x")
+#else
+#define PW_DEFAULT_PASS setup_safe_str("*")
+#endif
+
+#ifdef HAVE_PWD_H
+#include <pwd.h>
+#ifndef PASSWD
+#define PASSWD "/etc/passwd"
+#endif
+#endif
+
+#ifdef HAVE_GSHADOW_H
+#include <gshadow.h>
+#elif defined(HAVE_GSHADOW__H)
+#include <gshadow_.h>
+#define HAVE_GSHADOW_H 1
+#endif
+
+#ifdef HAVE_GSHADOW_H
+#ifndef GSHADOW
+#define GSHADOW "/etc/gshadow"
+#endif
+#endif
+
+#ifdef HAVE_GRP_H
+#include <grp.h>
+#ifndef GROUP
+#define GROUP "/etc/group"
+#endif
+#endif
+
+#ifndef DEFAULT_SHELL
+#define DEFAULT_SHELL "/bin/bash"
+#endif
+
+#ifdef HAVE_ST_SG_NAMP
+#define SGRP_NAME(s) (s)->sg_namp
+#else
+#define SGRP_NAME(s) (s)->sg_name
+#endif
+
+#ifndef HAVE_EACCESS
+extern int eaccess(const char*, int);
+#endif
+
+#ifdef HAVE_STRUCT_RB_IO_T_PATHV
+#define RFILE_PATH(x) (RFILE(x)->fptr)->pathv
+#else
+#define RFILE_PATH(x) ( setup_safe_str( (RFILE(x)->fptr)->path ) )
+#endif
+
+#ifdef HAVE_RB_IO_STDIO_FILE
+#define RFILE_FPTR(x) rb_io_stdio_file( RFILE(x)->fptr )
+#else
+#define RFILE_FPTR(x) (RFILE(x)->fptr)->f
+#endif
+
+#ifndef RSTRING_BLANK_P
+#define RSTRING_BLANK_P(x) (NIL_P(x) || (RSTRING_LEN(x) <= 0))
+#endif
+
+#ifndef UIDT2NUM
+#define UIDT2NUM(v) LONG2NUM(v)
+#endif
+#ifndef NUM2UIDT
+#define NUM2UIDT(v) NUM2LONG(v)
+#endif
+#ifndef GIDT2NUM
+#define GIDT2NUM(v) LONG2NUM(v)
+#endif
+#ifndef NUM2GIDT
+#define NUM2GIDT(v) NUM2LONG(v)
+#endif
+
+#ifndef INT2QFIX
+#define INT2QFIX(v) (v >= 0 ? INT2FIX(v) : Qnil)
+#endif
+#ifndef UINT2QFIX
+#define UINT2QFIX(v) INT2QFIX( (int)v )
+#endif
+
+#ifndef QFIX2INT
+#define QFIX2INT(v) (RTEST(v) ? FIX2INT(v) : (long)-1 )
+#endif
+#ifndef QFIX2ULONG
+#define QFIX2ULONG(v) (RTEST(v) ? FIX2ULONG(v) : (unsigned long)-1)
+#endif
+
+extern ID id_name, id_passwd, id_uid, id_gid;
+extern VALUE mEtcUtils;
+
+extern VALUE rb_cPasswd;
+extern VALUE rb_cShadow;
+extern VALUE rb_cGroup;
+extern VALUE rb_cGshadow;
+
+/* EU helper functions */
+extern VALUE next_uid( int argc, VALUE *argv, VALUE self);
+extern VALUE next_gid( int argc, VALUE *argv, VALUE self);
+extern VALUE iv_get_time(VALUE self, const char *name);
+extern VALUE iv_set_time(VALUE self, VALUE v, const char *name);
+extern VALUE rb_current_time();
+extern void eu_errno(VALUE str);
+extern void ensure_file(VALUE io);
+extern void ensure_writes(VALUE io, int t);
+#define Check_Writes(v,t) ensure_writes((VALUE)(io),(int)(t));
+extern void ensure_eu_type(VALUE self, VALUE klass);
+#define Check_EU_Type(v,t) ensure_eu_type((VALUE)(v),(VALUE)(t))
+
+extern char** setup_char_members(VALUE ary);
+extern void free_char_members(char ** mem, int c);
+
+extern VALUE setup_safe_str(const char *str);
+extern VALUE setup_safe_array(char **arr);
+
+#ifdef HAVE_SHADOW_H
+extern VALUE setup_shadow(struct spwd *shadow);
+#endif
+extern VALUE setup_passwd(struct passwd *pwd);
+
+extern VALUE setup_group(struct group *grp);
+#if defined(HAVE_GSHADOW_H) || defined(HAVE_GSHADOW__H)
+extern VALUE setup_gshadow(struct sgrp *sgroup);
+#endif
+
+extern VALUE eu_to_entry(VALUE self, VALUE(*user_to)(VALUE, VALUE));
+
+extern VALUE eu_setpwent(VALUE self);
+extern VALUE eu_setspent(VALUE self);
+extern VALUE eu_setgrent(VALUE self);
+extern VALUE eu_setsgent(VALUE self);
+
+extern VALUE eu_endpwent(VALUE self);
+extern VALUE eu_endspent(VALUE self);
+extern VALUE eu_endsgent(VALUE self);
+extern VALUE eu_endgrent(VALUE self);
+
+extern VALUE eu_getpwent(VALUE self);
+extern VALUE eu_getspent(VALUE self);
+extern VALUE eu_getgrent(VALUE self);
+extern VALUE eu_getsgent(VALUE self);
+
+extern VALUE eu_getpwd(VALUE self, VALUE v);
+extern VALUE eu_getspwd(VALUE self, VALUE v);
+extern VALUE eu_getgrp(VALUE self, VALUE v);
+extern VALUE eu_getsgrp(VALUE self, VALUE v);
+
+extern VALUE eu_sgetpwent(VALUE self, VALUE nam);
+extern VALUE eu_sgetspent(VALUE self, VALUE nam);
+extern VALUE eu_sgetgrent(VALUE self, VALUE nam);
+extern VALUE eu_sgetsgent(VALUE self, VALUE nam);
+/* END EU helper functions */
+
+/* EU User functions */
+extern VALUE user_putpwent(VALUE self, VALUE io);
+extern VALUE user_putspent(VALUE self, VALUE io);
+/* END EU User functions */
+
+/* EU Group functions */
+extern VALUE group_putgrent(VALUE self, VALUE io);
+extern VALUE group_putsgent(VALUE self, VALUE io);
+/* END EU Group functions */
+
+extern VALUE rb_ary_uniq_bang(VALUE ary);
+
+extern void Init_etcutils_main();
+extern void Init_etcutils_user();
+extern void Init_etcutils_group();

data/ext/etcutils/extconf.rb

@@ -0,0 +1,51 @@
+#
+# extconf.rb
+#
+# Modified at: <2013/07/04 16:12:45 by dcampbell>
+#
+
+require 'mkmf'
+
+have_header('ruby/io.h')
+have_struct_member("struct rb_io_t", "pathv", "ruby/io.h")
+have_func('rb_io_stdio_file')
+have_func('eaccess')
+
+have_header('etcutils.h')
+
+if (have_header('pwd.h') && have_header('grp.h'))
+  short_v = ['pw','gr']
+
+  if have_header('shadow.h')
+    short_v << 'sp'
+  end
+
+  ["gshadow.h","gshadow_.h"].each do |h|
+    short_v << 'sg'
+    if have_header(h)
+      nam = "sg_nam"+ (h =~ /_/ ? 'e' : 'p')
+      [nam, "sg_passwd", "sg_adm", "sg_mem"].each do |m|
+        have_struct_member("struct sgrp", m, h)
+      end
+    end
+  end
+
+  have_func("lckpwdf")
+  have_func("ulckpwdf")
+
+  short_v.each do |h|
+    ["get#{h}ent","sget#{h}ent","fget#{h}ent","put#{h}ent","set#{h}ent","end#{h}ent"].each do |func|
+      have_func(func)
+    end
+  end
+  have_struct_member("struct passwd", "pw_change", "pwd.h")
+  have_struct_member("struct passwd", "pw_expire", "pwd.h")
+  have_struct_member("struct passwd", "pw_class", "pwd.h")
+  have_struct_member("struct passwd", "pw_field", "pwd.h")
+
+
+  create_header
+  create_makefile("etcutils")
+else
+  puts "This system is not managed by passwd/group files.","Exiting"
+end

data/ext/etcutils/group.c

@@ -0,0 +1,192 @@
+#include "etcutils.h"
+VALUE rb_cGroup, rb_cGshadow;
+
+#ifdef HAVE_PUTGRENT
+static VALUE group_gr_put(VALUE self, VALUE io)
+{
+  struct group grp;
+  VALUE path;
+#ifdef HAVE_FGETGRENT
+  struct group *tmp_grp;
+  long i = 0;
+#endif
+
+  Check_EU_Type(self, rb_cGroup);
+  Check_Writes(io, FMODE_WRITABLE);
+
+  path = RFILE_PATH(io);
+
+  rewind(RFILE_FPTR(io));
+  grp.gr_name     = RSTRING_PTR(rb_ivar_get(self, id_name));
+
+#ifdef HAVE_FGETGRENT
+  while ( (tmp_grp = fgetgrent(RFILE_FPTR(io))) )
+    if ( !strcmp(tmp_grp->gr_name, grp.gr_name) )
+      rb_raise(rb_eArgError, "%s is already mentioned in %s:%ld",
+	       tmp_grp->gr_name,  StringValuePtr(path), ++i );
+#endif
+
+  grp.gr_passwd = RSTRING_PTR(rb_ivar_get(self, id_passwd));
+  grp.gr_gid    = NUM2GIDT( rb_ivar_get(self, id_gid) );
+  grp.gr_mem    = setup_char_members( rb_iv_get(self, "@members") );
+
+  if ( putgrent(&grp,RFILE_FPTR(io)) )
+    eu_errno(RFILE_PATH(io));
+
+  free_char_members(grp.gr_mem, (int)RARRAY_LEN( rb_iv_get(self, "@members") ));
+
+  return Qtrue;
+}
+#endif
+
+static VALUE group_gr_sprintf(VALUE self)
+{
+  VALUE args[5];
+  args[0] = setup_safe_str("%s:%s:%s:%s\n");
+  args[1] = rb_ivar_get(self, id_name);
+  args[2] = rb_ivar_get(self, id_passwd);
+  args[3] = rb_ivar_get(self,id_gid);
+  args[4] = rb_ary_join((VALUE)rb_iv_get(self, "@members"), (VALUE)setup_safe_str(","));
+  return rb_f_sprintf(5, args);
+}
+
+VALUE group_putgrent(VALUE self, VALUE io)
+{
+#ifdef HAVE_PUTGRENT
+  return group_gr_put(self, io);
+#else
+  return group_gr_sprintf(self);
+#endif
+}
+
+VALUE group_gr_entry(VALUE self)
+{
+  return eu_to_entry(self, group_putgrent);
+}
+
+VALUE group_putsgent(VALUE self, VALUE io)
+{
+#ifdef GSHADOW
+  struct sgrp sgroup, *tmp_sgrp;
+  VALUE path;
+  long i = 0;
+
+  Check_EU_Type(self, rb_cGshadow);
+  Check_Writes(io, FMODE_WRITABLE);
+
+  path = RFILE_PATH(io);
+
+  rewind(RFILE_FPTR(io));
+  SGRP_NAME(&sgroup)  = RSTRING_PTR(rb_ivar_get(self, id_name));
+
+  while ( (tmp_sgrp = fgetsgent(RFILE_FPTR(io))) )
+    if ( !strcmp(SGRP_NAME(tmp_sgrp), SGRP_NAME(&sgroup)) )
+      rb_raise(rb_eArgError, "%s is already mentioned in %s:%ld",
+	       RSTRING_PTR(rb_ivar_get(self, id_name)), StringValuePtr(path), ++i );
+
+  sgroup.sg_passwd = RSTRING_PTR(rb_ivar_get(self, id_passwd));
+  sgroup.sg_adm    = setup_char_members( rb_iv_get(self,"@admins") );
+  sgroup.sg_mem    = setup_char_members( rb_iv_get(self, "@members") );
+
+  if ( putsgent(&sgroup,RFILE_FPTR(io)) )
+    eu_errno(RFILE_PATH(io));
+
+  free_char_members(sgroup.sg_adm, RARRAY_LEN( rb_iv_get(self, "@admins") ));
+  free_char_members(sgroup.sg_mem, RARRAY_LEN( rb_iv_get(self, "@members") ));
+
+  return Qtrue;
+#else
+  return Qnil;
+#endif
+}
+
+VALUE group_sg_entry(VALUE self)
+{
+  return eu_to_entry(self, group_putsgent);
+}
+
+VALUE setup_group(struct group *grp)
+{
+  VALUE obj;
+  if (!grp) errno  || (errno = 61); // ENODATA
+  eu_errno( setup_safe_str ( "Error setting up Group instance." ) );
+
+  obj = rb_obj_alloc(rb_cGroup);
+
+  rb_ivar_set(obj, id_name, setup_safe_str(grp->gr_name));
+  rb_ivar_set(obj, id_passwd, setup_safe_str(grp->gr_passwd));
+  rb_ivar_set(obj, id_gid, GIDT2NUM(grp->gr_gid));
+  rb_iv_set(obj, "@members", setup_safe_array(grp->gr_mem));
+
+  return obj;
+}
+
+#if defined(HAVE_GSHADOW_H) || defined(HAVE_GSHADOW__H)
+VALUE setup_gshadow(struct sgrp *sgroup)
+{
+  VALUE obj;
+  if (!sgroup) errno  || (errno = 61); // ENODATA
+  eu_errno( setup_safe_str ( "Error setting up GShadow instance." ) );
+
+  obj = rb_obj_alloc(rb_cGshadow);
+
+  rb_ivar_set(obj, id_name, setup_safe_str(SGRP_NAME(sgroup)));
+  rb_ivar_set(obj, id_passwd, setup_safe_str(sgroup->sg_passwd));
+  rb_iv_set(obj, "@admins", setup_safe_array(sgroup->sg_adm));
+  rb_iv_set(obj, "@members", setup_safe_array(sgroup->sg_mem));
+  return obj;
+}
+#endif
+
+void Init_etcutils_group()
+{
+  /* Define-const: Group
+   *
+   * The struct contains the following members:
+   *
+   * name::
+   *    contains the name of the group as a String.
+   * passwd::
+   *    contains the encrypted password as a String. An 'x' is
+   *    returned if password access to the group is not available; an empty
+   *    string is returned if no password is needed to obtain membership of
+   *    the group.
+   * gid::
+   *    contains the group's numeric ID as an integer.
+   * mem::
+   *    is an Array of Strings containing the short login names of the
+   *    members of the group.
+   */
+#ifdef GROUP
+  rb_define_attr(rb_cGroup, "name", 1, 1);
+  rb_define_attr(rb_cGroup, "passwd", 1, 1);
+  rb_define_attr(rb_cGroup, "gid", 1, 1);
+  rb_define_attr(rb_cGroup, "members", 1, 1);
+
+  rb_define_singleton_method(rb_cGroup,"get",eu_getgrent,0);
+  rb_define_singleton_method(rb_cGroup,"find",eu_getgrp,1);
+  rb_define_singleton_method(rb_cGroup,"parse",eu_sgetgrent,1);
+  rb_define_singleton_method(rb_cGroup,"set",eu_setgrent,0);
+  rb_define_singleton_method(rb_cGroup,"end",eu_endgrent,0);
+  rb_define_singleton_method(rb_cGroup,"each",eu_getgrent,0);
+
+  rb_define_method(rb_cGroup, "fputs", group_putgrent,1);
+  rb_define_method(rb_cGroup, "to_entry", group_gr_entry,0);
+#endif
+
+#ifdef GSHADOW
+  rb_define_attr(rb_cGshadow, "name", 1, 1);
+  rb_define_attr(rb_cGshadow, "passwd", 1, 1);
+  rb_define_attr(rb_cGshadow, "admins", 1, 1);
+  rb_define_attr(rb_cGshadow, "members", 1, 1);
+
+  rb_define_singleton_method(rb_cGshadow,"get",eu_getsgent,0);
+  rb_define_singleton_method(rb_cGshadow,"find",eu_getsgrp,1); //getsgent, getsguid
+  rb_define_singleton_method(rb_cGshadow,"parse",eu_sgetsgent,1);
+  rb_define_singleton_method(rb_cGshadow,"set",eu_setsgent,0);
+  rb_define_singleton_method(rb_cGshadow,"end",eu_endsgent,0);
+  rb_define_singleton_method(rb_cGshadow,"each",eu_getsgent,0);
+  rb_define_method(rb_cGshadow, "fputs", group_putsgent, 1);
+  rb_define_method(rb_cGshadow, "to_entry", group_sg_entry,0);
+#endif
+}

data/ext/etcutils/passwd.c

@@ -0,0 +1,297 @@
+#include "etcutils.h"
+
+VALUE rb_cPasswd, rb_cShadow;
+int expire_warned = 0;
+
+static VALUE
+user_get_pw_change(VALUE self)
+{
+  return iv_get_time(self, "@last_pw_change");
+}
+
+static VALUE
+user_set_pw_change(VALUE self, VALUE pw)
+{
+  rb_ivar_set(self, id_passwd, pw);
+  return iv_set_time(self, rb_current_time(), "@last_pw_change");
+}
+
+static VALUE
+user_get_expire(VALUE self)
+{
+  return iv_get_time(self, "@expire");
+}
+
+static VALUE
+user_set_expire(VALUE self, VALUE v)
+{
+  if ((rb_equal(v, INT2FIX(0))) && (expire_warned == 0)) {
+    rb_warn("Setting %s#expire to 0 should not be used as it is interpreted as either an account with no expiration, or as an expiration of Jan 1, 1970.", rb_obj_classname(self));
+    expire_warned = 1;
+  }
+
+  return iv_set_time(self, v, "@expire");
+}
+
+#ifdef HAVE_PUTPWENT
+static VALUE user_pw_put(VALUE self, VALUE io)
+{
+  struct passwd pwd;
+  VALUE path;
+
+#ifdef HAVE_FGETPWENT
+  struct passwd *tmp_pwd;
+  long i = 0;
+#endif
+
+  Check_EU_Type(self, rb_cPasswd);
+  Check_Writes(io, FMODE_WRITABLE);
+
+  path = RFILE_PATH(io);
+
+  rewind(RFILE_FPTR(io));
+  pwd.pw_name     = RSTRING_PTR(rb_ivar_get(self, id_name));
+
+#ifdef HAVE_FGETPWENT
+  while ( (tmp_pwd = fgetpwent(RFILE_FPTR(io))) )
+    if ( !strcmp(tmp_pwd->pw_name, pwd.pw_name) )
+      rb_raise(rb_eArgError, "%s is already mentioned in %s:%ld",
+	       tmp_pwd->pw_name,  StringValuePtr(path), ++i );
+#endif
+
+  pwd.pw_passwd   = RSTRING_PTR(rb_ivar_get(self, id_passwd));
+  pwd.pw_uid      = NUM2UIDT( rb_ivar_get(self,id_uid) );
+  pwd.pw_gid      = NUM2GIDT( rb_ivar_get(self,id_gid) );
+  pwd.pw_gecos    = RSTRING_PTR(rb_iv_get(self, "@gecos"));
+  pwd.pw_dir      = RSTRING_PTR(rb_iv_get(self, "@directory"));
+  pwd.pw_shell    = RSTRING_PTR(rb_iv_get(self, "@shell"));
+
+  if ( (putpwent(&pwd, RFILE_FPTR(io))) )
+    eu_errno(path);
+
+  return Qtrue;
+}
+#endif
+
+static VALUE user_pw_sprintf(VALUE self)
+{
+  VALUE args[11];
+  args[0]  = setup_safe_str("%s:%s:%s:%s:%s:%s:%s:%s:%s:%s\n");
+  args[1]  = rb_ivar_get(self, id_name);
+  args[2]  = rb_ivar_get(self, id_passwd);
+  args[3]  = rb_ivar_get(self, id_uid);
+  args[4]  = rb_ivar_get(self,id_gid);
+  args[5]  = rb_iv_get(self, "@access_classs");
+  args[6]  = rb_iv_get(self, "@last_pw_change");
+  args[7]  = rb_iv_get(self, "@expire");
+  args[8]  = rb_iv_get(self, "@gecos");
+  args[9]  = rb_iv_get(self, "@directory");
+  args[10] = rb_iv_get(self, "@shell");
+  return rb_f_sprintf(11, args);
+}
+
+VALUE user_putpwent(VALUE self, VALUE io)
+{
+#ifdef HAVE_PUTPWENT
+  return user_pw_put(self, io);
+#else
+  return user_pw_sprintf(self);
+#endif
+}
+
+VALUE user_pw_entry(VALUE self)
+{
+  return eu_to_entry(self, user_putpwent);
+}
+
+VALUE user_putspent(VALUE self, VALUE io)
+{
+#ifdef SHADOW
+  struct spwd spasswd, *tmp_spwd;
+  VALUE path;
+  long i;
+  errno = 0;
+  i = 0;
+
+  Check_EU_Type(self, rb_cShadow);
+  Check_Writes(io, FMODE_WRITABLE);
+
+  path = RFILE_PATH(io);
+
+  rewind(RFILE_FPTR(io));
+  spasswd.sp_namp  = RSTRING_PTR(rb_ivar_get(self, id_name));
+
+  while ( (tmp_spwd = fgetspent(RFILE_FPTR(io))) )
+    if ( !strcmp(tmp_spwd->sp_namp, spasswd.sp_namp) )
+      rb_raise(rb_eArgError, "%s is already mentioned in %s:%ld",
+	       tmp_spwd->sp_namp,  StringValuePtr(path), ++i );
+
+  spasswd.sp_pwdp   = RSTRING_PTR(rb_ivar_get(self, id_passwd));
+  spasswd.sp_lstchg = FIX2INT( rb_iv_get(self, "@last_pw_change") );
+  spasswd.sp_min    = FIX2INT( rb_iv_get(self, "@min_pw_age") );
+  spasswd.sp_max    = FIX2INT( rb_iv_get(self, "@max_pw_age") );
+  spasswd.sp_warn   = QFIX2INT( rb_iv_get(self, "@warning") );
+  spasswd.sp_inact  = QFIX2INT( rb_iv_get(self, "@inactive") );
+  spasswd.sp_expire = QFIX2INT( rb_iv_get(self, "@expire") );
+  spasswd.sp_flag   = QFIX2ULONG( rb_iv_get(self, "@flag") );
+
+  if ( (putspent(&spasswd, RFILE_FPTR(io))) )
+    eu_errno(path);
+
+  return Qtrue;
+#else
+  return Qnil;
+#endif
+}
+
+VALUE user_sp_entry(VALUE self)
+{
+  return eu_to_entry(self, user_putspent);
+}
+
+#ifdef SHADOW
+VALUE setup_shadow(struct spwd *spasswd)
+{
+  VALUE obj;
+  if (!spasswd) errno  || (errno = 61); // ENODATA
+  eu_errno( setup_safe_str ( "Error setting up Shadow instance." ) );
+
+  obj = rb_obj_alloc(rb_cShadow);
+
+  rb_ivar_set(obj, id_name, setup_safe_str(spasswd->sp_namp));
+  rb_ivar_set(obj, id_passwd, setup_safe_str(spasswd->sp_pwdp));
+
+  rb_iv_set(obj, "@last_pw_change", INT2FIX(spasswd->sp_lstchg));
+  rb_iv_set(obj, "@min_pw_age", INT2FIX(spasswd->sp_min));
+  rb_iv_set(obj, "@max_pw_age", INT2FIX(spasswd->sp_max));
+  rb_iv_set(obj, "@warning", INT2QFIX(spasswd->sp_warn));
+  rb_iv_set(obj, "@inactive",  INT2QFIX(spasswd->sp_inact));
+  rb_iv_set(obj, "@expire", INT2QFIX(spasswd->sp_expire));
+  rb_iv_set(obj, "@flag", UINT2QFIX(spasswd->sp_flag));
+
+  return obj;
+}
+#endif
+
+VALUE setup_passwd(struct passwd *pwd)
+{
+  VALUE obj;
+  if (!pwd) errno  || (errno = 61); // ENODATA
+  eu_errno( setup_safe_str ( "Error setting up Password instance." ) );
+
+  obj = rb_obj_alloc(rb_cPasswd);
+
+  rb_ivar_set(obj, id_name, setup_safe_str(pwd->pw_name));
+  rb_ivar_set(obj, id_passwd, setup_safe_str(pwd->pw_passwd));
+  rb_ivar_set(obj, id_uid, UIDT2NUM(pwd->pw_uid));
+  rb_ivar_set(obj, id_gid, GIDT2NUM(pwd->pw_gid));
+
+  rb_iv_set(obj, "@gecos", setup_safe_str(pwd->pw_gecos));
+  rb_iv_set(obj, "@directory", setup_safe_str(pwd->pw_dir));
+  rb_iv_set(obj, "@shell", setup_safe_str(pwd->pw_shell));
+  #ifdef HAVE_ST_PW_CHANGE
+  if (!pwd->pw_change)
+    pwd->pw_change = (time_t)0;
+  rb_iv_set(obj, "@last_pw_change", INT2FIX(pwd->pw_change));
+  #endif
+  #ifdef HAVE_ST_PW_EXPIRE
+  if (!pwd->pw_expire)
+    pwd->pw_expire = (time_t)0;
+
+  rb_iv_set(obj, "@expire", INT2QFIX(pwd->pw_expire));
+  #endif
+  #ifdef HAVE_ST_PW_CLASS
+  if (pwd->pw_class)
+    rb_iv_set(obj, "@access_class", setup_safe_str(pwd->pw_class));
+  #endif
+
+  #ifdef HAVE_ST_PW_FIELD
+  if (pwd->pw_field)
+    rb_iv_set(obj, "@field", setup_safe_str(pwd->pw_field));
+  #endif
+
+  return obj;
+}
+
+void Init_etcutils_user()
+{
+
+#ifdef HAVE_PWD_H
+  rb_define_attr(rb_cPasswd, "name", 1, 1);
+  rb_define_attr(rb_cPasswd, "uid", 1, 1);
+  rb_define_attr(rb_cPasswd, "gid", 1, 1);
+  rb_define_attr(rb_cPasswd, "gecos", 1, 1);
+  rb_define_attr(rb_cPasswd, "directory", 1, 1);
+  rb_define_attr(rb_cPasswd, "shell", 1, 1);
+
+  #ifdef HAVE_ST_PW_CHANGE
+  rb_define_attr(rb_cPasswd, "last_pw_change", 1, 0); /* Number expressed as a count of days since Jan 1, 1970
+							 since the last password change */
+  rb_define_method(rb_cPasswd, "last_pw_change_date", user_get_pw_change, 0);
+  rb_define_attr(rb_cPasswd, "passwd", 1, 0);
+  rb_define_method(rb_cPasswd, "passwd=", user_set_pw_change, 1);
+  #else
+  rb_define_attr(rb_cPasswd, "passwd", 1, 1);
+  #endif
+  #ifdef HAVE_ST_PW_EXPIRE
+  rb_define_attr(rb_cPasswd, "expire", 1, 0); /* Number expressed as a count of days since Jan 1, 1970
+						 on which the account will be disabled */
+  rb_define_method(rb_cPasswd, "expire=", user_set_expire, 1);
+  rb_define_method(rb_cPasswd, "expire_date", user_get_expire, 0);
+  rb_define_method(rb_cPasswd, "expire_date=", user_set_expire, 1);
+  #endif
+
+  #ifdef HAVE_ST_PW_CLASS
+  rb_define_attr(rb_cPasswd, "access_class", 1, 1);
+  #endif
+
+  #ifdef HAVE_ST_PW_FIELD
+  rb_define_attr(rb_cPasswd, "field", 1, 0);
+  #endif
+
+  rb_define_method(rb_cPasswd, "to_entry", user_pw_entry,0);
+  rb_define_method(rb_cPasswd, "fputs", user_putpwent, 1);
+
+  rb_define_singleton_method(rb_cPasswd,"get",eu_getpwent,0);
+  rb_define_singleton_method(rb_cPasswd,"each",eu_getpwent,0);
+  rb_define_singleton_method(rb_cPasswd,"find",eu_getpwd,1); // -1 return array
+  rb_define_singleton_method(rb_cPasswd,"parse",eu_sgetpwent,1);
+
+
+  rb_define_singleton_method(rb_cPasswd,"set", eu_setpwent, 0);
+  rb_define_singleton_method(rb_cPasswd,"end", eu_endpwent, 0);
+#endif
+
+#ifdef HAVE_SHADOW_H // Shadow specific methods
+  rb_define_attr(rb_cShadow, "name", 1, 1);   /* Login name.  */
+  rb_define_attr(rb_cShadow, "passwd", 1, 0); /* Encrypted password.  */
+  rb_define_attr(rb_cShadow, "min_pw_age", 1, 1); /* Minimum number of days between changes.  */
+  rb_define_attr(rb_cShadow, "max_pw_age", 1, 1); /* Maximum number of days between changes.  */
+  rb_define_attr(rb_cShadow, "last_pw_change", 1, 0); /* Number expressed as a count of days since Jan 1, 1970
+							 since the last password change */
+  rb_define_attr(rb_cShadow, "warning", 1, 1); /* Number of days to warn user to change
+						  the password.  */
+  rb_define_attr(rb_cShadow, "inactive", 1, 1); /* Number of days after password expires
+						   that account is considered inactive and disabled */
+  rb_define_attr(rb_cShadow, "expire", 1, 0); /* Number expressed as a count of days since Jan 1, 1970
+						 on which the account will be disabled */
+  rb_define_attr(rb_cShadow, "flag", 1, 0); /* Reserved */
+
+  rb_define_method(rb_cShadow, "passwd=", user_set_pw_change, 1);
+  rb_define_method(rb_cShadow, "expire=", user_set_expire, 1);
+  rb_define_method(rb_cShadow, "last_pw_change_date", user_get_pw_change, 0);
+  rb_define_method(rb_cShadow, "expire_date", user_get_expire, 0);
+  rb_define_method(rb_cShadow, "expire_date=", user_set_expire, 1);
+
+  rb_define_method(rb_cShadow, "to_entry", user_sp_entry,0);
+  rb_define_method(rb_cShadow, "fputs", user_putspent, 1);
+
+  rb_define_singleton_method(rb_cShadow,"get",eu_getspent,0);
+  rb_define_singleton_method(rb_cShadow,"each",eu_getspent,0);
+  rb_define_singleton_method(rb_cShadow,"find",eu_getspwd,1);
+  rb_define_singleton_method(rb_cShadow,"parse",eu_sgetspent,1);
+
+  rb_define_singleton_method(rb_cShadow,"set", eu_setspent, 0);
+  rb_define_singleton_method(rb_cShadow,"end", eu_endspent, 0);
+#endif
+}