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_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||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
eg/processes.psgi view on Meta::CPAN
# Only show processes for this user
next unless $p->{'uid'} == $>;
$datatable->add_rows({
pid => $p->{'pid'},
uid => { v => $p->{'uid'}, f => (getpwuid( $p->{'uid'} ))[0] },
size => { v => $p->{'size'}, f => format_bytes( $p->{'size'} ) },
cmd => $p->{'cmndline'},
since => { v => $p->{'start'}, f => ago( time - $p->{'start'} ) }
});
}
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
lib/Data/Printer/Config.pm view on Meta::CPAN
}
if (not $home and exists $ENV{HOME} and $ENV{HOME}) {
$home = $ENV{HOME};
}
# Light desperation on any (Unixish) platform
SCOPE: { $home = (getpwuid($<))[7] if not defined $home }
if (defined $home and ! -d $home ) {
$home = undef;
}
return $home;
}
view release on metacpan or search on metacpan
t/encoders/dbi.t view on Meta::CPAN
} @dsn_fields;
$dbd{dbd} = $driver;
$dbd{table} //= TABLE;
push @DBDs, \%dbd;
$dbd{user} //= getpwuid( $< )->name;
shift @DBDs if $ENV{TEST_DRSE_ALTERNATE_ONLY};
}
@DBDs
view release on metacpan or search on metacpan
lib/Data/Rlist.pm view on Meta::CPAN
}
# Build file header. Compile $data to file $fh, return undef.
my $host = eval { use Sys::Hostname; hostname; } || 'some unknown machine';
my $uid = getlogin || getpwuid($<);
my $tm = localtime;
my $prec; $prec = $options->{precision} if ref $options and defined $options->{precision};
my $eol = $/; $eol = $options->{eol_space} if ref $options and defined $options->{eol_space};
my @header =
map { (length) ? "# $_\n" : "#\n" }
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
lib/DataStore/CAS/FS/Importer.pm view on Meta::CPAN
if ($self->{flags}{collect_unix_perm}) {
$attrs{unix_mode}= ($stat->[2] & ~Fcntl::S_IFMT());
my $uid= $attrs{unix_uid}= $stat->[4];
if (my $cache= $self->unix_uid_cache) {
if (!exists $cache->{$uid}) {
my $name= getpwuid($uid);
if (!defined $name) {
$self->_handle_metadata_error("No username for UID $uid");
} elsif ($self->utf8_filenames) {
$name= DataStore::CAS::FS::InvalidUTF8->decode_utf8($name);
} else {
view release on metacpan or search on metacpan
lib/Date/Manip/DM5.pm view on Meta::CPAN
my($user,$home)=();
# ~aaa/bbb= ~ aaa /bbb
if ($file =~ s|^~([^/]*)||) {
$user=$1;
# Single user operating systems (Mac, MSWindows) don't have the getpwnam
# and getpwuid routines defined. Try to catch various different ways
# of knowing we are on one of these systems:
return "" if ($OS eq "Windows" or
$OS eq "Mac" or
$OS eq "Netware" or
$OS eq "MPE");
$user="" if (! defined $user);
if ($user) {
$home= (getpwnam($user))[7];
} else {
$home= (getpwuid($<))[7];
}
$home = VMS::Filespec::unixpath($home) if ($OS eq "VMS");
return "" if (! defined $home);
$file="$home/$file";
}
view release on metacpan or search on metacpan
defined $ENV{HOME}
and return $ENV{HOME};
my $home;
local $@ = undef;
eval {
$home = ( getpwuid $< )[7];
1;
} and return $home;
foreach my $env ( qw{ USERPROFILE SYS$LOGIN } ) {
defined $ENV{$env}
and return $ENV{$env};
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
FaultAutoBT.pm view on Meta::CPAN
my $self = shift;
#XXX: should we die here?
#die "$self->{command_path_in} already exists, delete first"
# if -e $self->{command_path_in};
#warn "creating $self->{command_path_in} for user ".(getpwuid($>))[0]."\n";
my $fh = Symbol::gensym();
open $fh, ">$self->{command_path_in}"
or die "can't open $self->{command_path_in} for writing: $!";
print $fh <<EOI;
bt
view release on metacpan or search on metacpan
lib/Devel/Chitin/OpTree/UNOP.pm view on Meta::CPAN
[ pp_aeach => 'each', 0 ],
[ pp_reach => 'each', 0 ],
[ pp_rkeys => 'keys', 0 ],
[ pp_rvalues => 'values', 0 ],
[ pp_ggrgid => 'getgrgid', 0 ],
[ pp_gpwuid => 'getpwuid', 0 ],
[ pp_gpwnam => 'getpwnam', 0 ],
[ pp_gpwent => 'getpwent', 0 ],
[ pp_ggrnam => 'getgrnam', 0 ],
[ pp_close => 'close', 0 ],
[ pp_closedir => 'closedir', 0 ],
view release on metacpan or search on metacpan
DB/Data/Dump.pm view on Meta::CPAN
endprotoent endpwent endservent eof eq eval exec exists exit exp fcntl
fileno flock for foreach fork format formline ge 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 grep gt hex if index int ioctl join keys
kill last lc lcfirst le length link listen local localtime lock log
lstat lt m map mkdir msgctl msgget msgrcv msgsnd my ne next no not oct
open opendir or ord pack package pipe pop pos print printf prototype
push q qq qr quotemeta qw qx rand read readdir readline readlink
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
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
lib/Devel/PatchPerl/Plugin/Darwin.pm view on Meta::CPAN
- last;
- }
- # In principle we could whine if @s != 7 but do we know enough
- # of passwd file formats everywhere?
- if (@s == 7 || ($^O eq 'darwin' && @s == 10)) {
- @n = getpwuid($uid_s);
- # 'nobody' et al.
- next unless @n;
- my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$home,$shell) = @n;
- # Protect against one-to-many and many-to-one mappings.
- if ($name_s ne $name) {
lib/Devel/PatchPerl/Plugin/Darwin.pm view on Meta::CPAN
+ local $/;
+ my $junk = <PW>;
+ last;
+ }
+ if (@s == 7 || ($^O eq 'darwin' && @s == 10)) {
+ @n = getpwuid($uid_s);
+ next unless @n;
+ my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$home,$shell) = @n;
+ if ($name_s ne $name) {
+ @n = getpwnam($name_s);
+ ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$home,$shell) = @n;
lib/Devel/PatchPerl/Plugin/Darwin.pm view on Meta::CPAN
+ last;
+ }
+ # In principle we could whine if @s != 7 but do we know enough
+ # of passwd file formats everywhere?
+ if (@s == 7 || ($^O eq 'darwin' && @s == 10)) {
+ @n = getpwuid($uid_s);
+ # 'nobody' et al.
+ next unless @n;
+ my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$home,$shell) = @n;
+ # Protect against one-to-many and many-to-one mappings.
+ if ($name_s ne $name) {
view release on metacpan or search on metacpan
lib/Devel/Trepan/Complete.pm view on Meta::CPAN
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 gt hex index int
ioctl join kill lc lcfirst le length
link listen localtime lock log lstat lt
mkdir msgctl msgget msgrcv msgsnd ne
view release on metacpan or search on metacpan
lib/Devel/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/Devel/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/Device/BlinkStick.pm view on Meta::CPAN
# we need to set the PERL_INLINE_DIRECTORY environment variable to something
# not in the current directory BEFORE we load Device::USB
BEGIN {
use Path::Tiny ;
my $user = getlogin || getpwuid($<) || "anyone";
$ENV{PERL_INLINE_DIRECTORY} = "/tmp/_Inline/$user/" . __PACKAGE__ ;
$ENV{PERL_INLINE_DIRECTORY} =~ s/::/_/g ;
# make sure the directory exists
path( $ENV{PERL_INLINE_DIRECTORY})->mkpath() ;
view release on metacpan or search on metacpan
libcqcam/rcfile.C view on Meta::CPAN
ret = new char[strlen(getenv("HOME")) + strlen(fn)];
strcpy(ret, getenv("HOME"));
strcat(ret, fn + 1);
return ret;
}
struct passwd *pw = getpwuid(getuid());
if (!pw) {
ret = new char[strlen(fn) + 1];
strcpy(ret, fn);
return ret;
}
view release on metacpan or search on metacpan
lib/DhMakePerl/Command/Packaging.pm view on Meta::CPAN
sub get_name {
my $self = shift;
my $name;
my $user = $self->get_user;
my $pwnam = getpwuid($<);
die "Cannot determine current user\n" unless $pwnam;
if ( defined $ENV{DEBFULLNAME} ) {
$name = $ENV{DEBFULLNAME};
}
else {
view release on metacpan or search on metacpan
lib/DiaColloDB/WWW/CGI.pm view on Meta::CPAN
## $dbcgi = $dbcgi->_getenv()
sub _getenv {
my $dbcgi = shift;
$dbcgi->{remote_addr} = ($ENV{REMOTE_ADDR}||'0.0.0.0');
$dbcgi->{remote_user} = ($ENV{REMOTE_USER} || getpwuid($>));
$dbcgi->{request_method} = ($ENV{REQUEST_METHOD}||'GET');
$dbcgi->{request_uri} = ($ENV{REQUEST_URI} || $0);
$dbcgi->{request_query} = $ENV{QUERY_STRING};
$dbcgi->{http_referer} = $ENV{HTTP_REFERER};
$dbcgi->{http_host} = $ENV{HTTP_HOST};
view release on metacpan or search on metacpan
lib/Dir/List.pm view on Meta::CPAN
sub getuserinfo($) {
my $self = shift;
my $arg = shift;
# If it's allready cached (within' this process/instance), don't ask the system again
unless(defined $self->{uid_cache}->{$arg}) {
my($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell,$expire) = getpwuid($arg);
# Save the information to our current instance (caching).
$self->{uid_cache}->{$arg} = {
name => $name,
passwd => $passwd,
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
examples/sudo.pl view on Meta::CPAN
use FindBin;
use lib ("$FindBin::RealBin/../lib");
use Doit;
sub hello {
warn "I am " . getpwuid($<);
}
sub something {
warn "else...";
}
view release on metacpan or search on metacpan
App-Domain-1.230280/_Deparsed_XSubs.pm view on Meta::CPAN
sub getpayload;
sub getpgrp;
sub getpid;
sub getppid;
sub getpwnam;
sub getpwuid;
sub gets;
sub getuid;
sub gmtime;
sub hypot;
sub ilogb;
view release on metacpan or search on metacpan
t/Dpkg_Changelog/shadow view on Meta::CPAN
shadow (20000902-3) unstable; urgency=low
* Update config.sub and config.guess so ia64 compiled, closes: #81897
* libmisc/sub.c: skip '*' in shell name when doing subsystem, closes:
#82893
* src/su.c: don't assume uid 0 == "root", use getpwuid to fetch it,
closes: #81924
* This was fixed in a previous version, closes: #77057
* Update passwd long desc, closes: #88299
* Conflict with suidmanager << 0.5, and remove suid{,un}register calls,
closes: #87157
view release on metacpan or search on metacpan
lib/DynGig/CLI/Watcher/Exclude.pm view on Meta::CPAN
'user=s',"[ $option{user} ] run as user",
'root=s',"[ $option{root} ]",
);
my %pod_param = ( -input => __FILE__, -output => \*STDERR );
my $who = ( getpwuid $< )[0];
push @ARGV, $who;
my @argv = @ARGV;
Pod::Usage::pod2usage( %pod_param )
view release on metacpan or search on metacpan
lib/DynGig/RCE/Client.pm view on Meta::CPAN
my %done;
my %client =
(
prog => File::Spec->rel2abs( $0 ),
host => Sys::Hostname::hostname(),
user => scalar getpwuid $<,
);
for my $server ( keys %config )
{
my $config = $config{$server};