view release on metacpan or  search on metacpan

Lastlog.xs  view on Meta::CPAN

  else
  {
      lseek(ll_fd,where, SEEK_SET );
      return ( &llent );
  }
}

int get_lastlog_fd(void)
{

   static int ll_fd = -1;

   if ( ll_fd == -1 )
   {
     ll_fd = open((char *)lastlog_path(),O_RDONLY);
   }

   return(ll_fd);
}

char *lastlog_path(void)
{
   return _PATH_LASTLOG;
}
void setllent(void)
{
   int ll_fd;

   if ((ll_fd =  get_lastlog_fd()) != -1)
   {
      lseek(ll_fd,0, SEEK_SET);
   }     
}

SV *llent2hashref(IV count, struct lastlog *llent)
{
   HV *ll;
   SV *ll_ref;
   HV *meth_stash;   

   ll = newHV(); 
      
   (void *)hv_store(ll,"uid",3,newSViv(count),0);
   (void *)hv_store(ll,"ll_time",7,newSViv((IV)llent->ll_time),0);
   (void *)hv_store(ll,"ll_line",7,newSVpv(llent->ll_line,0),0);
   (void *)hv_store(ll,"ll_host",7,newSVpv(llent->ll_host,0),0);
   meth_stash = gv_stashpv("Sys::Lastlog::Entry",1);
   ll_ref = newRV((SV *)ll);
   sv_bless(ll_ref, meth_stash);

   return(ll_ref);  
}

MODULE = Sys::Lastlog		PACKAGE = Sys::Lastlog		

PROTOTYPES: ENABLE

void
getllent(self)
SV *self
  PPCODE:
    struct lastlog *llent;
    SV *ll_ref;

    static IV count = 0;

    if(!SvROK(self)) 
        croak("Must be called as an object method");


    llent = getllent();

    if ( llent )
    {
      ll_ref =  llent2hashref(count++,llent);
      EXTEND(SP,1);
      PUSHs(sv_2mortal(ll_ref));
    }
    else
    {
      XSRETURN_EMPTY;
    }

void
getlluid(self, uid)
SV *self
IV uid
  PPCODE:
    struct lastlog *llent;
    SV *ll_ref;

    if(!SvROK(self)) 
        croak("Must be called as an object method");


    llent = getlluid(uid);

    if ( llent )
    {
      ll_ref = llent2hashref(uid,llent);
      EXTEND(SP,1);
      PUSHs(sv_2mortal(ll_ref));
    }
    else
    {
      XSRETURN_EMPTY;
    }

void
getllnam(self,logname)
SV *self
char *logname
  PPCODE:
    struct passwd *pwd;
    struct lastlog *llent;
    SV *ll_ref;

    if(!SvROK(self)) 
        croak("Must be called as an object method");

    if((pwd = getpwnam(logname)))
    {
      llent = getlluid(pwd->pw_uid);
      if ( llent != (void *)0)
      {
        ll_ref = llent2hashref(pwd->pw_uid,llent);         
        EXTEND(SP,1);
        PUSHs(sv_2mortal(ll_ref));
      }
      else
      {
        XSRETURN_EMPTY;
      }
    }
    else
    {
      XSRETURN_EMPTY;
    }

void lastlog_path(self)
SV *self
   PPCODE:
    if(!SvROK(self)) 
        croak("Must be called as an object method");
      EXTEND(SP,1);
      PUSHs(sv_2mortal(newSVpv(lastlog_path(),0)));
       
void
setllent(self)
SV *self
   PPCODE:

    if(!SvROK(self)) 
        croak("Must be called as an object method");

    setllent();