view release on metacpan or search on metacpan
lib/DynGig/Util/Setuid.pm view on Meta::CPAN
my ( $class, $user ) = @_;
return undef unless my @pw = getpwnam( $user ||= 'root' );
my @id = map { sprintf '%d', $_ } @pw[2,3];
my $self = ( getpwuid $< )[0];
if ( $user ne $self )
{
( $<, $>, $(, $) ) = ( $id[0], @id, join ' ', $id[1], $id[1] );
return undef if $> != $id[0];
lib/DynGig/Util/Setuid.pm view on Meta::CPAN
=cut
sub sudo
{
my ( $class, $user ) = @_;
my $self = ( getpwuid $< )[0];
return $self if $self eq ( $user ||= 'root' );
warn "$self: need '$user' priviledge, invoking sudo.\n";
croak "exec $0: $!" unless exec 'sudo', '-u', $user, $0, @ARGV;
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
src/ppport.h view on Meta::CPAN
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
view release on metacpan or search on metacpan
lib/Email/LocalDelivery.pm view on Meta::CPAN
croak "Mail argument to deliver should just be a plain string"
if ref $mail;
if (!@boxes) {
my $default_maildir = (getpwuid($>))[7] . "/Maildir/";
my $default_unixbox
= (grep { -d $_ } qw(/var/spool/mail/ /var/mail/))[0]
. getpwuid($>);
@boxes = $ENV{MAIL}
|| (-e $default_unixbox && $default_unixbox)
|| (-d $default_maildir."cur" && $default_maildir);
}
view release on metacpan or search on metacpan
lib/EmbedIT/WebIT.pm view on Meta::CPAN
sub __get_uid {
my ($i_id) = @_;
my ($n, $p, $uid, $gid, $quota, $comment, $gcos, $dir, $shell, $expire) = getpwnam($i_id);
if (not defined $uid) {
($n, $p, $uid, $gid, $quota, $comment, $gcos, $dir, $shell, $expire) = getpwuid($i_id);
if (not defined $uid) {
return 0;
}
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
if ($b && $apache)
{
$EPPORT = 8531 ;
if (!$win32)
{
$EPUSER = getpwuid($>) || $> ;
$EPGROUP = getgrgid($)) || $) + 0 ;
if ($EPUSER eq 'root')
{
my $nobody = (getpwnam('nobody'))[0] ;
$EPUSER = $nobody if $nobody ;
view release on metacpan or search on metacpan
lib/English/ppport.h view on Meta::CPAN
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
lib/English/ppport.h view on Meta::CPAN
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
view release on metacpan or search on metacpan
lib/Env/PS1.pm view on Meta::CPAN
use Carp;
use AutoLoader 'AUTOLOAD';
our $VERSION = 0.06;
our $_getpwuid = eval { getpwuid($>) }; # Not supported on some platforms
sub import {
my $class = shift;
return unless @_;
my ($caller) = caller;
lib/Env/PS1.pm view on Meta::CPAN
);
sub cache {
my ($self, $format) = @_;
return '' unless defined $format; # get rid of uninitialised warnings
@user_info = getpwuid($>) if $_getpwuid;
my @parts;
#print "# string: $format\n";
while ($format =~ s/^(.*?)(\\\\|\\([aenr]|0\d\d)|\\(.)|!)//s) {
push @parts, $1 || '';
if ($2 eq '\\\\') { push @parts, '\\' } # stripped when \! is substitued
view release on metacpan or search on metacpan
- Make launche without -c overlay with more useful semantics.
** 2000-04-18 RELEASE 2.47
- getpwuid via ENVY_[RE]UID*
- Try to convert ENVY_BASE to an absolute path.
- Documentation tweaks.
view release on metacpan or search on metacpan
examples/perl_keyword.pl view on Meta::CPAN
my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless
bind binmode CORE cmp chr cos chop close chdir chomp chmod chown
crypt chroot caller connect closedir continue die dump dbmopen
dbmclose eq eof err exp exit exec each endgrent endpwent
endnetent endhostent endservent endprotoent fork fcntl flock
fileno formline getppid getpgrp getpwent getpwnam getpwuid
getpeername getprotoent getpriority getprotobyname
getprotobynumber gethostbyname gethostbyaddr gethostent
getnetbyname getnetbyaddr getnetent getservbyname getservbyport
getservent getsockname getsockopt getgrent getgrnam getgrgid
getlogin getc gt ge gmtime hex int index ioctl join keys kill lt
examples/perl_keyword.pl view on Meta::CPAN
until: 818
sqrt: 766
getprotobyname: 755
sysseek: 721
getpeername: 713
getpwuid: 681
xor: 619
y: 567
syscall: 560
CHECK: 538
connect: 526
view release on metacpan or search on metacpan
DynaGlue.pm view on Meta::CPAN
$self->modparts($self->name);
$self;
}
sub _author {
my $name = (getpwuid($>))[6] || $ENV{NAME} || "A. U. Thor";
$name =~ s/,.*//;
while($name =~ s/\([^\(]*\)//) { 1; }
$name;
}
view release on metacpan or search on metacpan
lib/ExtUtils/Helpers/Unix.pm view on Meta::CPAN
sub detildefy {
my $value = shift;
# tilde with optional username
for ($value) {
s{ ^ ~ (?= /|$)} [ $ENV{HOME} || (getpwuid $>)[7] ]ex or # tilde without user name
s{ ^ ~ ([^/]+) (?= /|$) } { (getpwnam $1)[7] || "~$1" }ex; # tilde with user name
}
return $value;
}
view release on metacpan or search on metacpan
lib/ExtUtils/MakeMaker.pm view on Meta::CPAN
my($name, $value) = ($1, $2);
if ($value =~ m/^~(\w+)?/) { # tilde with optional username
$value =~ s [^~(\w*)]
[$1 ?
((getpwnam($1))[7] || "~$1") :
(getpwuid($>))[7]
]ex;
}
# Remember the original args passed it. It will be useful later.
$self->{ARGS}{uc $name} = $self->{uc $name} = $value;
view release on metacpan or search on metacpan
lib/Extism/ppport.h view on Meta::CPAN
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
lib/Extism/ppport.h view on Meta::CPAN
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
view release on metacpan or search on metacpan
lib/FAQ/OMatic/install.pm view on Meta::CPAN
'-default' => "\$adminAuth",
'-desc'=> gettext("Where FAQ-O-Matic should send email when it wants to alert the administrator (usually same as \$adminAuth)")),
ci('maintSendErrors', '-sort'=>'n-m2', '-choices'=>[ "'true'", "''" ],
'-desc'=> gettext("If true, FAQ-O-Matic will mail the log file to the administrator whenever it is truncated."),
'-default'=>"'true'"),
ci('RCSuser', '-sort'=>'r-r3', '-free', '-choices'=>['getpwuid($>)'],
'-desc'=> gettext("User to use for RCS ci command (default is process UID)"),
'-default'=>'getpwuid($>)'),
ci('useServerRelativeRefs', '-sort'=>'r-s1',
'-choices'=>[ "'true'", "''" ], '-default'=>"''", '-desc'=>
gettext("Links from cache to CGI are relative to the server root, rather than absolute URLs including hostname:")),
ci('antiSpam', '-sort'=>'r-s7', '-mirror',
'-choices'=>[ "'off'", "'cheesy'", "'nameonly'", "'hide'" ],
view release on metacpan or search on metacpan
lib/FAST/List/Gen/Lazy/Builtins.pm view on Meta::CPAN
default defined die do endgrent endhostent endnetent endprotoent
endpwent endservent eof eval exec exit exp fcntl fileno flock fork
formline getc getgrent getgrgid getgrnam gethostbyaddr gethostbyname
gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername
getpgrp getppid getpriority getprotobyname getprotobynumber getprotoent
getpwent getpwnam getpwuid getservbyname getservbyport getservent
getsockname getsockopt glob gmtime goto hex index int ioctl join
kill lc lcfirst length link listen localtime lock log lstat mkdir
msgctl msgget msgrcv msgsnd oct open opendir ord pack pipe pop pos
print printf prototype push quotemeta rand read readdir readline
readlink readpipe recv ref rename require reset reverse rewinddir
lib/FAST/List/Gen/Lazy/Builtins.pm view on Meta::CPAN
chown chr chroot close closedir connect cos crypt dbmclose dbmopen default
defined die do endgrent endhostent endnetent endprotoent endpwent
endservent eof eval exec exit exp fcntl fileno flock fork formline getc
getgrent getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin
getnetbyaddr getnetbyname getnetent getpeername getpgrp getppid getpriority
getprotobyname getprotobynumber getprotoent getpwent getpwnam getpwuid
getservbyname getservbyport getservent getsockname getsockopt glob gmtime
goto hex index int ioctl join keys kill lc lcfirst length link listen
localtime lock log lstat mkdir msgctl msgget msgrcv msgsnd oct open opendir
ord pack pipe pop pos print printf prototype push quotemeta rand read
readdir readline readlink readpipe recv ref rename require reset reverse
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
include/ppport.h view on Meta::CPAN
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
view release on metacpan or search on metacpan
lib/Farabi/files/public/assets/codemirror/mode/perl/perl.js view on Meta::CPAN
getprotobyname :1, // - get protocol record given name
getprotobynumber :1, // - get protocol record numeric protocol
getprotoent :1, // - get next protocols record
getpwent :1, // - get next passwd record
getpwnam :1, // - get passwd record given user login name
getpwuid :1, // - get passwd record given user ID
getservbyname :1, // - get services record given its name
getservbyport :1, // - get services record given numeric port
getservent :1, // - get next services record
getsockname :1, // - retrieve the sockaddr for a given socket
getsockopt :1, // - get socket options on a given socket
view release on metacpan or search on metacpan
lib/FastGlob.pm view on Meta::CPAN
for (@_) {
# check for and do tilde expansion
if ( /^\~([^${dirsep}]*)/ ) {
my $usr = $1;
my $usrdir = ( ($1 eq "") ? getpwuid($<) : getpwnam($usr) )[7];
if ($usrdir ne "" ) {
s/^\~\Q$usr\E/$usrdir/;
push(@res, $_);
}
} else {
view release on metacpan or search on metacpan
lib/Fauxtobox.pm view on Meta::CPAN
_scalar('getpwnam'),
_scalar('getgrnam'),
_scalar('gethostbyname'),
_scalar('getnetbyname'),
_scalar('getprotobyname'),
_scalar('getpwuid'),
_scalar('getgrgid'),
_fixed(2, 'getservbyname'),
_fixed(2, 'gethostbyaddr'),
_fixed(2, 'getnetbyaddr'),
_scalar('getprotobynumber'),
lib/Fauxtobox.pm view on Meta::CPAN
C<< $X->$_getprotobyname >> is equivalent to C<< getprotobyname $X >>.
See L<perlfunc/getprotobyname>.
=item $_getpwuid
C<< $X->$_getpwuid >> is equivalent to C<< getpwuid $X >>.
See L<perlfunc/getpwuid>.
=item $_getgrgid
C<< $X->$_getgrgid >> is equivalent to C<< getgrgid $X >>.
view release on metacpan or search on metacpan
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
view release on metacpan or search on metacpan
t/010-write_file.t view on Meta::CPAN
# to test the group code, as the group could vary, depending on whether
# BSD or Solaris directory group id semantics are in play, but detecting
# that would be annoying.
SKIP: {
my ( $user_name, $user_uid, $group_name, $group_gid );
# getpwuid unimplemented on a certain OS, try to skip.
eval {
$user_name = getpwuid($<) || undef;
$user_uid = $< || '';
$group_name = getgrgid($() || undef;
$group_gid = $( || '';
};
view release on metacpan or search on metacpan
#ifdef I_PWD
# include <pwd.h>
#else
#ifdef HAS_PASSWD
struct passwd *getpwnam _((char *));
struct passwd *getpwuid _((Uid_t));
#endif
#endif
#ifndef MAXPATHLEN
# ifdef PATH_MAX
* handle a plain ~ or ~/ by expanding $HOME
* first and then trying the password file
*/
if ((h = getenv("HOME")) == NULL) {
#ifdef HAS_PASSWD
if ((pwd = getpwuid(getuid())) == NULL)
return pattern;
else
h = pwd->pw_dir;
#else
return pattern;
view release on metacpan or search on metacpan
lib/File/BaseDir.pm view on Meta::CPAN
*_home = sub { $ENV{USERPROFILE} || $ENV{HOMEDRIVE}.$ENV{HOMEPATH} || 'C:\\' };
}
else
{
*_rootdir = sub { File::Spec->rootdir };
*_home = sub { $ENV{HOME} || eval { [getpwuid($>)]->[7] } || File::Spec->rootdir };
}
# OO method
sub new { bless \$VERSION, shift } # what else is there to bless ?
view release on metacpan or search on metacpan
# by default, there is no max size to the cache
my $sDEFAULT_MAX_SIZE = $sNO_MAX_SIZE;
# if the OS does not support getpwuid, use this as a default username
my $sDEFAULT_USERNAME = 'nobody';
# by default, the objects in the cache never expire
my $username;
my $success = eval {
my $effective_uid = $>;
$username = getpwuid($effective_uid);
};
if ($success and $username) {
return $username;
} else {
view release on metacpan or search on metacpan
lib/File/Copy/ppport.h view on Meta::CPAN
GETPWENT_R_PROTO|5.008000|5.008000|Vn
getpwnam|5.009000||Viu
GETPWNAM_R_HAS_BUFFER|5.008000||Viu
GETPWNAM_R_HAS_PTR|5.008000||Viu
GETPWNAM_R_PROTO|5.008000|5.008000|Vn
getpwuid|5.009000||Viu
GETPWUID_R_HAS_PTR|5.008000||Viu
GETPWUID_R_PROTO|5.008000|5.008000|Vn
get_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||Viu
lib/File/Copy/ppport.h view on Meta::CPAN
KEY_getprotobyname|5.003007||Viu
KEY_getprotobynumber|5.003007||Viu
KEY_getprotoent|5.003007||Viu
KEY_getpwent|5.003007||Viu
KEY_getpwnam|5.003007||Viu
KEY_getpwuid|5.003007||Viu
KEY_getservbyname|5.003007||Viu
KEY_getservbyport|5.003007||Viu
KEY_getservent|5.003007||Viu
KEY_getsockname|5.003007||Viu
KEY_getsockopt|5.003007||Viu
view release on metacpan or search on metacpan
lib/File/Dir/Dumper/Scanner.pm view on Meta::CPAN
BEGIN
{
if (os_is('Unix'))
{
*_my_getpwuid =
sub {
my $uid = shift; return scalar(getpwuid($uid));
};
*_my_getgrgid =
sub {
my $gid = shift; return scalar(getgrgid($gid));
};
}
else
{
*_my_getpwuid = sub { return "unknown"; };
*_my_getgrgid = sub { return "unknown"; };
}
}
sub _get_user_name
lib/File/Dir/Dumper/Scanner.pm view on Meta::CPAN
my $self = shift;
my $uid = shift;
if (!exists($self->_user_cache()->{$uid}))
{
$self->_user_cache()->{$uid} = _my_getpwuid($uid);
}
return $self->_user_cache()->{$uid};
}
view release on metacpan or search on metacpan
lib/File/Find/Declare.pm view on Meta::CPAN
my ($self, $file) = @_;
if(!$self->has_owner()) { return 1; }
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
my $name = getpwuid($uid);
foreach my $owner (@{$self->owner()}) {
return 1 if $owner eq $uid || $owner eq $name;
}
view release on metacpan or search on metacpan
lib/File/Find/Node.pm view on Meta::CPAN
undef, # POSTPROC
undef, # FILTER
undef, # ERRPROC
undef, # STAT
undef, # ARG
{}, # USER cache for getpwuid()
{}, # GROUP cache for getgrgid()
0 # MAXFORK
];
$self->[NAME] =~ s{.*/}{};
bless($self);
lib/File/Find/Node.pm view on Meta::CPAN
my $self = shift;
my $uid = $self->uid;
if (exists($self->[USER]->{$uid})) {
return $self->[USER]->{$uid};
}
my $user = getpwuid($uid);
$self->[USER]->{$uid} = defined($user) ? $user : $uid;
}
sub group {
my $self = shift;
lib/File/Find/Node.pm view on Meta::CPAN
Returns the user id number.
=item $f->user
Returns the user name or else returns the user id
number if getpwuid() fails. Uses a cache to avoid
extra calls to getpwuid().
=item $f->gid
Returns the group id number.