view release on metacpan or search on metacpan
lib/Data/Sah/Filter/perl/Unix/check_uid_exists.pm view on Meta::CPAN
my $res = {};
$res->{expr_filter} = join(
"",
"do { my \$tmp = $dt+0; my \@tmp = getpwuid(\$tmp); if (!\@tmp) { [\"UID \$tmp is not associated with any user\", \$tmp] } else { [undef, \$tmp] } }",
);
$res;
}
view release on metacpan or search on metacpan
lib/Samba/LDAP/User.pm view on Meta::CPAN
my $userUidNumber = $args{user_uid};
if ( !defined($userUidNumber) ) {
$userUidNumber = $self->_get_next_id( $self->{usersdn}, 'uidNumber' );
}
elsif ( getpwuid($userUidNumber) ) {
carp "Uid already $userUidNumber exists.\n";
}
my $createGroup = 0;
my $userGidNumber = $args{group};
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
$AT{'remove'} = 'at -r %JOBID%';
$AT{'getJobs'} = 'at -l';
$AT{'headings'} = [];
$AT{'getCommand'} = '/usr/spool/cron/atjobs/%JOBID%';
$AT{'parseJobList'} = sub {
my $user = scalar getpwuid $<;
if ($user eq 'root') {
$_[0] =~ /^\s*\S+\s*\S+\s*\S+\s*(\S+)\s+(.*)$/
}
else {
$_[0] =~ /(\S+)\s+(.*)$/
view release on metacpan or search on metacpan
t/02-methods.t view on Meta::CPAN
use Test::More tests => 9;
use File::Spec;
use Script::Daemonizer;
my $gid = (split " ", $( )[0];
my $user = getpwuid($<);
my $euser = getpwuid($>);
my $group = getgrgid($gid);
# ------------------------------------------------------------------------------
# Call drop_privileges() with parameters passed to the function
# ------------------------------------------------------------------------------
view release on metacpan or search on metacpan
lib/Script/Remote.pm view on Meta::CPAN
has 'username' => (
is => 'rw',
isa => 'Str',
required => 1,
default => (getpwuid($>))[0]
);
has 'perl' => (
is => 'rw',
isa => 'Path::Class::File',
view release on metacpan or search on metacpan
lib/Sendmail/Queue/Qf.pm view on Meta::CPAN
my $g = Mail::Header::Generator->new();
my $user = $self->get_user();
if(!$user) {
$user = getpwuid($>);
}
$self->{received_header} = $g->received({
helo => $self->get_helo(),
hostname => $self->get_local_hostname(),
view release on metacpan or search on metacpan
"getprotobyname"
"getprotobynumber"
"getprotoent"
"getpwent"
"getpwnam"
"getpwuid"
"getservbyname"
"getservbyport"
"getservent"
"getsockname"
"getsockopt"
view release on metacpan or search on metacpan
lib/Server/Control.pm view on Meta::CPAN
if ( ( $eid || $uid ) && $proc->uid != $uid && !$self->use_sudo() ) {
$log->warnf(
"warning: process %d is owned by uid %d ('%s'), different than current user %d ('%s'); may not be able to stop server",
$proc->pid,
$proc->uid,
scalar( getpwuid( $proc->uid ) ),
$uid,
scalar( getpwuid($uid) )
);
}
}
sub _find_process {
view release on metacpan or search on metacpan
lib/Setup/File.pm view on Meta::CPAN
my ($orig_uid, $orig_uname);
if (defined $orig_owner) {
if ($orig_owner =~ /\A\d+\z/) {
$orig_uid = $orig_owner;
my @ent = getpwuid($orig_uid);
$orig_uname = $ent[0] if @ent;
} else {
$orig_uname = $orig_owner;
my @ent = getpwnam($orig_uname);
return [412, "User doesn't exist: $orig_uname"] unless @ent;
lib/Setup/File.pm view on Meta::CPAN
my ($want_uid, $want_uname);
if (defined $want_owner) {
if ($want_owner =~ /\A\d+\z/) {
$want_uid = $want_owner;
my @ent = getpwuid($want_uid);
$want_uname = $ent[0] if @ent;
} else {
$want_uname = $want_owner;
my @ent = getpwnam($want_uname);
return [412, "User doesn't exist: $want_uname"] unless @ent;
view release on metacpan or search on metacpan
'$' => $$,
'w' => cwd,
'W' => basename(cwd),
'0' => $self->progname,
'!' => $self->prompt_no,
'u' => scalar getpwuid($<),
'g' => scalar getgrgid($(),
'c' => ref($self),
'h' => hostname,
'H' => hostfqdn,
};
view release on metacpan or search on metacpan
lib/Shell/Guess.pm view on Meta::CPAN
my $username = shift || $ENV{USER} || $ENV{USERNAME} || $ENV{LOGNAME};
unless(defined $username)
{
$username = eval { getpwuid $< };
}
if($^O eq 'darwin')
{
my $command = `dscl . -read /Users/$username UserShell`;
view release on metacpan or search on metacpan
lib/Shipwright/Util.pm view on Meta::CPAN
=cut
sub user_home {
return $ENV{HOME} if $ENV{HOME};
my $home = eval { (getpwuid $<)[7] };
if ( $@ ) {
confess_or_die "can't find user's home, please set it by env HOME";
}
else {
return $home;
view release on metacpan or search on metacpan
lib/Sidef.pm view on Meta::CPAN
$ENV{HOME}
|| $ENV{LOGDIR}
|| (
$^O eq 'MSWin32'
? '\Local Settings\Application Data'
: eval { ((getpwuid($<))[7] || `echo -n ~`) }
)
|| File::Spec->curdir()
),
'.config',
'sidef'
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
lib/Esjis.pm view on Meta::CPAN
};
}
# Desperation on any platform
SCOPE: {
# On some platforms getpwuid dies if called at all
local $SIG{'__DIE__'} = '';
my $home = CORE::eval q{ (getpwuid($<))[7] };
return $home if $home and Esjis::d($home);
}
croak "Could not locate current user's home directory";
}
lib/Esjis.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 ! Esjis::d($home)) {
view release on metacpan or search on metacpan
lib/Slackware/SBoKeeper/Home.pm view on Meta::CPAN
use warnings;
use Exporter 'import';
our @EXPORT = qw($HOME);
our $HOME = $ENV{HOME} || (getpwuid($<))[7]
or die "Could not find home directory\n";
1;
=head1 NAME
view release on metacpan or search on metacpan
lib/Slovo/resources/public/js/editormd/lib/codemirror/modes.min.js view on Meta::CPAN
!function(e){"object"==typeof exports&&"object"==typeof module?e(require("../lib/codemirror")):"function"==typeof define&&define.amd?define(["../lib/codemirror"],e):e(CodeMirror)}(function(e){"use strict";e.modeInfo=[{name:"APL",mime:"text/apl",mode:...
e.match(/^\s*:/,!1)?["variable-2","variable-definition"]:["variable-2","variable"])},"&":function(){return["atom","atom"]}},name:"css",helperType:"less"})}),function(e){"object"==typeof exports&&"object"==typeof module?e(require("../../lib/codemirror...
multiLineStrings:!0,blockKeywords:t("catch class do else finally for forSome if match switch try while"),atoms:t("true false null"),indentStatements:!1,hooks:{"@":function(e){return e.eatWhile(/[\w\$_]/),"meta"},'"':function(e,t){return e.match('""')...
trailingSpace:t.trailingSpace,trailingSpaceNewLine:t.trailingSpaceNewLine,md_inside:t.md_inside}},token:function(e,t){if(t.formatting=!1,e.sol()){var r=!!t.header;if(t.header=0,e.match(/^\s*$/,!0)||r)return t.prevLineHasContent=!1,a(t),r?this.token(e...
return{startState:function(e){return{tokenize:n,baseIndent:e||0,stack:[]}},token:function(e,t){if(e.eatSpace())return null;s=null;var r=t.tokenize(e,t),n=t.stack[t.stack.length-1];return"hash"==s&&"rule"==n?r="atom":"variable"==r&&("rule"==n?r="numbe...
a="meta",(t.match(/^latex\s*$/)||r.tmp_stex)&&(r.tmp_stex=void 0,u(r,l,{mode:h,local:e.startState(h)}));break;case 2:u(r,i,c(L,3)),(t.match(/^python\s*$/)||r.tmp_py)&&(r.tmp_py=void 0,u(r,l,{mode:m,local:e.startState(m)}));break;default:u(r,n)}else i...
return S(r[n])?r[n]:!1}function C(e,t,r){for(var n=e.length-1;n>-1;n--)if(c(e[n][t],r))return n;return!1}function S(e){return e!==!1&&null!=e}var T=["-type","-spec","-export_type","-opaque"],M=["after","begin","catch","case","cond","end","fun","if","...
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
lib/Software/Packager/Object/Aix.pm view on Meta::CPAN
if ($value)
{
# if we only have digits then get the name.
if ($value =~ /^\d+$/)
{
$value = getpwuid($value);
}
$self->{'USER'} = $value;
}
else
{
unless (scalar $self->{'USER'})
{
$self->{'USER'} = getpwuid($<);
}
return $self->{'USER'};
}
}
view release on metacpan or search on metacpan
lib/Software/Packager/Rpm.pm view on Meta::CPAN
# here is where we specify all the installable objects
print SPEC "\%files\n";
foreach my $object ($self->get_directory_objects(), $self->get_file_objects(), $self->get_link_objects())
{
my $destination = $object->destination();
my $user = getpwuid($object->user());
my $group = getgrgid($object->group());
my $mode = $object->mode();
print SPEC "\%attr($mode, $user, $group)";
print SPEC " \%" . $object->kind() if $object->kind();
print SPEC " /$destination\n"
view release on metacpan or search on metacpan
lib/Software/Packager/Object/Solaris.pm view on Meta::CPAN
{
$data{'PART'} = 1;
}
$data{'CLASS'} = "none" unless scalar $data{'CLASS'};
$data{'USER'} = getpwuid($<) unless $data{'USER'};
unless ($data{'GROUP'})
{
my $groups = $(;
my ($group, $crap) = split / /, $groups;
view release on metacpan or search on metacpan
lib/Software/Packager/Object/Svr4.pm view on Meta::CPAN
my $self = shift;
my $value = shift;
$self->{USER} = $value
if $value;
$self->{USER} ||= [getpwuid([lstat($self->source)]->[4])]->[0];
return $self->{USER};
}
sub group
{
view release on metacpan or search on metacpan
lib/Spreadsheet/Edit/IO.pm view on Meta::CPAN
my ($uid) = @_;
$uid //= eval{ $> } // -1; # default to EUID
state $answer = {};
return $answer->{$uid} //= do {
# https://stackoverflow.com/questions/12081246/how-to-get-system-user-full-name-on-windows-in-perl
eval { getpwuid($uid) // $uid }
||
($^O =~ /MSWin/ && $uid == (eval{$>}//-1) && eval{ # untested...
require Win32API::Net;
Win32API::Net::UserGetInfo($ENV{LOGONSERVER}||'',Win32::LoginName(),10,my $info={});
$info->{fullName}
view release on metacpan or search on metacpan
lib/Stem/Boot.pm view on Meta::CPAN
my $cmd ;
if ( my $user = $self->{'user'} ) {
if ( getpwuid($<) ne $user ) {
$cmd .= "su - $user ; " ;
}
}
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
# Replace tilde with home path.
$path =~ s{ ^ ~ ( [^/]* ) }
{ $1
? (getpwnam($1))[7]
: ( $ENV{HOME} || $ENV{LOGDIR}
|| (getpwuid($<))[7]
)
}ex;
# Replace espaced tilde with regular tilde.
$path =~ s/\\~/~/g;
return $path
view release on metacpan or search on metacpan
# ----------------------------------------------------------------------
# Version 1.14 December 22, 2005
# ----------------------------------------------------------------------
* Updated tests so that 04subrefs.t no longer fails if getpwuid is not
defined. RT#2083.
# ----------------------------------------------------------------------
# Version 1.13 February 11, 2002
# ----------------------------------------------------------------------