view release on metacpan or search on metacpan
benchmarks/app/perlfunc.pod view on Meta::CPAN
=item Fetching user and group info
C<endgrent>, C<endhostent>, C<endnetent>, C<endpwent>, C<getgrent>,
C<getgrgid>, C<getgrnam>, C<getlogin>, C<getpwent>, C<getpwnam>,
C<getpwuid>, C<setgrent>, C<setpwent>
=item Fetching network info
C<endprotoent>, C<endservent>, C<gethostbyaddr>, C<gethostbyname>,
C<gethostent>, C<getnetbyaddr>, C<getnetbyname>, C<getnetent>,
benchmarks/app/perlfunc.pod view on Meta::CPAN
C<dbmclose>, C<dbmopen>, C<dump>, C<endgrent>, C<endhostent>,
C<endnetent>, C<endprotoent>, C<endpwent>, C<endservent>, C<exec>,
C<fcntl>, C<flock>, C<fork>, C<getgrent>, C<getgrgid>, C<gethostbyname>,
C<gethostent>, C<getlogin>, C<getnetbyaddr>, C<getnetbyname>, C<getnetent>,
C<getppid>, C<getpgrp>, C<getpriority>, C<getprotobynumber>,
C<getprotoent>, C<getpwent>, C<getpwnam>, C<getpwuid>,
C<getservbyport>, C<getservent>, C<getsockopt>, C<glob>, C<ioctl>,
C<kill>, C<link>, C<lstat>, C<msgctl>, C<msgget>, C<msgrcv>,
C<msgsnd>, C<open>, C<pipe>, C<readlink>, C<rename>, C<select>, C<semctl>,
C<semget>, C<semop>, C<setgrent>, C<sethostent>, C<setnetent>,
C<setpgrp>, C<setpriority>, C<setprotoent>, C<setpwent>,
benchmarks/app/perlfunc.pod view on Meta::CPAN
restrict what salts C<crypt()> accepts.
Here's an example that makes sure that whoever runs this program knows
their password:
$pwd = (getpwuid($<))[1];
system "stty -echo";
print "Password: ";
chomp($word = <STDIN>);
print "\n";
benchmarks/app/perlfunc.pod view on Meta::CPAN
=item getlogin
This implements the C library function of the same name, which on most
systems returns the current login from F</etc/utmp>, if any. If null,
use C<getpwuid>.
$login = getlogin || getpwuid($<) || "Kilroy";
Do not consider C<getlogin> for authentication: it is not as
secure as C<getpwuid>.
=item getpeername SOCKET
Returns the packed sockaddr address of other end of the SOCKET connection.
benchmarks/app/perlfunc.pod view on Meta::CPAN
=item getnetbyname NAME
=item getprotobyname NAME
=item getpwuid UID
=item getgrgid GID
=item getservbyname NAME,PROTO
benchmarks/app/perlfunc.pod view on Meta::CPAN
In scalar context, you get the name, unless the function was a
lookup by name, in which case you get the other thing, whatever it is.
(If the entry doesn't exist you get the undefined value.) For example:
$uid = getpwnam($name);
$name = getpwuid($num);
$name = getpwent();
$gid = getgrnam($name);
$name = getgrgid($num);
$name = getgrent();
#etc.
view release on metacpan or search on metacpan
lib/perlfaq3.pod view on Meta::CPAN
# make file a month younger than today, defeating reaper daemons
perl -e '$X=24*60*60; utime(time(),time() + 30 * $X,@ARGV)' *
# find first unused uid
perl -le '$i++ while getpwuid($i); print $i'
# display reasonable manpath
echo $PATH | perl -nl -072 -e '
s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,$_;END{print"@m"}'
view release on metacpan or search on metacpan
lib/perlrc.pm view on Meta::CPAN
sub _home {
my $user = shift;
my $uid = (length $user ? getpwnam($user) : $>);
defined $uid or return "~$user";
my $home = (getpwuid $uid)[7];
defined $home or return "~$user";
$home
}
sub import {
view release on metacpan or search on metacpan
}
# Use system mailbox if none was specified on the command line
if ( $#ARGV < 0 ) {
if ( ! ($user = getlogin)) {
@a = getpwuid($<);
$user = $a[0];
}
if ( -r "/var/spool/mail/$user" ) { # Modern systems
@ARGV = ("/var/spool/mail/$user");
}
view release on metacpan or search on metacpan
lib/Psh/Completion.pm view on Meta::CPAN
msgctl msgget msgrcv msgsnd semctl semget
semop shmctl shmget shmread shmwrite
endgrent endhostent endnetent endpwent getgrent
getgrgid getgrnam getlogin getpwent getpwnam
getpwuid setgrent setpwent
endprotoent endservent gethostbyaddr
gethostbyname gethostent getnetbyaddr
getnetbyname getnetent getprotobyname
getprotobynumber getprotoent getservbyname
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
Autodoc/dev_rls_tool_doc.html view on Meta::CPAN
#
# Save ourselves some repeated primitive operations by caching them here:
#
$opts{date} = scalar localtime;
$opts{user} = $ENV{LOGNAME} || (getpwuid($>))[0] || getlogin;
$opts{wmpassword} = $ENV{WMPASSWD} || '';
#
# Set up more extensive die()- and warn()-handlers
#
Autodoc/dev_rls_tool_doc.html view on Meta::CPAN
if (defined $CONFIG{ACL_DIR})
{
if ($CONFIG{ACL_DIR} !~ m|^/|)
{
my $homedir = ($CONFIG{OWNER} =~ /^\d+$/) ?
(getpwuid($CONFIG{OWNER}))[7] :
(getpwnam($CONFIG{OWNER}))[7];
$CONFIG{ACL_DIR} = "$homedir/$CONFIG{ACL_DIR}";
}
Autodoc/dev_rls_tool_doc.html view on Meta::CPAN
my $prefix = $CONFIG{HALTFILE_PREFIX};
unless (defined $prefix and $prefix)
{
my $home = ($CONFIG{OWNER} =~ /^\d+$/o) ?
(getpwuid($CONFIG{OWNER}))[7] : (getpwnam($CONFIG{OWNER}))[7];
unless (defined $home and $home)
{
warn "$cmd: test_for_halt: Could not find haltfiles area, " .
"skipping\n";
return 0;
Autodoc/dev_rls_tool_doc.html view on Meta::CPAN
$prefix = "$home/etc/halt-";
}
if (! $prefix =~ m|^/|o)
{
my $home = ($CONFIG{OWNER} =~ /^\d+$/o) ?
(getpwuid($CONFIG{OWNER}))[7] : (getpwnam($CONFIG{OWNER}))[7];
unless (defined $home and $home)
{
warn "$cmd: test_for_halt: Could not find haltfiles area, " .
"skipping\n";
return 0;
view release on metacpan or search on metacpan
savevars.pm view on Meta::CPAN
}
sub cfgfile {
if (!defined $cfgfile) {
my $basename = ($0 =~ m|([^/\\]+)$| ? $1 : $0);
$cfgfile = eval { (getpwuid($<))[7] } || $ENV{'HOME'} || '';
if ($cfgfile eq '' && $^O eq 'MSWin32') {
$cfgfile = 'C:';
}
$cfgfile .= "/.${basename}rc";
}
savevars.pm view on Meta::CPAN
cfgfile() uses the $< variable to determine the current home
directory. This might not be what you want if using setuid scripts.
=head1 BUGS
Because getpwuid() is used, this module will not work very well on
Windows. Configuration files will be stored in the current drive root
directory or, if the C<$HOME> environment variable exists, in the
C<$HOME> directory.
=head1 AUTHOR
view release on metacpan or search on metacpan
perllib/sdf/home/stdlib/langdefs.sdm view on Meta::CPAN
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 gt hex index int \
ioctl join kill lc lcfirst le length \
link listen localtime log lstat lt \
mkdir msgctl msgget msgrcv msgsnd ne \
view release on metacpan or search on metacpan
lib/App/SmokeBrew/Plugin/CPANPLUS/YACSmoke.pm view on Meta::CPAN
use vars qw[@RUN_TIME_INC $LIB_DIR $BUNDLE_DIR $BASE $PRIV_LIB];
$LIB_DIR = File::Spec->catdir( $FindBin::Bin, qw[.. lib] );
$BUNDLE_DIR = File::Spec->catdir( $FindBin::Bin, qw[.. inc bundle] );
my $who = getlogin || getpwuid($<) || $<;
$BASE = File::Spec->catfile(
$FindBin::Bin, '..', '.cpanplus', $who);
$PRIV_LIB = File::Spec->catfile( $BASE, 'lib' );
@RUN_TIME_INC = ($PRIV_LIB, @INC);
view release on metacpan or search on metacpan
cpansmokebox/inc/bundle/Archive/Tar/Constant.pm view on Meta::CPAN
use constant READ_ONLY => sub { shift() ? 'rb' : 'r' };
use constant WRITE_ONLY => sub { $_[0] ? 'wb' . shift : 'w' };
use constant MODE_READ => sub { $_[0] =~ /^r/ ? 1 : 0 };
# Pointless assignment to make -w shut up
my $getpwuid; $getpwuid = 'unknown' unless eval { my $f = getpwuid (0); };
my $getgrgid; $getgrgid = 'unknown' unless eval { my $f = getgrgid (0); };
use constant UNAME => sub { $getpwuid || scalar getpwuid( shift() ) || '' };
use constant GNAME => sub { $getgrgid || scalar getgrgid( shift() ) || '' };
use constant UID => $>;
use constant GID => (split ' ', $) )[0];
use constant MODE => do { 0666 & (0777 & ~umask) };
view release on metacpan or search on metacpan
my $version = $snaked::VERSION;
my ($daemon_regexp_configured, $daemon_match_cfg, $daemon_match_cfg1, $daemon_match_nocfg, $watchdog_match, $watchdog_match1);
my $current_user = getpwuid($<);
my $current_host = `hostname -f` || "";
my $from_address;
if ($current_user && $current_host) {
$current_host =~ s/[\r\n]//go;
$from_address = $current_user . '@' . $current_host;
Yandex::Tools::write_file_scalar($target_dir . "/log", "/var/log/snaked.log\n");
Yandex::Tools::write_file_scalar($target_dir . "/admin_email", "root\n");
}
else {
Yandex::Tools::write_file_scalar($target_dir . "/log", "/tmp/snaked.log\n");
Yandex::Tools::write_file_scalar($target_dir . "/admin_email", getpwuid($>) . "\n");
}
File::Path::mkpath($target_dir . "/jobs/every_hour");
Yandex::Tools::write_file_scalar($target_dir . "/jobs/every_hour/execution_schedule", "0 * * * *\n");
Yandex::Tools::write_file_scalar($target_dir . "/jobs/every_hour/cmd", "uptime >> /tmp/snaked_every_hour\n");
view release on metacpan or search on metacpan
lib/DBI/Filesystem.pm view on Meta::CPAN
sub _get_groups {
my $self = shift;
my ($uid,$gid) = @_;
my %result;
$result{$gid}++;
my $username = getpwuid($uid) or return \%result;
while (my($name,undef,$id,$members) = getgrent) {
next unless $members =~ /\b$username\b/;
$result{$id}++;
}
endgrent;
view release on metacpan or search on metacpan
lib/Text/Highlight/PHP.pm view on Meta::CPAN
'fgetcsv' => 1,
'symlink' => 1,
'aspell_check' => 1,
'msql_fieldtype' => 1,
'hw_new_document' => 1,
'posix_getpwuid' => 1,
'ingres_field_scale' => 1,
'pdf_open_image_file' => 1,
'msql_fetch_object' => 1,
'ocirowcount' => 1,
'hw_mapid' => 1,
view release on metacpan or search on metacpan
lib/Config.pm 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'
lib/Config.pm 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
PostScript.c view on Meta::CPAN
if (ps_info.prolog) {
Tcl_AppendResult(wi->interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
"%%Creator: Tk Zinc Widget\n", (char *) NULL);
#ifdef HAVE_PW_GECOS
if (!Tcl_IsSafe(wi->interp)) {
struct passwd *pwPtr = getpwuid(getuid()); /* INTL: Native. */
Tcl_AppendResult(wi->interp, "%%For: ",
(pwPtr != NULL) ? pwPtr->pw_gecos : "Unknown", "\n",
(char *) NULL);
endpwent();
}
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
lib/Umlmgr/Utils.pm view on Meta::CPAN
if ($< != 0 && $> != 0) { return 1 }
my $id = get_id($user) or return;
#$> = $< = $id;
if (POSIX::setuid($id)) {
my @puid = POSIX::getpwuid($id);
POSIX::setgid($puid[3]);
$ENV{HOME} = $puid[7];
$ENV{TMP} = "$puid[7]/tmp";
$ENV{TMPDIR} = "$puid[7]/tmp";
$ENV{USER} = $user;
view release on metacpan or search on metacpan
web/bin/uplug-server.pl view on Meta::CPAN
use Uplug::Web::User;
use Uplug::Web::Process::Lock;
my $HOST=(uname)[1];
my $ME=(getpwuid($>))[0];
our $OUTPUT; # file to store stdout
our $LOCK; # lock file for $OUTPUT
our $TempDir; # temporary directory for running processes
view release on metacpan or search on metacpan
urpm/download.pm view on Meta::CPAN
$SSH_PATH or _init_ssh_path();
$SSH_PATH or die N("ssh is missing\n");
my $options = shift;
$options = { dir => $options } if !ref $options;
unless ($options->{'rsync-options'} =~ /(?:-e|--rsh)\b/) {
my ($server, $user) = ('', getpwuid($<));
$_[0] =~ /((?:\w|\.)*):/ and $server = $1;
$_[0] =~ /((?:\w|-)*)@/ and $user = $1;
$SSH_CONTROL_OPTION = "-o 'ControlPath $SSH_CONTROL_DIR/ssh-urpmi-$$-%h_%p_%r' -o 'ControlMaster auto'";
if (start_ssh_master($server, $user)) {
$options->{ssh} = qq("$SSH_PATH $SSH_CONTROL_OPTION");
view release on metacpan or search on metacpan
lib/vendorlib.pm view on Meta::CPAN
# expand tildes
if ($^O ne 'MSWin32') {
for my $path (@paths) {
if ($path =~ m{^~/+}) {
my $home = (getpwuid($<))[7];
$path =~ s|^~/+|${home}/|;
}
elsif (my ($user) = $path =~ /^~(\w+)/) {
my $home = (getpwnam($user))[7];
$path =~ s|^~${user}/+|${home}/|;
view release on metacpan or search on metacpan
vutil/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_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||Viu
vutil/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
sbin/vsoapc view on Meta::CPAN
}
my $debug = $DEBUG;
if (not $username) {
# Guess the username.
$username = getlogin || (getpwuid($<))[0] || die "Unable to determine username. Use --username\n";
}
pod2usage() if $help;
if ($version) {
view release on metacpan or search on metacpan
my $exit_code = 0;
# Ok. Now it's time to do the action.
my $real_user = 'unknown';
my $ent;
eval { $ent = getpwuid($<); }; # Get the user running this.
$real_user = $ent->name if (defined $ent);
$log->log(LOG_NOTICE, "%s running %s %s", $real_user, $keyword, $action);
my @rs;
eval { @rs = $eh->run_tasks($keyword, $action, \%cfg); };
if ($@) {
view release on metacpan or search on metacpan
lib/with.pm view on Meta::CPAN
endhostent endnetent endprotoent endpwent endservent eof eval
exec exists exit exp fcntl fileno flock 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
glob gmtime goto grep hex 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 oct open opendir
ord our pack package pipe pop pos print printf prototype push
view release on metacpan or search on metacpan
defaults.pm view on Meta::CPAN
package defaults;
sub load
{
my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$home) = getpwuid($>);
undef %defaults::item;
if (-e "$home/.xisofsrc")
{
defaults.pm view on Meta::CPAN
}
}
sub save
{
my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$home) = getpwuid($>);
if (open(OUT,">$home/.xisofsrc"))
{
while (($key,$val) = each %defaults::item)
{