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/Provision/Unix/Utility.pm view on Meta::CPAN
my %args = ( debug => $p{debug}, fatal => $p{fatal} );
-e $file or return $log->error( "$file does not exist.", %args);
-r $file or return $log->error( "$file is not readable by you ("
. getpwuid($>)
. "). You need to fix this, using chown or chmod.", %args);
return 1;
}
lib/Provision/Unix/Utility.pm view on Meta::CPAN
if ( !-e $file ) {
my ( $base, $path, $suffix ) = fileparse($file);
return $log->error( "is_writable: $path not writable by "
. getpwuid($>)
. "$nl$nl", %args) if (-e $path && !-w $path);
return 1;
}
return $log->error( " $file not writable by " . getpwuid($>) . "$nl$nl", %args ) if ! -w $file;
$log->audit( "$file is writable" );
return 1;
}
view release on metacpan or search on metacpan
lib/Prty/System.pm view on Meta::CPAN
# -----------------------------------------------------------------------------
sub user {
my ($this,$uid) = @_;
return getpwuid($uid) // do {
$this->throw(
q~SYS-00001: Benutzer existiert nicht~,
Uid=>$uid,
Error=>"$!",
);
view release on metacpan or search on metacpan
lib/QBit/Cron.pm view on Meta::CPAN
my $cron_cmd = 'perl'
. (exists($opts{'framework_path'}) ? " -I$opts{'framework_path'}" : '')
. (exists($opts{'application_path'}) ? " -I$opts{'application_path'}" : '')
. " -M$cron_pkg -e'$cron_pkg->new->do'";
my ($cur_user) = getpwuid($<);
my $user = $opts{'user'} || $cur_user;
foreach my $path (sort keys(%$methods)) {
foreach my $method (sort keys(%{$methods->{$path}})) {
print join("\t", $methods->{$path}{$method}{'time'}, $user, "$cron_cmd $path $method") . "\n\n";
}
view release on metacpan or search on metacpan
misc/lib/Queue/Q4M/Benchmark.pm view on Meta::CPAN
has 'username' => (
is => 'rw',
isa => 'Str',
required => 1,
default => sub { (getpwuid($>))[0] },
trigger => sub { $_[0]->connect_info->[1] = $_[1] }
);
has 'password' => (
is => 'rw',
view release on metacpan or search on metacpan
lib/Quiq/System.pm view on Meta::CPAN
sub user {
my $this = shift;
my $uid = shift // $>;
return getpwuid($uid) // do {
$this->throw(
'SYS-00001: Benutzer existiert nicht',
Uid => $uid,
Error => "$!",
);
view release on metacpan or search on metacpan
exercises/compile-tcsh/tcsh-6.10.00/sh.c view on Meta::CPAN
cus = getenv("USER");
if (cus != NULL)
set(STRuser, quote(SAVE(cus)), VAR_READWRITE);
else if (cln != NULL)
set(STRuser, quote(SAVE(cln)), VAR_READWRITE);
else if ((pw = getpwuid(uid)) == NULL)
set(STRuser, SAVE("unknown"), VAR_READWRITE);
else
set(STRuser, SAVE(pw->pw_name), VAR_READWRITE);
if (cln == NULL)
tsetenv(STRLOGNAME, varval(STRuser));
view release on metacpan or search on metacpan
lib/Quota/OO.pm view on Meta::CPAN
}
sub set_gid {
my ($self, $gid) = @_;
$gid{ ident $self }
= $gid =~ m{^\d+$} ? $gid : ( getpwuid($uid{ ident $self }) )[3];
}
#### do rcp* ##
#### Quota::rpcquery ##
sub rpcquery {
view release on metacpan or search on metacpan
lib/RDF/Crypt/Role/DoesEncrypt.pm view on Meta::CPAN
my $crypto = $self->encrypt_model($model, %{ $rdfopts || +{} });
my $default_from =
$RDF::Crypt::SENDER
|| $ENV{EMAIL_ADDRESS}
|| ((getlogin||getpwuid($<)||"anonymous").'@'.Sys::Hostname::hostname);
my %headers = %{ $mailopts->{headers} || +{} };
my $msg = Mail::Message->build(
To => $results[0],
view release on metacpan or search on metacpan
lib/RPC/Serialized.pm view on Meta::CPAN
#
# The C<UCSPI/IPC> server will look for the C<IPCREMOTEINFO> environment
# variable, if authorization is enabled. See the <ucspi-ipc> documentation for
# details if you don't know how to enable this.
#
# =item C<getpwuid $uid failed> in an C<X::Authorization>
#
# The C<UCSPI/IPC> server failed to get the username for the calling user. Only
# happens if authorization has been enabled.
#
# =item C<Not a RPC::Serialized::AuthzHandler> in an C<X::Application>
view release on metacpan or search on metacpan
$defaults{'outdir'} = './';
$defaults{'tmpdir'} = '/tmp';
$defaults{'release'} = '8';
$defaults{'installdirs'} = "";
{
my ($username, $fullname) = (getpwuid($<))[0,6];
$fullname = (split /,/, $fullname)[0];
$defaults{'email'} = $fullname ? $fullname . ' ' : '';
$defaults{'email'} .= '<';
$defaults{'email'} .= $ENV{REPLYTO} || $username . '@redhat.com';
$defaults{'email'} .= '>';
view release on metacpan or search on metacpan
lib/RPerl/Grammar.pm view on Meta::CPAN
/\G(croak\(|exit\(|return\()/gc and return ('OP01_NAMED_VOID_LPAREN', $1);
/\G(croak|die|exit|return)\s/gc and return ('OP01_NAMED_VOID', $1);
/\G(qw\([^()]*\))/gc and return ('OP01_QW', $1);
/\G(open)\s/gc and return ('OP01_OPEN', $1);
/\G(close)\s/gc and return ('OP01_CLOSE', $1);
/\G(abs;|accept;|atan2;|bind;|binmode;|bless;|break;|chmod;|chomp;|chop;|chown;|chr;|closedir;|connect;|continue;|crypt;|dbmclose;|dbmopen;|default;|dump;|each;|endgrent;|endhostent;|endnetent;|endprotoent;|endpwent;|endservent;|eof;|evalbytes;...
/\G(abs\s|accept\s|atan2\s|bind\s|binmode\s|bless\s|break\s|chmod\s|chomp\s|chop\s|chown\s|chr\s|closedir\s|connect\s|continue\s|crypt\s|dbmclose\s|dbmopen\s|default\s|dump\s|each\s|endgrent\s|endhostent\s|endnetent\s|endprotoent\s|endpwent\s|e...
/\G(:)/gc and return ('COLON', $1);
/\G(\(\s*my\s+(?:[a-z_]\w*|[A-Z]\w*[a-z]\w*|(?:[a-zA-Z_]\w*)?(?:::[a-zA-Z_]\w*)+|integer|unsigned_integer)\s+\$TYPED_)/gc and return ('LPAREN_TYPE_INNER', $1);
/\G(\(\s*my)/gc and return ('LPAREN_MY', $1);
/\G(\()/gc and return ('LPAREN', $1);
/\G(\[)/gc and return ('LBRACKET', $1);
view release on metacpan or search on metacpan
lib/RRD/Daemon/Plugin/HDDTemp.pm view on Meta::CPAN
}
my $rootcheck = 0;
sub read_values {
die "HDDTemp plugin uses hdparm, you need to be root to run\n"
unless $rootcheck or 'root' eq getpwuid $>;
$rootcheck = 1;
my @devs = sort uniq map m!^/dev/([a-z]+)\d+\s! ? $1 : (), capturex 'mount';
my @hdparm = capturex('hdparm', -C => map "/dev/$_", @devs);
view release on metacpan or search on metacpan
# We derive configuration information from hardwired defaults, dotfiles,
# and the RT* environment variables (in increasing order of precedence).
# Session information is stored in ~/.rt_sessions.
my $VERSION = 0.02;
my $HOME = eval{(getpwuid($<))[7]}
|| $ENV{HOME} || $ENV{LOGDIR} || $ENV{HOMEPATH}
|| ".";
my %config = (
(
debug => 0,
user => eval{(getpwuid($<))[0]} || $ENV{USER} || $ENV{USERNAME},
passwd => undef,
server => 'http://localhost/',
query => "Status!='resolved' and Status!='rejected'",
orderby => 'id',
queue => undef,
view release on metacpan or search on metacpan
lib/RT/Extension/Nginx.pm view on Meta::CPAN
}
sub GetWebUser {
my $self = shift;
my $id = (stat $RT::MasonDataDir)[4];
return ($id, getpwuid $id);
}
sub GetWebGroup {
my $self = shift;
my $id = (stat $RT::MasonDataDir)[5];
return ($id, getgrgid $id);
}
sub GetSystemUser {
my $self = shift;
return ($>, getpwuid $>);
}
sub GenerateFile {
my $self = shift;
my $name = shift;
view release on metacpan or search on metacpan
t/50-rackman-scm.t view on Meta::CPAN
if (eval { eval { require Win32; 1 } }) {
$login = Win32::LoginName();
}
else {
($login, $name) = eval { (getpwuid($<))[0,6] };
}
$login ||= "dummy";
$name ||= $login;
$host ||= "localhost";
view release on metacpan or search on metacpan
lib/Razor2/Client/Config.pm view on Meta::CPAN
sub find_user {
my $self = shift;
return 1 if $self->{user};
$self->{user} = getpwuid($>) || do {
$self->log( 1, "Can't figure out who the effective user is: $!" );
return undef;
};
return 1;
}
view release on metacpan or search on metacpan
lib/Redis/SQLite.pm view on Meta::CPAN
my $self = {};
bless( $self, $class );
# Get the user's home-directory
my $home =
$ENV{ 'HOME' } || $ENV{ 'USERPROFILE' } || ( getpwuid($<) )[7] || "C:/";
# Create ~/.predis.db unless an alternative path was specified.
my $file = $supplied{ 'path' } || "$home/.predis.db";
my $create = 1;
view release on metacpan or search on metacpan
examples/whoami.pl view on Meta::CPAN
# Prints identity, working directory, Perl version, and @INC on the remote side.
use v5.36;
use Cwd qw(getcwd);
my $uid = $<;
my $user = getpwuid($uid) // '(unknown)';
my $cwd = getcwd();
my $home = (getpwuid($uid))[7] // $ENV{HOME} // '(unknown)';
my $perl_ver = sprintf('%vd', $^V);
my $perl_path = $^X;
print "uid $uid\n";
view release on metacpan or search on metacpan
lib/Respite/Client.pm view on Meta::CPAN
my $name = $self->service_name;
my $method = shift || throw "Missing $name service method", undef, 1;
my $args = shift || {};
throw "Invalid $name service args", {method => $method, args => $args}, 1 if ref($args) ne 'HASH';
local $args->{'_i'} = $self->{'remote_ip'} || $ENV{'REMOTE_ADDR'} || (($ENV{'REALUSER'} || $ENV{'SUDO_USER'}) ? 'sudo' : 'cmdline');
local $args->{'_w'} = $self->{'remote_user'} || $ENV{'REALUSER'} || $ENV{'SUDO_USER'} || $ENV{'REMOTE_USER'} || $ENV{'USER'} || (getpwuid($<))[0] || '-unknown-';
local $args->{'_t'} = $self->{'token'} if !$args->{'_t'} && $self->{'token'};
local $args->{'_c'} = do {my $i = my $c = 0; $c = [(caller $i++)[0..3]] while !$i || $c->[0]->isa(__PACKAGE__); join '; ', @$c} if ! $self->config(no_trace => undef, $name);
local $self->{'flat'} = exists($args->{'_flat'}) ? delete($args->{'_flat'}) : $self->config(flat => undef, $name);
return $self->_remote_call($method, $args) if $self->_needs_remote($method);
return $self->_local_call( $method, $args);
view release on metacpan or search on metacpan
t/lib/TestSSHD.pm view on Meta::CPAN
system('cp', "$dir/client_key.pub", "$dir/authorized_keys") == 0
or return undef;
chmod 0600, "$dir/authorized_keys";
my $port = _free_port() or return undef;
my $user = getpwuid($<);
my $cfg = "$dir/sshd_config";
open my $fh, '>', $cfg or return undef;
print $fh <<"CONFIG";
Port $port
view release on metacpan or search on metacpan
lib/Rex/Config.pm view on Meta::CPAN
if ( $^O =~ m/^MSWin/ ) {
return getlogin;
}
else {
return scalar getpwuid($<);
}
}
=head2 set_password
view release on metacpan or search on metacpan
inc/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/Rhetoric/Helpers.pm view on Meta::CPAN
}
# owner of file
sub file_owner {
my $file = shift;
getpwuid( (stat($file))[4] );
}
1;
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Platform/Unix.pm view on Meta::CPAN
sub _detildefy {
my ($self, $value) = @_;
$value =~ s[^~([^/]+)?(?=/|$)] # tilde with optional username
[$1 ?
(eval{(getpwnam $1)[7]} || "~$1") :
($ENV{HOME} || eval{(getpwuid $>)[7]} || glob("~"))
]ex;
return $value;
}
1;
view release on metacpan or search on metacpan
lib/Rose/DB.pm view on Meta::CPAN
if($error || !defined $rosedb_devinit)
{
my $username;
# The getpwuid() function is often(?) unimplemented in perl on Windows
TRY:
{
local $@;
eval { $username = lc getpwuid($<) };
$error = $@;
}
unless($error)
{
lib/Rose/DB.pm view on Meta::CPAN
The C<ROSEDB_DEVINIT> file or module is used during development, usually to set up data sources for a particular developer's database or project. If the C<ROSEDB_DEVINIT> environment variable is set, it should be the name of a Perl module or file. ...
If the C<ROSEDB_DEVINIT> environment variable is not set, or if the specified file does not exist or has errors, then it defaults to the package name C<Rose::DB::Devel::Init::username>, where "username" is the account name of the current user.
B<Note:> if the L<getpwuid()|perlfunc/getpwuid> function is unavailable (as is often the case on Windows versions of perl) then this default does not apply and the loading of the module named C<Rose::DB::Devel::Init::username> is not attempted.
The C<ROSEDB_DEVINIT> file or module may contain arbitrary Perl code which will be loaded and evaluated in the context of L<Rose::DB>. Example:
Rose::DB->default_domain('development');
view release on metacpan or search on metacpan
lib/Rose/DBx/MoreConfig.pm view on Meta::CPAN
require File::HomeDir;
File::HomeDir->my_home;
}
|| $ENV{HOME}
|| $ENV{LOGDIR}
|| eval { ( getpwuid($<) )[7] }
|| '__ALAS_NO_IDEA__';
$home = File::Spec->catfile( $home, '.rosedbrc' );
my $classpm = blessed($self);
if ($classpm) {
view release on metacpan or search on metacpan
t/99.00.pod.t view on Meta::CPAN
if ( $ENV{TEST_FAST} ) {
plan skip_all => 'Fast tests only';
}
if ( getpwuid($UID) ne 'diablo' ) {
plan skip_all => q{It's author's job to check POD tidiness'};
}
eval { require Test::Pod };
if ($EVAL_ERROR) {
view release on metacpan or search on metacpan
lib/RunApp/Apache.pm view on Meta::CPAN
MinSpareServers => 2,
MaxSpareServers => 2,
StartServers => 2,
MaxClients => 100,
MaxRequestsPerChild => 100,
user => (getpwuid($>) || ''),
group => (getgrgid($)) || ''),
};
# final tweak
my $combined = {%$apacheconf, %$self, %$conf, %$info};
# they don't like multi-request in a process.
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