Re: [PERL] getpwent læser /etc/{passwd,shadow}mere end een gang

[Peter Makholm <sslug@sslug>]

Peter Makholm <sslug@sslug> writes:

>   Inline_Stack_Reset;
>   if (pwent) {
>     Inline_Stack_Push(newSVpv(pwent->pw_name,strlen(pwent->pw_name)));
>     Inline_Stack_Push(newSVpv(pwent->pw_passwd,strlen(pwent->pw_passwd)));
>     Inline_Stack_Push(newSViv(pwent->pw_uid));
>     Inline_Stack_Push(newSViv(pwent->pw_gid));
>     Inline_Stack_Push(newSVpv(pwent->pw_gecos,strlen(pwent->pw_gecos)));
>     Inline_Stack_Push(newSVpv(pwent->pw_dir,strlen(pwent->pw_dir)));
>     Inline_Stack_Push(newSVpv(pwent->pw_shell,strlen(pwent->pw_shell)));
>   }
>   Inline_Stack_Done;

Ups. Dette er ikke kompatibelt med perls getpwent. Det skal lige
sættes nogle ekstra felter ind et par steder. Dette overlades til
læseren.

-- 
 Peter Makholm     |        We constantly have to keep in mind why natural
 sslug@sslug |    languages are good at what they're good at. And to
 http://hacking.dk |     never forget that Perl is a human language first,
                   |                        and a computer language second