view release on metacpan or search on metacpan
bin/irctor-queue view on Meta::CPAN
for ($size, $torrent_file) {
die "An argument is missing for 'inserted_new'" if !defined $_;
}
my $user = getpwuid(stat($torrent_file)->uid);
_torrentlog($ACTION, $NAME, $user, $size);
return;
}
sub _erased_torrent {
view release on metacpan or search on metacpan
lib/POE/Component/IRC.pm view on Meta::CPAN
}
# Make sure that we have reasonable defaults for all the attributes.
# The "IRC*" variables are ircII environment variables.
if (!defined $self->{nick}) {
$self->{nick} = $ENV{IRCNICK} || eval { scalar getpwuid($>) }
|| $ENV{USER} || $ENV{LOGNAME} || 'WankerBot';
}
if (!defined $self->{username}) {
$self->{username} = eval { scalar getpwuid($>) } || $ENV{USER}
|| $ENV{LOGNAME} || 'foolio';
}
if (!defined $self->{ircname}) {
$self->{ircname} = $ENV{IRCNAME} || eval { (getpwuid $>)[6] }
|| 'Just Another Perl Hacker';
}
if (!defined $self->{server} && !$spawned) {
die "No IRC server specified\n" if !$ENV{IRCSERVER};
view release on metacpan or search on metacpan
t/01-correct_object.t view on Meta::CPAN
SKIP: {
my ( $user, $pass );
eval {
local $SIG{'ALRM'} = sub { die "timeout\n"; };
alarm 10;
$user = getpwuid $EFFECTIVE_USER_ID;
$pass = read_password("Local SSH Pass for $user: ");
#ReadMode 0;
alarm 0;
};
view release on metacpan or search on metacpan
lib/POE/Devel/Top.pm view on Meta::CPAN
my $poe_api = POE::API::Peek->new;
my $now = time;
# collect general data about the current process
my @times = times;
my @pwent = getpwuid(int $>);
my $egid = (split / /, $))[0];
my @grent = getgrgid(int $egid);
my %general = (
process => {
view release on metacpan or search on metacpan
lib/POSIX/1003/Symbols.pm view on Meta::CPAN
getgrnam
getgroups
getlogin
getpwent
getpwnam
getpwuid
getresgid
getresuid
getuid
setegid
seteuid
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/POSIX/RT/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
lib/POSIX/RT/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
lib/POSIX/RT/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
lib/POSIX/RT/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
lib/PPI/Singletons.pm view on Meta::CPAN
eof eq eval evalbytes exec exists exit exp fc fcntl fileno flock for
foreach fork format formline ge getc getgrent getgrgid getgrnam
gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr
getnetbyname getnetent getpeername getpgrp getppid getpriority
getprotobyname getprotobynumber getprotoent getpwent getpwnam
getpwuid getservbyname getservbyport getservent getsockname
getsockopt given glob gmtime goto grep gt hex if index int ioctl join
keys kill last lc lcfirst le length link listen local localtime lock
log lstat lt m map mkdir msgctl msgget msgrcv msgsnd my ne next no
not oct open opendir or ord our pack package pipe pop pos print
printf prototype push q qq qr quotemeta qw qx rand read readdir
view release on metacpan or search on metacpan
lib/PPIx/Utils/Classification.pm view on Meta::CPAN
getpeername
getpgrp
getprotobyname
getprotobynumber
getpwnam
getpwuid
getsockname
goto
keys
local
prototype
view release on metacpan or search on metacpan
bin/gen_builtin_expr.pl view on Meta::CPAN
'getprotobyname',
'getprotobynumber',
'getprotoent',
'getpwent',
'getpwnam',
'getpwuid',
'getservbyname',
'getservbyport',
'getservent',
'getsockname',
'getsockopt',
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/Padre/Wx/Scintilla.pm view on Meta::CPAN
endhostent endnetent endprotoent endpwent endservent eof eq eval
exec exists exit exp fcntl fileno flock for foreach fork format
formline ge getc getgrent getgrgid getgrnam gethostbyaddr gethostbyname
gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername
getpgrp getppid getpriority getprotobyname getprotobynumber getprotoent
getpwent getpwnam getpwuid getservbyname getservbyport getservent
getsockname getsockopt glob gmtime goto grep gt hex if index
int ioctl join keys kill last lc lcfirst le length link listen
local localtime lock log lstat lt map mkdir msgctl msgget msgrcv
msgsnd my ne next no not oct open opendir or ord our pack package
pipe pop pos print printf prototype push quotemeta qu
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_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
@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(getpwnam getpwuid);
@EXPORT_OK = qw(mgetpwnam setpwinfo rmpwnam init_db modpwinfo);
$VERSION = '1.05';
}
untie %dbm;
return;
}
sub getpwuid ($) {
my ($self, $uid) = @_;
my (%dbm, @info, $key, $db);
if (ref($self)) {
$db = $self->{'Database'};
use Passwd::DB;
$db = Passwd::DB->new("/usr/local/databases/db_ftp_users");
$db = Passwd::DB->new("/usr/local/databases/db_ftp_users", 'create');
@info = $db->getpwnam('bob');
@info = $db->getpwuid('100');
@minfo = $db->mgetpwnam('bob');
$err = $db->modpwinfo(@minfo);
$err = $db->setpwinfo(@minfo);
$err = $db->rmpwnam('bob');
use Passwd::DB qw(init_db getpwnam getpwuid mgetpwnam modpwinfo setpwinfo rmpwnam);
Passwd::DB->init_db("/usr/local/databases/db_ftp_users");
Passwd::DB->init_db("/usr/local/databases/db_ftp_users", 1);
init_db("/usr/local/db_bob",1);
@info = getpwnam('bob');
@info = getpwuid('100');
@minfo = mgetpwnam('bob');
$err = modpwinfo(@minfo);
$err = setpwinfo(@minfo);
$err = rmpwnam('bob');
=head1 DESCRIPTION
Passwd::DB provides basic password routines. It augments getpwnam and getpwuid functions with setpwinfo, modpwinfo, rmpwnam, mgetpwnam. The routines can be used both in object context or straight. When used in non-object context a call to init_db ...
new and init_db can be called with an optional second argument. If it is set to 1 or 'create' the database will be created if it doesn't already exist.
getpwnam and getpwuid are the same as their respective core counterparts.
setpwinfo and modpwinfo are called with arrays containing (in order):
name, crypted_password, uid, gid, gecos, home_directory, shell
rmpwnam is called with a scalar containing the login name.
=head1 Exported functions on the OK basis
getpwnam
getpwuid
mgetpwnam
modpwinfo
setpwinfo
rmpwnam
init_db
view release on metacpan or search on metacpan
t/eg/type-here view on Meta::CPAN
use Term::ReadKey;
$|=1;
print "$0\n";
my $user = scalar getpwuid $>;
ReadMode 2;
print "type here:";
my $pw1 = <STDIN>;
ReadMode 1;
view release on metacpan or search on metacpan
lib/Path/Class/File/Lockable.pm view on Meta::CPAN
if ( $^O eq 'MSWin32' ) {
require Win32;
$owner = Win32::LoginName();
}
else {
$owner = shift || getlogin() || ( getpwuid($<) )[0] || 'anonymous';
}
# we have to lock our lock file first, to avoid
# NFS and race condition badness.
# so obtain a lock on our lock file, write our lock
view release on metacpan or search on metacpan
use Test::More;
is abs_path(expand_tilde('~')), abs_path($home), '~ expands to home dir';
my $username = eval { getpwuid $> };
$username = getlogin unless defined $username;
SKIP: {
skip 'username not found', 1 unless defined $username;
my $user_home = expand_tilde("~$username");
skip 'user home directory not found', 1 unless defined $user_home and $user_home ne "~$username";
view release on metacpan or search on metacpan
lib/Pcore.pm view on Meta::CPAN
if ( defined $ENV->{UID} && !defined $ENV->{GID} ) {
my $uid = $ENV->{UID} =~ /\A\d+\z/sm ? $ENV->{UID} : getpwnam $ENV->{UID};
die qq[Can't find uid "$ENV->{UID}"] if !defined $uid;
$ENV->{GID} = [ getpwuid $uid ]->[2];
}
# change priv
Pcore->sys->change_priv( gid => $ENV->{GID}, uid => $ENV->{UID} );
view release on metacpan or search on metacpan
lib/Perinci/CmdLine/Base.pm view on Meta::CPAN
=head2 config_dirs => array of str
Which directories to look for configuration file. The default is to look at the
user's home and then system location. On Unix, it's C<< [ "$ENV{HOME}/.config",
$ENV{HOME}, "/etc"] >>. If $ENV{HOME} is empty, getpwuid() is used to get home
directory entry.
=head2 cleanser => obj
Object to cleanse result for JSON output. By default this is an instance of
view release on metacpan or search on metacpan
lib/Perinci/CmdLine/Util/Config.pm view on Meta::CPAN
return join($ENV{HOMEDRIVE}, "\\", $ENV{HOMEPATH})
if $ENV{HOMEDRIVE} && $ENV{HOMEPATH};
} else {
return $ENV{HOME} if $ENV{HOME};
my @pw;
eval { @pw = getpwuid($>) };
return $pw[7] if @pw;
}
die "Can't get home directory";
}
view release on metacpan or search on metacpan
bin/_peri-eg-noop-inline 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/Perl/Critic/Utils.pm view on Meta::CPAN
getpeername
getpgrp
getprotobyname
getprotobynumber
getpwnam
getpwuid
getsockname
goto
keys
local
prototype
view release on metacpan or search on metacpan
share/win32/config.gc.tt view on Meta::CPAN
d_getprotoprotos='define'
d_getprpwnam='undef'
d_getpwent='undef'
d_getpwent_r='undef'
d_getpwnam_r='undef'
d_getpwuid_r='undef'
d_getsbyname='define'
d_getsbyport='define'
d_getsent='undef'
d_getservbyname_r='undef'
d_getservbyport_r='undef'
share/win32/config.gc.tt view on Meta::CPAN
getprotobyname_r_proto='0'
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"ld"'
view release on metacpan or search on metacpan
share/perl-5.16-x86-64int/win32_config.gc.tt view on Meta::CPAN
d_getprotoprotos='define'
d_getprpwnam='undef'
d_getpwent='undef'
d_getpwent_r='undef'
d_getpwnam_r='undef'
d_getpwuid_r='undef'
d_getsbyname='define'
d_getsbyport='define'
d_getsent='undef'
d_getservbyname_r='undef'
d_getservbyport_r='undef'
share/perl-5.16-x86-64int/win32_config.gc.tt view on Meta::CPAN
getprotobyname_r_proto='0'
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"ld"'
view release on metacpan or search on metacpan
share-5123/default/win32/config.gc.tt view on Meta::CPAN
d_getprotoprotos='define'
d_getprpwnam='undef'
d_getpwent='undef'
d_getpwent_r='undef'
d_getpwnam_r='undef'
d_getpwuid_r='undef'
d_getsbyname='define'
d_getsbyport='define'
d_getsent='undef'
d_getservbyname_r='undef'
d_getservbyport_r='undef'
share-5123/default/win32/config.gc.tt view on Meta::CPAN
getprotobyname_r_proto='0'
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"ld"'
view release on metacpan or search on metacpan
share-5123/default/win32/config.gc.tt view on Meta::CPAN
d_getprotoprotos='define'
d_getprpwnam='undef'
d_getpwent='undef'
d_getpwent_r='undef'
d_getpwnam_r='undef'
d_getpwuid_r='undef'
d_getsbyname='define'
d_getsbyport='define'
d_getsent='undef'
d_getservbyname_r='undef'
d_getservbyport_r='undef'
share-5123/default/win32/config.gc.tt view on Meta::CPAN
getprotobyname_r_proto='0'
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"ld"'
view release on metacpan or search on metacpan
share/vanilla/perl-5.10.0/lib/Config_heavy.pl view on Meta::CPAN
d_getprotoprotos='define'
d_getprpwnam='undef'
d_getpwent='undef'
d_getpwent_r='undef'
d_getpwnam_r='undef'
d_getpwuid_r='undef'
d_getsbyname='define'
d_getsbyport='define'
d_getsent='undef'
d_getservbyname_r='undef'
d_getservbyport_r='undef'
share/vanilla/perl-5.10.0/lib/Config_heavy.pl view on Meta::CPAN
getprotobyname_r_proto='0'
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"ld"'