Sys-Lastlog

 view release on metacpan or  search on metacpan

Lastlog.xs  view on Meta::CPAN

   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();

Lastlog.xs  view on Meta::CPAN

    }
    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 )

Lastlog.xs  view on Meta::CPAN

    }
    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);

Lastlog.xs  view on Meta::CPAN

        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();