view release on metacpan or search on metacpan
lib/Message/Passing/Role/Script.pm view on Meta::CPAN
my ($uid, $gid);
if ($self->_has_user) {
my $user = $self->user;
$uid = getpwnam($user) ||
die("User '$user' does not exist, cannot become that user!\n");
(undef, undef, undef, $gid ) = getpwuid($uid);
}
if ($gid) {
setgid($gid) || die("Could not setgid to '$gid' are you root? : $!\n");
}
if ($uid) {
view release on metacpan or search on metacpan
t/00_courier.t view on Meta::CPAN
# First a simple case
use_ok( 'Messaging::Courier::ExampleMessage' );
ok( my $m = Messaging::Courier::ExampleMessage->new() );
ok( $m->username( $ENV{USER} || getlogin || getpwuid($>) ) );
ok( $m->password( 'bar' ) );
ok( $c->send( $m ) );
{
my $query;
while(1) {
ok( $query = $c->receive() );
last if $query->username() eq ( $ENV{USER} || getlogin || getpwuid($>) );
}
my $reply = $query->reply->token( '42' );
ok( $c->send( $reply ) );
}
view release on metacpan or search on metacpan
Meta/Utils/Utils.pm view on Meta::CPAN
# return($>);
}
sub cuname() {
my($uid)=POSIX::getuid();
return((POSIX::getpwuid($uid))[0]);
}
sub cgid() {
return(POSIX::getegid());
}
sub get_home_dir() {
my($uid)=POSIX::getuid();
return((POSIX::getpwuid($uid))[7]);
#my($user)=POSIX::getpwnam();
#return(get_user_home_dir($user));
# return(Meta::Utils::Env::get("HOME"));
}
Meta/Utils/Utils.pm view on Meta::CPAN
This routine returns the current users home directory.
The implementation used to work with the environment and getting the
HOME variable but this is very unrobust and works for less platforms
and situations. Currently this uses POSIX which is much more robust
to find the uid of the current user and then the home directory from
the password file using getpwuid. The reason that this does not use
the get_user_home_dir method from this same module is that there is
no convinient way to get the current user name (it would take
another function to convert uid to uname). The implementation marked
out using POSIX::getpwnam does not work.
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
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/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
bin/_check-module-version view on Meta::CPAN
# my ($user, $slash) = @_;
# my @ent;
# if (length $user) {
# @ent = getpwnam($user);
# } else {
# @ent = getpwuid($>);
# $user = $ent[0];
# }
# return $ent[7] . $slash if @ent;
# "~$user$slash";
#}
view release on metacpan or search on metacpan
lib/Module/Generic/File/Cache.pm view on Meta::CPAN
{
return( Data::UUID->new->create_str );
}
# We do not actually use any path, but this is for standardisation with Module::Generic::SharedMem
my $path;
( $key, $path ) = ref( $key ) eq 'ARRAY' ? @$key : ( $key, [getpwuid($>)]->[7] );
$path = [getpwuid($path)]->[7] if( $path =~ /^\d+$/ );
if( $key =~ /^\d+$/ )
{
my $id = $self->ftok( $key ) ||
return( $self->error( "Unable to get a key using IPC::SysV::ftok: $!" ) );
return( $id );
view release on metacpan or search on metacpan
cpanflute.patch view on Meta::CPAN
use Sys::Hostname;
use Getopt::Long;
@@ -11,7 +78,7 @@
# set default options, then get options
my %options=();
$options{'email'}=(getpwuid($<))[0] . "\@redhat.com" ;
-GetOptions(\%options, "email=s", "n=s", "create") || exit 1;
+GetOptions(\%options, "email=s", "n=s", "create", "meta-info=s") || exit 1;
my $InputFile = $ARGV[0];
my $create = '';
view release on metacpan or search on metacpan
lib/Module/Starter.pm view on Meta::CPAN
builder => 'Module::Build', # defaults to ExtUtils::MakeMaker
# or specify more than one builder in an
# arrayref
license => $license, # type of license; defaults to 'artistic2'
author => $author, # author's full name (taken from C<getpwuid> if not provided)
email => $email, # author's email address (taken from C<EMAIL> if not provided)
ignores_type => $type, # ignores file type ('generic', 'cvs', 'git', 'hg', 'manifest' )
fatalize => $fatalize, # generate code that makes warnings fatal
verbose => $verbose, # bool: print progress messages; defaults to 0
view release on metacpan or search on metacpan
lib/Mojo/IRC.pm view on Meta::CPAN
has server_settings => sub {
return {chantypes => '#', prefix => '(ov)@+'};
};
has tls => undef;
has user => sub { $ENV{USER} || getlogin || getpwuid($<) || 'anonymous' };
sub new {
my $self = shift->SUPER::new(@_);
$self->on(message => \&_legacy_dispatch_message);
return $self;
view release on metacpan or search on metacpan
lib/Mojo/Tar/File.pm view on Meta::CPAN
has gid => sub ($self) { $self->_stat('gid') || $GID };
has group => sub ($self) { getgrgid($self->gid) || '' };
has is_complete => sub ($self) { $self->_stat('size') == $self->size ? 1 : 0 };
has mode => sub ($self) { ($self->_stat('mode') || 0) & 0777 };
has mtime => sub ($self) { $self->_stat('mtime') || time };
has owner => sub ($self) { getpwuid($self->uid) || '' };
has path => sub ($self) { $self->asset->to_string || '' };
has size => sub ($self) { $self->_stat('size') || 0 };
has symlink => '';
has type => sub ($self) { $self->_build_type };
has uid => sub ($self) { $self->_stat('uid') || $( };
view release on metacpan or search on metacpan
lib/Mojolicious/Command/Author/generate/automake_app.pm view on Meta::CPAN
EOF
$self->cwd(join '/', @dir) if @dir;
my $file = $self->file;
my ($userName,$fullName) = (getpwuid $<)[0,6];
$fullName =~ s/,.+//g;
chomp(my $domain = `hostname -d`);
my $email = $userName.'@'.$domain;
if ( -r $ENV{HOME} . '/.gitconfig' ){
view release on metacpan or search on metacpan
lib/Mojolicious/Command/generate/qx_mojo_app.pm view on Meta::CPAN
'frontend/source/index.html' => 'frontend/source/index.html',
'frontend/source/class/app/data/RpcService.js' => 'frontend/source/class/'.$name.'/data/RpcService.js',
't/basic.t' => 't/basic.t',
};
my ($userName,$fullName) = (getpwuid $<)[0,6];
$fullName =~ s/,.+//g;
chomp(my $domain = `hostname -d`);
my $email = $userName.'@'.$domain;
if ( -r $ENV{HOME} . '/.gitconfig' ){
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/Cron.pm view on Meta::CPAN
sub register {
my ($self, $app, $cronhashes) = @_;
croak "No schedules found" unless ref $cronhashes eq 'HASH';
# for *nix systems, getpwuid takes precedence
# for win systems or wherever getpwuid is not implemented,
# eval returns undef so getlogin takes precedence
$crondir
= path($app->config->{cron}{dir} // File::Spec->tmpdir)
->child(CRON_DIR . (eval { scalar getpwuid($<) } || getlogin || 'nobody'),
$app->mode);
Mojo::IOLoop->next_tick(sub {
if (ref((values %$cronhashes)[0]) eq 'CODE') {
# special case, plugin => 'mm hh dd ...' => sub {}
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/Ident/Response.pm view on Meta::CPAN
$server_user_name = $ENV{USERNAME};
}
else
{
$server_user_uid = $<;
$server_user_name = scalar getpwuid($<);
}
die "could not determine username"
unless defined $server_user_name
&& $server_user_name;
}
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/MultiConfig.pm view on Meta::CPAN
{
my $self = shift;
my $app = shift;
my $arg = shift;
my $config = {};
my $username = (getpwuid($<))[0]; # TODO: Not on Windows!
my @files;
# Default args if not set
$arg->{moniker} //= $app->moniker;
$arg->{mode} //= $app->mode;
view release on metacpan or search on metacpan
share/public/revealjs/plugin/highlight/highlight.js view on Meta::CPAN
})();
// END CUSTOM REVEAL.JS INTEGRATION
/*! highlight.js v9.11.0 | BSD3 License | git.io/hljslicense */
!function(e){var n="object"==typeof window&&window||"object"==typeof self&&self;"undefined"!=typeof exports?e(exports):n&&(n.hljs=e({}),"function"==typeof define&&define.amd&&define([],function(){return n.hljs}))}(function(e){function n(e){return e.r...
c:[{cN:"comment",b:/\(\*/,e:/\*\)/},e.ASM,e.QSM,e.CNM,{b:/\{/,e:/\}/,i:/:/}]}});hljs.registerLanguage("roboconf",function(a){var e="[a-zA-Z-_][^\\n{]+\\{",n={cN:"attribute",b:/[a-zA-Z-_]+/,e:/\s*:/,eE:!0,starts:{e:";",r:0,c:[{cN:"variable",b:/\.[a-zA...
view release on metacpan or search on metacpan
t/register.t view on Meta::CPAN
$log_buffer = '';
eval {
plugin 'SetUserGroup' => {
user => scalar getpwuid $>,
group => 'bad group name !!!!!',
};
};
$error = $@;
view release on metacpan or search on metacpan
lib/Mojolicious/resources/public/mojo/highlight.js/highlight.min.js view on Meta::CPAN
},{begin:/^\-{3}/,end:/$/},{begin:/^\*{3} /,end:/$/},{begin:/^\+{3}/,end:/$/},{
begin:/^\*{15}$/}]},{className:"addition",begin:"^\\+",end:"$"},{
className:"deletion",begin:"^\\-",end:"$"},{className:"addition",begin:"^\\!",
end:"$"}]}}}());hljs.registerLanguage("perl",function(){"use strict";return function(e){var n={
$pattern:/[\w.]+/,
keyword:"getpwent getservent quotemeta msgrcv scalar kill dbmclose undef lc ma syswrite tr send umask sysopen shmwrite vec qx utime local oct semctl localtime readpipe do return format read sprintf dbmopen pop getpgrp not getpwnam rewinddir qq fileno...
},t={className:"subst",begin:"[$@]\\{",end:"\\}",keywords:n},s={begin:"->{",
end:"}"},r={variants:[{begin:/\$\d/},{
begin:/[\$%@](\^\w\b|#\w+(::\w+)*|{\w+}|\w+(::\w*)*)/},{begin:/[\$%@][^\s\w{]/,
relevance:0}]
},i=[e.BACKSLASH_ESCAPE,t,r],a=[r,e.HASH_COMMENT_MODE,e.COMMENT("^\\=\\w","\\=cut",{
view release on metacpan or search on metacpan
Mon/Client.pm view on Meta::CPAN
$self->{"VERSION"} = undef;
if ($ENV{"USER"} ne "") {
$self->{"USERNAME"} = $ENV{"USER"};
} else {
$self->{"USERNAME"} = (getpwuid ($<))[0];
}
$self->{"OPSTATUS"} = undef;
$self->{"DISABLED"} = undef;
view release on metacpan or search on metacpan
lib/Monitoring/Generator/TestConfig.pm view on Meta::CPAN
my($user, $group);
if($^O eq "MSWin32") {
$user = getlogin();
$group = "nagios";
} else {
$user = getpwuid($<);
my @userinfo = getpwnam($user);
my @groupinfo = getgrgid($userinfo[3]);
$group = $groupinfo[0];
}
view release on metacpan or search on metacpan
lib/Monitoring/Icinga2/Client/Simple.pm view on Meta::CPAN
$ua->default_header( 'Accept' => 'application/json' );
$self->{ua} = $ua;
}
# uncoverable condition false
# uncoverable branch right
$self->{_mics_author} = getlogin || getpwuid($<);
return $self;
}
sub schedule_downtime {
my ($self, %args) = @_;
lib/Monitoring/Icinga2/Client/Simple.pm view on Meta::CPAN
C<services>: set to a true value to set downtimes on all of a host's services. Default is to set the downime on the host only.
=item *
C<author>: will use L<getlogin()|perlfunc/getlogin> (or L<getpwuid|perlfunc/getpwuid> where that's unavailable) if unset
=item *
C<fixed>: set to true for a fixed downtime, default is flexible
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
inc/Perl/Tidy.pm view on Meta::CPAN
getpgrp
getpriority
getprotobyname
getprotobynumber
getpwnam
getpwuid
getservbyname
getservbyport
getsockname
getsockopt
glob
view release on metacpan or search on metacpan
lib/Morale.pm view on Meta::CPAN
{
my ($user) = @_;
my $dir;
my @check;
if (!defined($user)) { $user = (getpwuid($>))[0]; }
$dir = (getpwnam($user))[7];
push @check, "/var/morale/$user";
push @check, "$dir/.morale";
view release on metacpan or search on metacpan
MsqlCGI-bin/MsqlCGI.pm view on Meta::CPAN
if ( $1 ) {
($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) =
getpwnam ( $1 ); $dir
} else {
($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) =
getpwuid ( $< ); $dir
}/ge;
&main::DPrint ( "After second substitution. Returning: $fileName" );
return $fileName;
}
view release on metacpan or search on metacpan
cgi-bin/Content/files.pl view on Meta::CPAN
mtime => $sb->mtime,
size => $sb->size,
columns => [
sprintf( "%s", $sb->size ),
( $^O ne 'MSWin32' ? sprintf( "%04o", $sb->mode & 07777 ) : '' ),
( $^O ne 'MSWin32' ? getpwuid( $sb->uid )->name : '' ),
( $^O ne 'MSWin32' ? $sb->gid : '' ),
"$year-$mon-$mday $hour:$min:$sec",
qq|<table cellpading="0" cellspacing="0">
<tr><td class="batch"><a class="treeviewLink16" href="javascript:prompt('Enter Filename:',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=renameFile&file=$efl&newName=...
. (
cgi-bin/Content/files.pl view on Meta::CPAN
mtime => $sb->mtime,
size => $sb->size,
columns => [
sprintf( "%s", $sb->size ),
sprintf( "%04o", $sb->mode & 07777 ),
( $^O ne 'MSWin32' ? getpwuid( $sb->uid )->name : '' ),
$sb->gid,
"$year-$mon-$mday $hour:$min:$sec",
qq|
<table cellpading="0" cellspacing="0"><tr>
view release on metacpan or search on metacpan
bin/rm_package view on Meta::CPAN
}
if (@unauthorized_files > 0) {
say STDERR RED, "ERROR:", RESET, " The following files/directories are not owned by $current_user:";
foreach my $file (@unauthorized_files) {
my $owner = getpwuid((stat($file))[4]) || "unknown";
say STDERR " $file (owner: $owner)";
}
say STDERR RED, "ERROR:", RESET, " For security reasons, you can only delete files owned by your user.";
exit 1;
}
bin/rm_package view on Meta::CPAN
foreach my $image (@images) {
if (-f $image) {
# Check image ownership
my $image_uid = (stat($image))[4];
if ($image_uid != $current_uid) {
my $owner = getpwuid($image_uid) || "unknown";
say STDERR RED, "ERROR:", RESET, " Cannot delete image $image: owned by $owner, not $current_user";
$success = 0;
next;
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$self->{local_user} = $user;
delete $self->{_local_user};
}
return $self->{_local_user} if exists $self->{_local_user};
if ($self->{local_user} eq '~') {
my $user = $ENV{'USER'} || $ENV{'LOGNAME'} || getpwuid($<);
$self->{_local_user} = $user;
} else {
$self->{_local_user} = $self->{local_user};
}
$self->{_local_user};
Makefile.PL view on Meta::CPAN
$self->{remote_user} = $user;
delete $self->{_remote_user};
}
return $self->{_remote_user} if exists $self->{_remote_user};
if ($self->{remote_user} eq '~') {
my $user = $ENV{'USER'} || $ENV{'LOGNAME'} || getpwuid($<);
$self->{_remote_user} = $user;
} else {
$self->{_remote_user} = $self->{remote_user};
}
$self->{_remote_user};
Makefile.PL view on Meta::CPAN
sub home {
my $self = shift;
return $self->{_home} if exists $self->{_home};
my $user = $ENV{'USER'} || $ENV{'LOGNAME'} || getpwuid($<);
my $home = (getpwnam($user))[7];
$self->{_home} = $home;
}
sub base {