view release on metacpan or search on metacpan
lib/Proc/ProcessTable/Colorizer.pm view on Meta::CPAN
}
#check to see if it needs to search for users
my $user_search_array=$self->userSearchGet;
if ( defined( $user_search_array->[0] ) ){
my $user=getpwuid($proc->{uid});
$required_hits++;
my $user_search_int=0;
my $matched=0;
#search while we have a user defined and it has not already been matched
while(
lib/Proc/ProcessTable/Colorizer.pm view on Meta::CPAN
if (
( $field eq 'uid' ) &&
$self->{resolveUser}
){
$item=getpwuid($item);
}
#colorizes it
if ( $field eq 'time' ){
if ( $^O =~ 'linux' ){
view release on metacpan or search on metacpan
lib/Proc/ProcessTable/ncps.pm view on Meta::CPAN
my @new_line;
#
# handle username column
#
my $user=getpwuid($proc->{uid});
if ( ! defined( $user ) ) {
$user=$proc->{uid};
}
$user=color($self->nextColor).$user.color('reset');
push( @new_line, $user );
view release on metacpan or search on metacpan
lib/Proc/ProcessTable/piddler.pm view on Meta::CPAN
]);
#
# UID
#
my $user=getpwuid($proc->{uid});
if ( ! defined( $user ) ) {
$user=color( $self->{idColors}[0] ).$proc->{uid}.color('reset');
}else{
$user=color( $self->{idColors}[0] ).$user.
color( $self->{idColors}[1] ).'('.
view release on metacpan or search on metacpan
lib/Project/Easy/Helper.pm view on Meta::CPAN
my $project_pm = Project::Easy::Config::string_from_template (
$data_files->{'Project.pm'},
$data
);
my $login = eval {scalar getpwuid ($<)};
my $instance = 'local' . (defined $login ? ".$login" : '');
my $root = dir->current;
view release on metacpan or search on metacpan
easyxs/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
easyxs/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/Prophet/CLI/Command/Shell.pm view on Meta::CPAN
return $term;
},
);
our $HIST = $ENV{PROPHET_HISTFILE}
|| ( ( $ENV{HOME} || ( getpwuid($<) )[7] ) . "/.prophetreplhist" );
our $LEN = $ENV{PROPHET_HISTLEN} || 500;
sub usage_msg {
my $self = shift;
my $cmd = $self->cli->get_script_name;
view release on metacpan or search on metacpan
lib/Protocol/DBus/Authn/Mechanism/DBUS_COOKIE_SHA1.pm view on Meta::CPAN
}
sub _getpw {
my ($self) = @_;
$self->{'_pw'} ||= [ getpwuid $> ];
return @{ $self->{'_pw'} };
}
sub _consume_data {
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
lib/Rhetoric/Helpers.pm view on Meta::CPAN
}
# owner of file
sub file_owner {
my $file = shift;
getpwuid( (stat($file))[4] );
}
1;