view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/Platform/Unix.pm view on Meta::CPAN
sub _detildefy {
my ($self, $value) = @_;
$value =~ s[^~([^/]+)?(?=/|$)] # tilde with optional username
[$1 ?
((getpwnam $1)[7] || "~$1") :
($ENV{HOME} || (getpwuid $>)[7])
]ex;
return $value;
}
1;
view release on metacpan or search on metacpan
lib/SPVM/File/Glob.native/include/SPVM__File_Glob__glob.c view on Meta::CPAN
*/
#if 0
if (issetugid() != 0 || (h = getenv("HOME")) == NULL) {
#endif
if ((getuid() != geteuid()) || (h = getenv("HOME")) == NULL) {
if ((pwd = getpwuid(getuid())) == NULL)
return pattern;
else
h = pwd->pw_dir;
}
} else {
view release on metacpan or search on metacpan
lib/SPVM/Sys.pm view on Meta::CPAN
C<static method setgroups : void ($group_ids : int[]);>
Sets the supplementary group IDs for the calling process.
=head2 getpwuid
C<static method getpwuid : L<Sys::User::Passwd|SPVM::Sys::User::Passwd> ($id : int);>
Searches a password entry given The user ID $id. If found, returns the password entry, otherwise return undef.
=head2 getpwnam
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/SVK/Test.pm view on Meta::CPAN
$ENV{LANGUAGE} = $ENV{LANGUAGES} = 'i-default';
$ENV{SVKRESOLVE} = 's'; # default for test
$ENV{HOME} ||= (
$ENV{HOMEDRIVE} ? catdir(@ENV{qw( HOMEDRIVE HOMEPATH )}) : ''
) || (getpwuid($<))[7];
$ENV{USER} ||= (
(defined &Win32::LoginName) ? Win32::LoginName() : ''
) || $ENV{USERNAME} || (getpwuid($<))[0];
# Make "prove -l" happy; abs_path() returns "undef" if the path
# does not exist. This makes perl very unhappy.
@INC = grep defined, map abs_path($_), @INC;
view release on metacpan or search on metacpan
lib/SVL/Command.pm view on Meta::CPAN
sub dispatch {
my $class = shift;
# hate!
$ENV{HOME} ||= ($ENV{HOMEDRIVE} ? dir(@ENV{qw( HOMEDRIVE HOMEPATH )}) : '')
|| (getpwuid($<))[7];
$ENV{USER} ||= ((defined &Win32::LoginName) ? Win32::LoginName() : '')
|| $ENV{USERNAME}
|| (getpwuid($<))[0];
my $svkpath = $ENV{SVKROOT} || file($ENV{HOME}, ".svk");
my $xd = SVK::XD->new(
giantlock => file($svkpath, 'lock'),
view release on metacpan or search on metacpan
#diag($info->url);
#diag(dump $info->url);
is( $info->url, $info->url->info->url, "recursive URL" );
ok( my $repos = SVN::Class::Repos->new( 'file://' . $repos ),
"new repos object" );
my $thisuser = getpwuid($<);
is( $repos->info->author, $thisuser,
"$thisuser was last author to commit to $repos" ); # 20
} # end global SKIP
view release on metacpan or search on metacpan
t/post_commit.t view on Meta::CPAN
use SVN::Core;
use SVN::Repos;
use Test::More tests => 2;
use App::Cmd::Tester;
const my $USERID => scalar getpwuid $EFFECTIVE_USER_ID;
my $tmp_dir = File::Temp->newdir();
my $repos = SVN::Repos::create( "$tmp_dir", (undef) x 4 );
my $txn = $repos->fs_begin_txn_for_update( 0, "$USERID" );
$txn->root->make_file('/foo');
my $rev = $repos->fs_commit_txn($txn);
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/safeops.t view on Meta::CPAN
ehostent endhostent
enetent endnetent
eprotoent endprotoent
eservent endservent
gpwnam getpwnam
gpwuid getpwuid
gpwent getpwent
spwent setpwent
epwent endpwent
ggrnam getgrnam
ggrgid getgrgid
view release on metacpan or search on metacpan
lib/Data/Sah/Filter/perl/Path/expand_tilde.pm view on Meta::CPAN
my $res = {};
$res->{expr_filter} = join(
"",
"do { my \$tmp = $dt; \$tmp =~ s!\\A~([^/]*)!my \@pw = length(\$1) ? getpwnam(\$1) : getpwuid(\$>); \@pw ? \$pw[7]: \"~\$1\"!e; \$tmp }",
);
$res;
}
view release on metacpan or search on metacpan
lib/Data/Sah/Filter/perl/Unix/check_uid_exists.pm view on Meta::CPAN
my $res = {};
$res->{expr_filter} = join(
"",
"do { my \$tmp = $dt+0; my \@tmp = getpwuid(\$tmp); if (!\@tmp) { [\"UID \$tmp is not associated with any user\", \$tmp] } else { [undef, \$tmp] } }",
);
$res;
}
view release on metacpan or search on metacpan
lib/Data/Sah/Filter/perl/Path/expand_tilde.pm view on Meta::CPAN
my $res = {};
$res->{expr_filter} = join(
"",
"do { my \$tmp = $dt; \$tmp =~ s!\\A~([^/]*)!my \@pw = length(\$1) ? getpwnam(\$1) : getpwuid(\$>); \@pw ? \$pw[7]: \"~\$1\"!e; \$tmp }",
);
$res;
}
view release on metacpan or search on metacpan
lib/Data/Sah/Filter/perl/Unix/check_uid_exists.pm view on Meta::CPAN
my $res = {};
$res->{expr_filter} = join(
"",
"do { my \$tmp = $dt+0; my \@tmp = getpwuid(\$tmp); if (!\@tmp) { [\"UID \$tmp is not associated with any user\", \$tmp] } else { [undef, \$tmp] } }",
);
$res;
}
view release on metacpan or search on metacpan
lib/Samba/LDAP/User.pm view on Meta::CPAN
my $userUidNumber = $args{user_uid};
if ( !defined($userUidNumber) ) {
$userUidNumber = $self->_get_next_id( $self->{usersdn}, 'uidNumber' );
}
elsif ( getpwuid($userUidNumber) ) {
carp "Uid already $userUidNumber exists.\n";
}
my $createGroup = 0;
my $userGidNumber = $args{group};
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
$AT{'remove'} = 'at -r %JOBID%';
$AT{'getJobs'} = 'at -l';
$AT{'headings'} = [];
$AT{'getCommand'} = '/usr/spool/cron/atjobs/%JOBID%';
$AT{'parseJobList'} = sub {
my $user = scalar getpwuid $<;
if ($user eq 'root') {
$_[0] =~ /^\s*\S+\s*\S+\s*\S+\s*(\S+)\s+(.*)$/
}
else {
$_[0] =~ /(\S+)\s+(.*)$/
view release on metacpan or search on metacpan
t/02-methods.t view on Meta::CPAN
use Test::More tests => 9;
use File::Spec;
use Script::Daemonizer;
my $gid = (split " ", $( )[0];
my $user = getpwuid($<);
my $euser = getpwuid($>);
my $group = getgrgid($gid);
# ------------------------------------------------------------------------------
# Call drop_privileges() with parameters passed to the function
# ------------------------------------------------------------------------------
view release on metacpan or search on metacpan
lib/Script/Remote.pm view on Meta::CPAN
has 'username' => (
is => 'rw',
isa => 'Str',
required => 1,
default => (getpwuid($>))[0]
);
has 'perl' => (
is => 'rw',
isa => 'Path::Class::File',
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
lib/Sendmail/Queue/Qf.pm view on Meta::CPAN
my $g = Mail::Header::Generator->new();
my $user = $self->get_user();
if(!$user) {
$user = getpwuid($>);
}
$self->{received_header} = $g->received({
helo => $self->get_helo(),
hostname => $self->get_local_hostname(),
view release on metacpan or search on metacpan
"getprotobyname"
"getprotobynumber"
"getprotoent"
"getpwent"
"getpwnam"
"getpwuid"
"getservbyname"
"getservbyport"
"getservent"
"getsockname"
"getsockopt"
view release on metacpan or search on metacpan
lib/Server/Control.pm view on Meta::CPAN
if ( ( $eid || $uid ) && $proc->uid != $uid && !$self->use_sudo() ) {
$log->warnf(
"warning: process %d is owned by uid %d ('%s'), different than current user %d ('%s'); may not be able to stop server",
$proc->pid,
$proc->uid,
scalar( getpwuid( $proc->uid ) ),
$uid,
scalar( getpwuid($uid) )
);
}
}
sub _find_process {
view release on metacpan or search on metacpan
lib/Setup/File.pm view on Meta::CPAN
my ($orig_uid, $orig_uname);
if (defined $orig_owner) {
if ($orig_owner =~ /\A\d+\z/) {
$orig_uid = $orig_owner;
my @ent = getpwuid($orig_uid);
$orig_uname = $ent[0] if @ent;
} else {
$orig_uname = $orig_owner;
my @ent = getpwnam($orig_uname);
return [412, "User doesn't exist: $orig_uname"] unless @ent;
lib/Setup/File.pm view on Meta::CPAN
my ($want_uid, $want_uname);
if (defined $want_owner) {
if ($want_owner =~ /\A\d+\z/) {
$want_uid = $want_owner;
my @ent = getpwuid($want_uid);
$want_uname = $ent[0] if @ent;
} else {
$want_uname = $want_owner;
my @ent = getpwnam($want_uname);
return [412, "User doesn't exist: $want_uname"] unless @ent;
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
'$' => $$,
'w' => cwd,
'W' => basename(cwd),
'0' => $self->progname,
'!' => $self->prompt_no,
'u' => scalar getpwuid($<),
'g' => scalar getgrgid($(),
'c' => ref($self),
'h' => hostname,
'H' => hostfqdn,
};
view release on metacpan or search on metacpan
lib/Shell/Guess.pm view on Meta::CPAN
my $username = shift || $ENV{USER} || $ENV{USERNAME} || $ENV{LOGNAME};
unless(defined $username)
{
$username = eval { getpwuid $< };
}
if($^O eq 'darwin')
{
my $command = `dscl . -read /Users/$username UserShell`;
view release on metacpan or search on metacpan
lib/Shipwright/Util.pm view on Meta::CPAN
=cut
sub user_home {
return $ENV{HOME} if $ENV{HOME};
my $home = eval { (getpwuid $<)[7] };
if ( $@ ) {
confess_or_die "can't find user's home, please set it by env HOME";
}
else {
return $home;
view release on metacpan or search on metacpan
lib/Sidef.pm view on Meta::CPAN
$ENV{HOME}
|| $ENV{LOGDIR}
|| (
$^O eq 'MSWin32'
? '\Local Settings\Application Data'
: eval { ((getpwuid($<))[7] || `echo -n ~`) }
)
|| File::Spec->curdir()
),
'.config',
'sidef'