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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
modules/ip6t_pl_owner.c view on Meta::CPAN
char *name, *temp;
SV *sv;
if(info->match & IP6T_OWNER_UID) {
struct passwd *pwd;
pwd = getpwuid(info->uid);
if(pwd) {
name = strdup(pwd->pw_name);
if(info->invert & IP6T_OWNER_UID) {
asprintf(&temp, "%c%s", INVCHAR, name);
free(name);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Image/ExifTool.pm view on Meta::CPAN
},
Writable => 1,
WritePseudo => 1,
DelCheck => q{"Can't delete"},
Protected => 1, # all writable pseudo-tags must be protected!
PrintConv => 'eval { getpwuid($val) } || $val',
PrintConvInv => 'eval { getpwnam($val) } || ($val=~/[^0-9]/ ? undef : $val)',
},
FileGroupID => {
Groups => { 1 => 'System', 2 => 'Other' },
Notes => q{
view all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Imager/Probe.pm view on Meta::CPAN
if (!defined $home && $^O eq 'MSWin32'
&& defined $ENV{HOMEDRIVE} && defined $ENV{HOMEPATH}) {
$home = $ENV{HOMEDRIVE} . $ENV{HOMEPATH};
}
unless (defined $home) {
$home = eval { (getpwuid($<))[7] };
}
defined $home or die "You supplied $path, but I can't find your home directory\n";
$path =~ s/^~//;
$path = File::Spec->catdir($home, $path);
}
view all matches for this distribution
view release on metacpan or search on metacpan
cgi/showEnv.pl view on Meta::CPAN
printHeader();
printSectionTitle("User");
printTableOpen();
my $login=(getlogin()||(getpwuid($<))[0]);
printTableLine('login', $login);
printTableClose();
printSectionTitle("Misc");
printTableOpen();
view all matches for this distribution
view release on metacpan or search on metacpan
gen/attr-InfoSys_FreeDB.pl view on Meta::CPAN
Mandatory option to name the connecting client software.
\=item B<C<client_user>>
The user name of the client. Defaults to C<scalar( getpwuid(\$E<gt>) )>.
\=item B<C<client_version>>
Mandatory option with the client software version string.
gen/attr-InfoSys_FreeDB.pl view on Meta::CPAN
throw Error::Simple("ERROR: InfoSys::FreeDB::create_connection, first argument must be 'HASH' reference.");
# Set default values for $opt
$opt->{client_host} = &Sys::Hostname::hostname()
if (! $opt->{client_host} );
$opt->{client_user} = scalar( getpwuid($>) )
if (! $opt->{client_user} );
$opt->{freedb_host} = 'freedb.freedb.org'
if (! $opt->{freedb_host} );
# Set default value to protocol
view all matches for this distribution
view release on metacpan or search on metacpan
File ../nss/getXXent.c:
struct passwd *getpwent(void);
File ../nss/getXXbyYY.c:
struct passwd *getpwnam(const char *);
struct passwd *getpwuid(uid_t);
File ../nss/getXXent_r.c:
int __getpwent_r(struct passwd *, char *, size_t, struct passwd **);
int __old_getpwent_r(struct passwd *, char *, size_t, struct passwd **);
void endpwent(void);
void setpwent(void);
File ../nss/getXXbyYY_r.c:
int __getpwnam_r(const char *, struct passwd *, char *, size_t, struct passwd **);
int __old_getpwnam_r(const char *, struct passwd *, char *, size_t, struct passwd **);
int __getpwuid_r(uid_t, struct passwd *, char *, size_t, struct passwd **);
int __old_getpwuid_r(uid_t, struct passwd *, char *, size_t, struct passwd **);
File fgetpwent_r.c:
int __fgetpwent_r(FILE *, struct passwd *, char *, size_t, struct passwd **);
int _nss_files_parse_pwent(char *, struct passwd *, struct parser_data *, size_t, int *);
File nis_hash.c:
uint32_t __nis_hash(const void *, size_t);
File nscd_getpw_r.c:
int __nscd_getpwnam_r(const char *, struct passwd *, char *, size_t, struct passwd **);
int __nscd_getpwuid_r(uid_t, struct passwd *, char *, size_t, struct passwd **);
static int nscd_getpw_r(const char *, size_t, request_type, struct passwd *, char *, size_t, struct passwd **);
static void pw_map_free(void);
File nscd_getgr_r.c:
int __nscd_getgrgid_r(gid_t, struct group *, char *, size_t, struct group **);
0x0805cd8c fread@plt
0x0805cd9c getsockopt
0x0805cd9c getsockopt@plt
0x0805cdac seteuid@plt
0x0805cdbc strftime@plt
0x0805cdcc getpwuid_r
0x0805cdcc getpwuid_r@plt
0x0805cddc kill
0x0805cddc kill@plt
0x0805cdec mmap64
0x0805cdec mmap64@plt
0x0805cdfc times
view all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution