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
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
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
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