view release on metacpan or search on metacpan
C:\PROGRAMS\NETSCAPE\NETSCAPE.INI);
$Default_Cache_Dir = 'C:\NETSCAPE\CACHE';
@Default_Cache_Index = qw(FAT.DB INDEX.DB);
$OS_Type = 'win';
} else {
$Home = $ENV{'HOME'} || (getpwuid($>))[7];
$Default_Preferences = "$Home/.netscape/preferences";
@Try_Preferences = ();
$Default_40_Preferences = "$Home/.netscape/preferences.js";
$Default_Cache_Dir = "$Home/.netscape/cache";
@Default_Cache_Index = qw(index.db FAT.DB fat.db Fat.db);
view release on metacpan or search on metacpan
NewsClipper.pl view on Meta::CPAN
sub GetHomeDirectory()
{
# Get the user's home directory. First try the password info, then the
# registry (if it's a Windows machine), then any HOME environment variable.
my $home = $opts{H} || eval { (getpwuid($>))[7] } ||
GetWinInstallDir() || $ENV{HOME};
# "s cause problems in Windows. Sometimes people set their home variable as
# "c:\Program Files\NewsClipper", which causes when the path is therefore
# "c:\Program Files\NewsClipper"\.NewsClipper\Handler\Acquisition
$home =~ s/"//g if defined $home;
die <<" EOF"
News Clipper could not determine your home directory. On non-Windows
machines, News Clipper attempts to get your home directory using getpwuid,
then the HOME environment variable. On Windows machines, it attempts to
read the registry entry "HKEY_LOCAL_MACHINE\\SOFTWARE\\Spinnaker
Software\\News Clipper\\$VERSION" then tries the HOME environment
variable.
EOF
view release on metacpan or search on metacpan
my $host = $ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'} || '';
$user .= '@' . $host;
}
# Look up by REAL_USER_ID first.
my ($name, undef, undef, $gid) = getpwuid($<);
my $ugid = getlogin() || $name;
! $ugid and
return "";
$ugid .= "/" . ((getgrgid($gid))[0] || "");
# If EFFECTIVE_USER_ID differs from REAL_USER_ID, get its info too.
if ($> ne $<) {
($name, undef, undef, $gid) = getpwuid($>);
! $name and
return "";
$ugid .= " ($name/" . ((getgrgid($gid))[0] || "") . ")";
}
$user = ($user ? "$user $ugid" : $ugid);
view release on metacpan or search on metacpan
lib/ODF/lpOD/Document.pm view on Meta::CPAN
}
elsif ($object =~ /creator$/)
{
$v =
$v = (scalar getlogin()) ||
(scalar getpwuid($<)) ||
$<
unless $v;
}
elsif ($object =~ /generator$/)
{
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
setuid($bobsuid);
$bobsdshandle = mvsopen("//FOO.BAR","r");
$bobsfullname = getname($bobsdshandle);
$bobshlq = $bobsfullname;
$bobshlq =~ s/\'([^\.]+)\..*/$1/;
print "Bob's pwname is ",(getpwuid($<))[0],"\n";
print "Bob's high level qualifier (HLQ) is $bobshlq\n";
Note that both of these examples assume that UIDs map directly to
profile prefixes, whereas they may not in general. To obtain more
extensive information for a given data set handle see C<get_dcb>.
view release on metacpan or search on metacpan
lib/OSLV/Monitor/Backends/cgroups.pm view on Meta::CPAN
$cgroup_name =~ s/^0\:\:\/user\.slice\///;
$cgroup_name =~ s/\.slice.*$//;
$cgroup_name =~ s/^user[\-\_]//;
if ( $cgroup_name =~ /^\d+$/ ) {
my ( $name, $passwd, $uid, $gid, $quota, $comment, $gecos, $dir, $shell, $expire ) = getpwuid($cgroup_name);
if ( defined($name) ) {
$self->{uid_mapping}{$cgroup_name} = {
name => $name,
gid => $gid,
home => $dir,
view release on metacpan or search on metacpan
lib/ObjStore/AppInstance.pm view on Meta::CPAN
=head1 SYNOPSIS
use ObjStore::AppInstance;
my $app = ObjStore::AppInstance->new('posh', scalar(getpwuid($>)));
my $hash = $app->top(); # fetch the top level hash for this key
$app->modified(); # set the modification time
view release on metacpan or search on metacpan
lib/Object/Import.pm view on Meta::CPAN
endservent eof eval exec exists exit exp fcntl fileno flock for
foreach fork format formline 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 hex if index int
ioctl join keys kill last lc lcfirst length link listen local
localtime lock log lstat map mkdir msgctl msgget msgrcv msgsnd
my next no not oct open opendir ord our pack package pipe pop
pos print printf prototype push quotemeta rand read readdir
view release on metacpan or search on metacpan
}
sub preload
{
my ($id) = @_;
return if getpwuid($id);
return getpwnam($id) if getpwnam($id);
die;
}
sub postload
{
my ($this) = @_;
my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,
$shell,$expire) = getpwuid($this->{UID});
$this->{SHELL} = $shell;
}
sub presave
{
view release on metacpan or search on metacpan
}
my $mod_perl = $httpd;
$mod_perl =~ s{/bin/httpd}{/modules/mod_perl.so};
my($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell,$expire) = getpwuid($<);
my $user = getpwuid($uid);
my $group = getgrgid($gid);
my $default_conf = "$cwd/apache/conf/httpd.conf.default";
my $new_conf = "$cwd/apache/conf/httpd.conf";
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
OpenIndex.pm view on Meta::CPAN
tagout('tr',$cfg,'align="left"');
#Permission data
tagout('td',$cfg,'',"$list->{$entry}{mode}</td>") if $cfg->{options} & SHOW_PERMS;
#Owner data
if($args->{isadmin}) {
my $pname=getpwuid($list->{$entry}{uid})||"$list->{$entry}{uid}";
tagout('td',$cfg,'',"${pname}</td>");
}
#Group data
if($args->{gid}) {
my $pname=getgrgid($list->{$entry}{gid})||"$list->{$entry}{gid}";
view release on metacpan or search on metacpan
share/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
share/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
examples/odfbuild view on Meta::CPAN
'generator=s' => \$generator,
'title=s' => \$title,
'subject=s' => \(my $subject = ''),
'description=s' => \$description,
'keywords=s' => \(my $keywords = ''),
'creator=s' => \(my $creator = scalar getpwuid($<)),
'source=s' => \(my $source = undef),
'tablesize=s' => \(my $tablesize = '16x8'),
'tablename=s' => \(my $tablename = undef),
'force' => \(my $force = undef),
'opendocument' => \(my $odf = undef),
view release on metacpan or search on metacpan
# heading => 0,
# prompt => 0,
);
my $user = getlogin
|| scalar getpwuid($REAL_USER_ID)
|| undef;
print STDERR "Enter Action [CREATE]: ";
chomp( my $action = <STDIN> );
$action = "create" unless $action;
view release on metacpan or search on metacpan
lib/OurNet/BBS/MailBox/Board.pm view on Meta::CPAN
my $file = "$self->{bbsroot}/$self->{board}";
$self->{folder} = $self->{mgr}->open(folder => $file);
$self->{_hash}{title} = $self->{folder}->name;
$self->{_hash}{id} = $self->{folder}->filename;
$self->{_hash}{bm} = getpwuid((stat($file))[4])
if $^O ne 'MSWin32';
}
1;
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
script/par.pl view on Meta::CPAN
) {
next unless defined $path and -d $path and -w $path;
my $username;
my $pwuid;
# does not work everywhere:
eval {($pwuid) = getpwuid($>) if defined $>;};
if ( defined(&Win32::LoginName) ) {
$username = &Win32::LoginName;
}
elsif (defined $pwuid) {
view release on metacpan or search on metacpan
lib/PAR/SetupTemp.pm view on Meta::CPAN
# tries hard to find out the name of the current user
sub _find_username {
my $username;
my $pwuid;
# does not work everywhere:
eval {($pwuid) = getpwuid($>) if defined $>;};
if ( defined(&Win32::LoginName) ) {
$username = &Win32::LoginName;
}
elsif (defined $pwuid) {
view release on metacpan or search on metacpan
write-config view on Meta::CPAN
contains "secret" information.
EOF
do {
if (defined getpwuid $CFG{PAPP_UID}) {
$CFG{PAPP_UID} = getpwuid ($CFG{PAPP_UID});
}
get_value 0, "PAPP_UID", "papp user id", "0";
} until (($CFG{PAPP_UID} ne ((getpwnam $CFG{PAPP_UID})[2])
&& defined ((getpwnam $CFG{PAPP_UID})[2]))
|| ($CFG{PAPP_UID} =~ /^\d+$/));
view release on metacpan or search on metacpan
lib/PDK/Connector/Role.pm view on Meta::CPAN
default => sub {
my $self = shift;
# 获å–用户家目录（跨平å°æ–¹å¼ï¼‰
my $home = $ENV{PDK_LOG_DIR};
$home ||= $ENV{HOME} || $ENV{USERPROFILE} || (getpwuid($<))[7];
# 创建 logs 目录（如果ä¸å˜åœ¨ï¼‰
my $log_dir = "$home/logs";
mkdir $log_dir unless -d $log_dir;
view release on metacpan or search on metacpan
lib/PDL/AutoLoader.pm view on Meta::CPAN
# Expand shell '+' to CWD.
$_= $1 . ($ENV{'PWD'} || '.');
} elsif(!$2) {
# No name mentioned -- use current user.
# Ideally would use File::HomeDir->my_home() here
$_ = $1 . ( $ENV{'HOME'} || (( getpwnam( getlogin || getpwuid($<) ))[7]) ) . $_;
} else {
# Name mentioned - try to get that user's home directory.
$_ = $1 . ( (getpwnam($2))[7] ) . $_;
}
}
view release on metacpan or search on metacpan
Basic/AutoLoader.pm view on Meta::CPAN
# Expand shell '+' to CWD.
$_= $1 . ($ENV{'PWD'} || '.');
} elsif(!$2) {
# No name mentioned -- use current user.
# Ideally would use File::HomeDir->my_home() here
$_ = $1 . ( $ENV{'HOME'} || (( getpwnam( getlogin || getpwuid($<) ))[7]) ) . $_;
} else {
# Name mentioned - try to get that user's home directory.
$_ = $1 . ( (getpwnam($2))[7] ) . $_;
}
}
view release on metacpan or search on metacpan
Basic/AutoLoader.pm view on Meta::CPAN
# Expand shell '+' to CWD.
$_= $1 . ($ENV{'PWD'} || '.');
} elsif(!$2) {
# No name mentioned -- use current user.
# Ideally would use File::HomeDir->my_home() here
$_ = $1 . ( $ENV{'HOME'} || (( getpwnam( getlogin || getpwuid($<) ))[7]) ) . $_;
} else {
# Name mentioned - try to get that user's home directory.
$_ = $1 . ( (getpwnam($2))[7] ) . $_;
}
}
view release on metacpan or search on metacpan
nls/export-js.pl view on Meta::CPAN
use DBIx::Connector;
use Encode;
use JSON;
use Data::Dumper;
my $dbuser = ((getpwuid $>)[0]);
my $dbname = $dbuser;
my $dbpass = "";
my $conn;
my $fname;
my $lang;
view release on metacpan or search on metacpan
lib/PERLANCAR/File/HomeDir.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;
}
if ($DIE_ON_FAILURE) {
die "Can't get home directory";
lib/PERLANCAR/File/HomeDir.pm view on Meta::CPAN
if ($^O eq 'MSWin32') {
# not yet implemented
return undef;
} else {
# IF and only if we have getpwuid support, and the name of the user is
# our own, shortcut to my_home. This is needed to handle HOME
# environment settings.
if ($name eq getpwuid($<)) {
return get_my_home_dir();
}
SCOPE: {
my $home = (getpwnam($name))[7];
view release on metacpan or search on metacpan
lib/PHP/Decode/Func.pm view on Meta::CPAN
posix_mknod => {},
posix_access => {},
posix_getgrnam => {},
posix_getgrgid => {},
posix_getpwnam => {},
posix_getpwuid => {},
posix_getrlimit => {},
posix_get_last_error => {},
posix_errno => {},
posix_strerror => {},
posix_initgroups => {},