view release on metacpan or search on metacpan
Tk/myConfig view on Meta::CPAN
{
# retain author's favourite warnings if using gcc
$gccopt .= " -ggdb -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
eval
{
if ((getpwuid($<))[6] =~ /Nick\s+Ing-Simmons/)
{
# This is the author - catch as many bugs as possible
$gccopt .= " -MMD -Werror";
@macro = ( macro => { INSTALLDIRS => 'perl' });
}
view release on metacpan or search on metacpan
lib/Egreek.pm view on Meta::CPAN
### More-desperate methods
# Light desperation on any (Unixish) platform
else {
$home = CORE::eval q{ (getpwuid($<))[7] };
}
# On Unix in general, a non-existant home means "no home"
# For example, "nobody"-like users might use /nonexistant
if (defined $home and ! -d($home)) {
view release on metacpan or search on metacpan
lib/Grid/Request/Command.pm view on Meta::CPAN
$self->{state} = $default_state;
# This is important for systems such as psearch, which change
# uid's in order to submit jobs on behalf of users.
# We should use the real user id.
$self->{username} = getpwuid($<);
$logger->debug("Set the username to the effective UID: " . $self->{username});
# Set the default block size.
$logger->debug("Setting the default block size.");
$self->{block_size} = $DEFAULT_BLOCK_SIZE;
view release on metacpan or search on metacpan
if($^O eq "MacOS") {
$home = $ENV{HOME} || `pwd`;
chomp($home);
$file = ($home =~ /:$/ ? $home . "gripsrc" : $home . ":gripsrc");
} else {
# Some OS's don't have `getpwuid', so we default to $ENV{HOME}
$home = eval { (getpwuid($>))[7] } || $ENV{HOME};
$file = $home . "/.gripsrc";
}
my $fh;
local $_;
view release on metacpan or search on metacpan
lib/Guacamole.pm view on Meta::CPAN
OpKeywordGetpwnam ~ 'getpwnam'
OpKeywordGetgrnam ~ 'getgrnam'
OpKeywordGethostbyname ~ 'gethostbyname'
OpKeywordGetnetbyname ~ 'getnetbyname'
OpKeywordGetprotobyname ~ 'getprotobyname'
OpKeywordGetpwuid ~ 'getpwuid'
OpKeywordGetgrgid ~ 'getgrgid'
OpKeywordGetservbyname ~ 'getservbyname'
OpKeywordGethostbyaddr ~ 'gethostbyaddr'
OpKeywordGetnetbyaddr ~ 'getnetbyaddr'
OpKeywordGetprotobynumber ~ 'getprotobynumber'
view release on metacpan or search on metacpan
getpgrp($;)
getpid($;)
getppid($;)
getpriority($;$$)
getproto($;$)
getpwuid($;$)
getserv($;$$)
getsockname($;$)
getsockopt($;$$$)
gettimeofday($;)
getuid($;)
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
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/HADaemon/Control.pm view on Meta::CPAN
and die "ipc_cl_options: 'max_procs' should be at least 1\n";
$self->{process_name_change}
and $self->{ipc_cl_options}->{process_name_change} = 1;
if ($self->uid) {
my @uiddata = getpwuid($self->uid);
@uiddata or die "failed to get info about " . $self->uid . "\n";
if (!$self->gid) {
$self->gid($uiddata[3]);
$self->trace("Implicit GID => " . $uiddata[3]);
view release on metacpan or search on metacpan
lib/HPC/Runner/Command/submit_jobs/Utils/Scheduler/Directives.pm view on Meta::CPAN
=cut
option 'user' => (
is => 'rw',
isa => 'Str',
default => sub { return $ENV{USER} || $ENV{LOGNAME} || getpwuid($<); },
required => 1,
documentation =>
q{This defaults to your current user ID. This can only be changed if running as an admin user}
);
view release on metacpan or search on metacpan
lib/HPC/Runner/Scheduler.pm view on Meta::CPAN
=cut
has 'user' => (
is => 'rw',
isa => 'Str',
default => sub { return $ENV{LOGNAME} || $ENV{USER} || getpwuid($<); },
required => 1,
documentation =>
q{This defaults to your current user ID. This can only be changed if running as an admin user}
);
view release on metacpan or search on metacpan
lib/HPCI/SystemLogger.pm view on Meta::CPAN
say $fh "";
say $fh "*"x40 for 1..2;
say $fh "Program\t$FindBin::Bin/$FindBin::Script";
say $fh "ProcessID\t$$";
say $fh "StartTime\t", $start;
say $fh "User\t", scalar(getpwuid $<);
my $gname = $self->name;
say $fh "GroupName\t$gname";
say $fh "GroupCount\t", ++$groupcnt;
say $fh "GroupEndTime\t", DateTime->from_epoch(epoch => time);
$self->_log_stages( $fh, $gname, $ret );
view release on metacpan or search on metacpan
lib/HTML/EP/Explorer.pm view on Meta::CPAN
my $be = ($b =~ /\.(.*?)$/) ? $1 : '';
($ae cmp $be) || ($a->{'name'} cmp $b->{'name'});
}
} @$list;
} elsif ($sortby eq 'uid') {
@$list = sort { (getpwuid($a->{'uid'}) || '') cmp
(getpwuid($b->{'uid'}) || '')} @$list;
} elsif ($sortby eq 'gid') {
@$list = sort { (getgrgid($a->{'gid'}) || '') cmp
(getgrgid($b->{'gid'}) || '')} @$list;
} elsif ($sortby =~ /^(?:size|[amc]time)$/) {
@$list = sort { $a->{$sortby} <=> $b->{$sortby} } @$list;
lib/HTML/EP/Explorer.pm view on Meta::CPAN
(($mode & 01) ? "x" : "-");
}
sub _format_UID {
my $self = shift; my $uid = shift;
my $u = getpwuid($uid);
defined $u ? $u : $uid;
}
sub _format_GID {
my $self = shift; my $gid = shift;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
if ($b && $apache)
{
$EPPORT = 8531 ;
if (!$win32)
{
$EPUSER = getpwuid($>) || $> ;
$EPGROUP = getgrgid($)) || $) ;
if ($EPUSER eq 'root')
{
my $nobody = (getpwnam('nobody'))[0] ;
$EPUSER = $nobody if $nobody ;
view release on metacpan or search on metacpan
lib/HTML/Mason/Interp.pm view on Meta::CPAN
my ($self, $dir) = @_;
unless (-d $dir) {
my @newdirs = eval { mkpath( $dir, 0, 0775 ) };
if ($@) {
my $user = getpwuid($<);
my $group = getgrgid($();
my $data_dir = $self->data_dir;
error "Cannot create directory '$dir' ($@) for user '$user', group '$group'. " .
"Perhaps you need to create or set permissions on your data_dir ('$data_dir'). ";
}
view release on metacpan or search on metacpan
lib/HTML/Merge/Engine.pm view on Meta::CPAN
sub GetHome
{
return if ($^O =~ /Win/);
my ($name,$passwd,$uid,$gid,
$quota,$comment,$gcos,$dir,$shell,$expire) = getpwuid($>);
return $dir;
}
###############################################################################
sub import
view release on metacpan or search on metacpan
lib/HTML/WebMake/Main.pm view on Meta::CPAN
sub init_for_making {
my ($self) = @_;
if ($^O !~ /(win|os2|mac)/i) {
# which genius decided the mere sniff of getpwuid() should cause
# a crash on win32? Cheers mate.
eval ' $self->{current_user} = getpwuid ($>); ';
} else {
$self->{current_user} = "unknown";
}
$self->{format_conv} = new HTML::WebMake::FormatConvert ($self);
view release on metacpan or search on metacpan
lib/HTTP/Server/Connection.pm view on Meta::CPAN
elsif($d{is_directory})
{ $d{name} .= '/';
}
if($d{is_file} || $d{is_directory})
{ $d{user} = $users{$d{uid}} ||= getpwuid $d{uid};
$d{group} = $users{$d{gid}} ||= getgrgid $d{gid};
my $mode = $d{mode};
my $b = $filetype{$mode & S_IFMT} || '?';
$b .= $flags[ ($mode & S_IRWXU) >> 6 ];
substr($b, -1, -1) = 's' if $mode & S_ISUID;
view release on metacpan or search on metacpan
lib/HTTP/WebTest/ReportPlugin.pm view on Meta::CPAN
my $smtp = Net::SMTP->new($mail_server);
die "HTTP::WebTest: Can't create Net::SMTP object"
unless defined $smtp;
my $from = $mail_from || getlogin() || getpwuid($<) || 'nobody';
$self->_smtp_cmd($smtp, 'mail', $from);
$self->_smtp_cmd($smtp, 'to', @$mail_addresses);
$self->_smtp_cmd($smtp, 'data');
$self->_smtp_cmd($smtp, 'datasend', "From: $from\n");
view release on metacpan or search on metacpan
user_manage view on Meta::CPAN
# commands: adduser deleteuser setgroup view
#
sub dbm_manage {
my ($realm,$help);
my $admin = getpwuid($<);
# process command line
while ($ARGV[0] && $ARGV[0] =~ /^-/) {
my $arg = shift @ARGV;
$realm = shift @ARGV if $arg eq '-r';
view release on metacpan or search on metacpan
lib/Hadoop/HDFS/Command.pm view on Meta::CPAN
);
has runas => (
is => 'rw',
isa => Str,
default => scalar getpwuid $<,
lazy => 1,
);
before ['_capture', '_capture_with_stdin'] => sub {
my ($self, $options, @cmd) = @_;
unshift @cmd, 'sudo', '-u', $self->runas
unless $self->runas eq getpwuid $<;
@_ = ($self, $options, @cmd);
};
sub dfs {
my $self = shift;
view release on metacpan or search on metacpan
lib/HealthCheck/Diagnostic/FilePermissions.pm view on Meta::CPAN
}
sub check_owner {
my ($self, $file, $owner) = @_;
my $actual = getpwuid( ( stat $file )[4] );
return {
status => 'CRITICAL',
info => qq{Owner should be $owner but is $actual for '$file'},
} unless $actual eq $owner;
view release on metacpan or search on metacpan
lib/HiPi/Energenie/Command.pm view on Meta::CPAN
my %params = (
display => 'usage',
mode => 'console',
pretty => 0,
user => getpwuid($>),
console_display_message => '',
result => {
success => 0,
command => 'unknown',
option => '',
view release on metacpan or search on metacpan
bin/hopkins view on Meta::CPAN
my $soap = SOAP::Lite->uri("http://$host:$port");
my $proxy = $soap->proxy("http://$host:$port?session=rpc");
if (scalar @ARGV == 0) {
my $term = new Term::ReadLine 'hopkins';
my $history = ((getpwuid($<))[7]) . '/.hopkins_history';
if ($term->can('ReadHistory')) {
$term->ReadHistory($history);
} else {
print "hopkins: install Term::ReadLine::Gnu for history file support\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_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/IO/Async/Resolver.pm view on Meta::CPAN
printf "http://www.example.com can be reached at " .
"socket(%d,%d,%d) + connect('%v02x')\n",
@{$addr}{qw( family socktype protocol addr )};
}
my @pwent = await $loop->resolve( type => 'getpwuid', data => [ $< ] );
print "My passwd ent: " . join( "|", @pwent ) . "\n";
=head1 DESCRIPTION
lib/IO/Async/Resolver.pm view on Meta::CPAN
=head1 BUILT-IN RESOLVERS
The following resolver names are implemented by the same-named perl function,
taking and returning a list of values exactly as the perl function does:
getpwnam getpwuid
getgrnam getgrgid
getservbyname getservbyport
gethostbyname gethostbyaddr
getnetbyname getnetbyaddr
getprotobyname getprotobynumber
lib/IO/Async/Resolver.pm view on Meta::CPAN
=cut
# Now register the inbuilt methods
register_resolver getpwnam => sub { my @r = getpwnam( $_[0] ) or die "$!\n"; @r };
register_resolver getpwuid => sub { my @r = getpwuid( $_[0] ) or die "$!\n"; @r };
register_resolver getgrnam => sub { my @r = getgrnam( $_[0] ) or die "$!\n"; @r };
register_resolver getgrgid => sub { my @r = getgrgid( $_[0] ) or die "$!\n"; @r };
register_resolver getservbyname => sub { my @r = getservbyname( $_[0], $_[1] ) or die "$!\n"; @r };
view release on metacpan or search on metacpan
lib/IO/Easy/Dir.pm view on Meta::CPAN
}
sub home {
my $pack = shift;
return $pack->new (
$ENV{USERPROFILE} || $ENV{HOME} || (getpwuid($<)) [7]
);
}
sub create {
my $self = shift;
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
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