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/Syntax/Highlight/Engine/Kate/Octave.pm view on Meta::CPAN
'getpgrp',
'getpid',
'getppid',
'getpwent',
'getpwnam',
'getpwuid',
'getrusage',
'getuid',
'givens',
'glob',
'gls',
view release on metacpan or search on metacpan
lib/Syntax/Highlight/Engine/Simple/Perl.pm view on Meta::CPAN
'getgrgid',
'getgrnam',
'getlogin',
'getpwent',
'getpwnam',
'getpwuid',
'readline',
'readlink',
'readpipe',
'setgrent',
'setpwent',
view release on metacpan or search on metacpan
t/subclass.t view on Meta::CPAN
'getgrgid',
'getgrnam',
'getlogin',
'getpwent',
'getpwnam',
'getpwuid',
'readline',
'readlink',
'readpipe',
'setgrent',
'setpwent',
view release on metacpan or search on metacpan
lib/Syntax/Highlight/Perl/Improved.pm view on Meta::CPAN
| prototype
| getnetent
| endnetent
| rewinddir
| wantarray
| getpwuid
| closedir
| getlogin
| readlink
| endgrent
| getgrgid
view release on metacpan or search on metacpan
lib/Syntax/Highlight/Perl.pm view on Meta::CPAN
| prototype
| getnetent
| endnetent
| rewinddir
| wantarray
| getpwuid
| closedir
| getlogin
| readlink
| endgrent
| getgrgid
view release on metacpan or search on metacpan
lib/Syntax/Highlight/Universal/hrc/base/perl-keywords.hrc view on Meta::CPAN
<word name="getprotobyname"/>
<word name="getprotobynumber"/>
<word name="getprotoent"/>
<word name="getpwent"/>
<word name="getpwnam"/>
<word name="getpwuid"/>
<word name="getservbyname"/>
<word name="getservbyport"/>
<word name="getservent"/>
<word name="getsockname"/>
<word name="getsockopt"/>
view release on metacpan or search on metacpan
lib/Syntax/Highlight/WithEmacs.pm view on Meta::CPAN
method start_server {
return if $self->{made_server};
my ($cout, $cin, $cerr);
my @cmd = ($self->emacs_cmd, @{$self->emacs_args},
'--daemon' . ($self->server_name ? '='.$self->server_name : ''));
local $ENV{HOME} = (getpwuid $<)[7] unless $ENV{HOME};
local $ENV{TERM} = $self->term_spec;
run \@cmd, \$cin, \$cout, \$cerr;
$self->{made_server} = 1;
}
lib/Syntax/Highlight/WithEmacs.pm view on Meta::CPAN
@cmd_args = grep { !/^-q$/i } @cmd_args if $self->use_client;
my $hyper = $self->htmlize_generate_hyperlinks ? 't' : 'nil';
my @args = (@cmd, '-nw', @cmd_args,
-eval => qq((ignore-errors (require 'htmlize) (setq htmlize-generate-hyperlinks $hyper) (setq htmlize-output-type "$mode") (htmlize-file $in $out))),
-eval => $kill_command);
local $ENV{HOME} = (getpwuid $<)[7] unless $ENV{HOME};
local $ENV{TERM} = $self->term_spec;
my ($tin, $tout, $err);
run \@args, '<pty<', \$tin, '>pty>', \$tout, '2>', \$err;
$self->{made_server} = $self->use_client;
}
lib/Syntax/Highlight/WithEmacs.pm view on Meta::CPAN
method kill_server {
my @cmd = ($self->_client_cmd_args,
-eval => '(kill-emacs)');
my ($cout, $cin, $cerr);
local $ENV{HOME} = (getpwuid $<)[7] unless $ENV{HOME};
local $ENV{TERM} = $self->term_spec;
run \@cmd, \$cin, \$cout, \$cerr;
$self->{made_server} = 0;
}
view release on metacpan or search on metacpan
lib/Syntax/Infix/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/Syntax/Infix/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/Syntax/Kamelon/XML/octave.xml view on Meta::CPAN
<item> getgrent </item>
<item> getgrgid </item>
<item> getgrnam </item>
<item> getpwent </item>
<item> getpwnam </item>
<item> getpwuid </item>
<item> getrusage </item>
<item> givens </item>
<item> gmtime </item>
<item> hess </item>
<item> ifft </item>
view release on metacpan or search on metacpan
lib/Sys/Export/Unix/UserDB.pm view on Meta::CPAN
if (!$u && $self->auto_import) {
if (isa_userdb $self->auto_import) {
my $peer_u= $self->auto_import->user($spec) // return undef;
$u= eval { $self->import_user($peer_u) } or warn $@;
} else {
my $name= isa_int $spec? (getpwuid($spec) // return undef) : $spec;
$u= eval { $self->import_user($name) } or warn $@;
}
}
$u;
}
view release on metacpan or search on metacpan
lib/Sys/Info/Driver/OSX.pm view on Meta::CPAN
sub powermetrics {
my @opt = @_;
if ( $< ) {
croak sprintf 'powermetrics can only be executed as root and not %s (%s)',
(getpwuid $<)[0],
$<,
;
}
my $success;
my($out, $error) = capture {
view release on metacpan or search on metacpan
t/03lastlog.t view on Meta::CPAN
ok($ll = Sys::Lastlog->new(),"Create object");
my ($llent,$lp);
my $login = getpwuid($<);
ok($lp = $ll->lastlog_path(),"lastlog_path()");
ok($llent = $ll->getlluid($<),"Get Entry by UID");
ok($llent = $ll->getllnam($login),"Get Entry by logname");
ok(my $t = $llent->ll_time(),"Get ll_time");
view release on metacpan or search on metacpan
lib/Sys/RunAlone/User.pm view on Meta::CPAN
1;
sub import {
shift;
my($userName) = (getpwuid($>))[0];
my %args= @_;
$silent = delete $args{silent};
$retry = delete $args{retry};
$retry = $ENV{RETRY_SYS_RUNALONE} if exists $ENV{RETRY_SYS_RUNALONE};
view release on metacpan or search on metacpan
lib/Sys/Statistics/Linux/Processes.pm view on Meta::CPAN
L<Sys::Statistics::Linux>.
=head1 PROCESS STATISTICS
Generated by F</proc/E<lt>pidE<gt>/stat>, F</proc/E<lt>pidE<gt>/status>,
F</proc/E<lt>pidE<gt>/cmdline> and F<getpwuid()>.
Note that if F</etc/passwd> isn't readable, the key owner is set to F<N/a>.
ppid - The parent process ID of the process.
nlwp - The number of light weight processes that runs by this process.
lib/Sys/Statistics/Linux/Processes.pm view on Meta::CPAN
=head1 SEE ALSO
B<proc(5)>
B<perldoc -f getpwuid>
=head1 REPORTING BUGS
Please report all bugs to <jschulz.cpan(at)bloonix.de>.
lib/Sys/Statistics/Linux/Processes.pm view on Meta::CPAN
open my $fh, '<', "$file->{path}/$pid/$file->{status}"
or return undef;
while (my $line = <$fh>) {
if ($line =~ /^Uid:(?:\s+|\t+)(\d+)/) {
$owner = getpwuid($1) || "N/a";
last;
}
}
close($fh);
view release on metacpan or search on metacpan
sub openlog {
($ident, my $logopt, $facility) = @_;
# default values
$ident ||= basename($0) || getlogin() || getpwuid($<) || 'syslog';
$logopt ||= '';
$facility ||= LOG_USER();
for my $opt (split /\b/, $logopt) {
$options{$opt} = 1 if exists $options{$opt}
view release on metacpan or search on metacpan
lib/Sys/Tlock.pm view on Meta::CPAN
my sub owner_check( $o ) {
return undef if not defined $o;
return [-1,-1] if $o == -1;
my $g = (getpwuid($o))[3];
if (not defined $g) { warn 'Owner "'.$o.'" not found.'; return undef; };
return [$o,$g];
};
view release on metacpan or search on metacpan
lib/Sys/User/UIDhelper.pm view on Meta::CPAN
use warnings;
use strict;
=head1 NAME
Sys::User::UIDhelper - Helps for locating free UIDs using getpwuid.
=head1 VERSION
Version 0.1.0
lib/Sys/User/UIDhelper.pm view on Meta::CPAN
sub first_free {
my $self = $_[0];
my $int = $self->{min};
while ( $int <= $self->{max} ) {
if ( !getpwuid($int) ) {
return $int;
}
$int++;
}
lib/Sys/User/UIDhelper.pm view on Meta::CPAN
sub last_free {
my $self = $_[0];
my $int = $self->{max};
while ( $int >= $self->{min} ) {
if ( !getpwuid($int) ) {
return $int;
}
$int--;
}
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
t/02-logic.t view on Meta::CPAN
open DAEMON, '>', $DAEMON_FILE or BAIL_OUT "ERROR $!";;
chmod 0755, $DAEMON_FILE;
print DAEMON $script or BAIL_OUT "ERROR $!";
close DAEMON;
my $user = getpwuid($<);
$user ||= '';
my $options = {
os => 'debian',
target => $INIT_SCRIPT,
view release on metacpan or search on metacpan
lib/TIGR/Foundation.pm view on Meta::CPAN
}
# A __WARN__ handler is needed to keep this sane.
my $tmp_warn_handler = $SIG{__WARN__} || "DEFAULT";
$SIG{__WARN__} = sub {};
my @info_arr = getpwuid($<);
$self->{'user_name'} = $info_arr[0];
$self->{'home_dir'} = $info_arr[7];
$SIG{__WARN__} = $tmp_warn_handler;
if ( ! defined ( $self->{'user_name'} ) ) {
$self->{'user_name'} = "NOUSERNAME";
view release on metacpan or search on metacpan
lib/TPath/Forester/File/Node.pm view on Meta::CPAN
# memoized uid -> user converter
sub _user {
my $self = shift;
state %map;
my $uid = $self->uid;
my $user = $map{$uid} //= getpwuid($uid);
return $user;
}
has group => ( is => 'ro', isa => 'Str', lazy => 1, builder => '_group' );
view release on metacpan or search on metacpan
lib/auto/TT2/Play/Area/public/codemirror/mode/perl/perl.js view on Meta::CPAN
getprotobyname :1, // - get protocol record given name
getprotobynumber :1, // - get protocol record numeric protocol
getprotoent :1, // - get next protocols record
getpwent :1, // - get next passwd record
getpwnam :1, // - get passwd record given user login name
getpwuid :1, // - get passwd record given user ID
getservbyname :1, // - get services record given its name
getservbyport :1, // - get services record given numeric port
getservent :1, // - get next services record
getsockname :1, // - retrieve the sockaddr for a given socket
getsockopt :1, // - get socket options on a given socket
view release on metacpan or search on metacpan
share/2023.csv view on Meta::CPAN
"SPVM-Sys-0.508","2023-12-04T01:41:21","KIMOTO","cpan","released","0.508","","SPVM-Sys","System Calls for File IO, Sockets, Time, Process, Signals, Users"
"Error-Helper-2.0.0","2023-12-04T02:43:37","VVELOX","cpan","released","v2.0.0","","Error-Helper","Provides some easy error related methods."
"Export-These-v0.2.1","2023-12-04T06:38:31","DRCLAW","latest","released","v0.2.1","","Export-These","Terse Module Configuration and Symbol (Re)Exporting"
"Mail-SpamAssassin-4.0.1-pre1h-TRIAL","2023-12-04T06:58:51","SIDNEY","backpan","developer","4.000001","","Mail-SpamAssassin","Apache SpamAssassin is an extensible email filter which is used to identify spam"
"IO-FD-v0.3.4","2023-12-04T07:27:55","DRCLAW","cpan","released","v0.3.4","","IO-FD","Faster accept, socket, listen with file descriptors, not handles"
"Sys-User-UIDhelper-0.1.0","2023-12-04T07:28:07","VVELOX","latest","released","v0.1.0","","Sys-User-UIDhelper","Helps for locating free UIDs using getpwuid."
"Net-API-REST-v1.2.0","2023-12-04T07:35:58","JDEGUEST","latest","released","v1.2.0","","Net-API-REST","Implementation of RESTful API"
"App-LXC-Container-0.39","2023-12-04T07:40:18","DORNER","backpan","released","0.39","","App-LXC-Container","configure, create and run LXC application containers"
"Sys-Group-GIDhelper-0.1.0","2023-12-04T08:02:13","VVELOX","latest","released","v0.1.0","","Sys-Group-GIDhelper","Helps for locating free GIDs using getgrgid."
"IO-FD-v0.3.5","2023-12-04T08:13:46","DRCLAW","latest","released","v0.3.5","","IO-FD","Faster accept, socket, listen with file descriptors, not handles"
"Acme-CPANModules-WorkingWithDOC-0.001","2023-12-04T08:32:53","PERLANCAR","latest","released","0.001","1","Acme-CPANModules-WorkingWithDOC","List of modules to work with text document formats (DOC, DOCX, ODT)"
view release on metacpan or search on metacpan
lib/auto/Tapper/Config/log4perl.cfg view on Meta::CPAN
log4perl.rootLogger = INFO, root
log4perl.appender.root = Log::Log4perl::Appender::File
log4perl.appender.root.layout = PatternLayout
# date package category - message in last 2 components of filename (linenumber) newline
log4perl.appender.root.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n
log4Perl.appender.root.filename = sub { my $outfile = "/tmp/tapper.debug.".(getpwuid($<) || "unknown").".log"; return $outfile; }
log4Perl.appender.root.mode = append
log4perl.filter.resetter = Log::Log4perl::Filter::StringMatch
log4perl.filter.resetter.StringToMatch = Tapper.MCP.Net.Reset
log4perl.filter.resetter.AcceptOnMatch = false
log4perl.appender.root.Filter = resetter
log4perl.logger.Tapper.Reports.Receiver = DEBUG, ReportsReceiver
log4perl.appender.ReportsReceiver = Log::Log4perl::Appender::File
log4Perl.appender.ReportsReceiver.filename = sub { my $outfile = "/tmp/tapper.reports.receiver.daemon.".(getpwuid($<) || "unknown").".log"; return $outfile; }
log4perl.appender.ReportsReceiver.layout = PatternLayout
log4perl.appender.ReportsReceiver.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n
log4perl.logger.Tapper.MCP.Net.Reset = ALL, MCP
log4perl.appender.MCP = Log::Log4perl::Appender::File
log4Perl.appender.MCP.filename = sub { my $outfile = "/tmp/tapper.mcp.reset_".(getpwuid($<) || "unknown").".log"; return $outfile; }
log4perl.appender.MCP.layout = PatternLayout
log4perl.appender.MCP.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n
log4perl.logger.Tapper.MCP.MessageReceiver = ALL, MessageReceiver
log4perl.appender.MessageReceiver = Log::Log4perl::Appender::File
log4Perl.appender.MessageReceiver.filename = sub { my $outfile = "/tmp/tapper.message.receiver.daemon.".(getpwuid($<) || "unknown").".log"; return $outfile; }
log4perl.appender.MessageReceiver.layout = PatternLayout
log4perl.appender.MessageReceiver.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n
view release on metacpan or search on metacpan
lib/Template/Plugin/File.pm view on Meta::CPAN
|| return $class->throw("$abs: $!");
@$self{ @STAT_KEYS } = @stat;
unless ($config->{ noid }) {
$self->{ user } = eval { getpwuid( $self->{ uid }) || $self->{ uid } };
$self->{ group } = eval { getgrgid( $self->{ gid }) || $self->{ gid } };
}
$self->{ isdir } = -d $abs;
}
lib/Template/Plugin/File.pm view on Meta::CPAN
[% File.mtime %]
[% File.mode %]
...
In addition, the C<user> and C<group> items are set to contain the user
and group names as returned by calls to C<getpwuid()> and C<getgrgid()> for
the file C<uid> and C<gid> elements, respectively. On Win32 platforms
on which C<getpwuid()> and C<getgrid()> are not available, these values are
undefined.
[% USE File('/tmp/foo.html') %]
[% File.uid %] # e.g. 500
[% File.user %] # e.g. abw
view release on metacpan or search on metacpan
lib/Term/Clui.pm view on Meta::CPAN
print DEBUG "$_[0]\n"; close DEBUG;
}
my (%irow, %icol, $nrows, $clue_has_been_given, $choice, $this_cell);
my @marked;
my $HOME = $ENV{'HOME'} || $ENV{'LOGDIR'} || (getpwuid($<))[7];
srand(time() ^ ($$+($$<15)));
sub choose { my $question = shift; local @list = @_; # @list must be local
# As from 1.22, allows multiple choice if called in array context
lib/Term/Clui.pm view on Meta::CPAN
sub logit { my ($file, $msg) = @_;
if (! open(LOG, ">> $rcslog")) { warn "can't open $rcslog: $!\n";
} else {
$pid = fork; # log in background for better response time
if (! $pid) {
($user) = getpwuid($>);
print LOG ×tamp, " $file $user $msg\n"; close LOG;
if ($pid == 0) { exit 0; } # the child's end, if a fork occurred
}
}
}
view release on metacpan or search on metacpan
lib/Term/Menus.pm view on Meta::CPAN
}
}
my $fa_path=$INC{'Net/FullAuto.pm'};
my $progname=substr($0,(rindex $0,'/')+1,-3);
substr($fa_path,-3)='';
my $username=getlogin || getpwuid($<);
if (-f $fa_path.'/fa_global.pm') {
if (-r $fa_path.'/fa_global.pm') {
{
no strict 'subs';
require $fa_path.'/fa_global.pm';
lib/Term/Menus.pm view on Meta::CPAN
unless ($BerkeleyDB::Error=~/Successful/) {
die "Cannot Open DB ${progname}_sets.db:".
" $BerkeleyDB::Error\n";
}
}
#my $username=getlogin || getpwuid($<);
my $set='';
my $status=$std->db_get(
$username,$set);
$set||='';
$set=~s/\$HASH\d*\s*=\s*//s
lib/Term/Menus.pm view on Meta::CPAN
unless ($BerkeleyDB::Error=~/Successful/) {
die "Cannot Open DB ${progname}_sets.db:".
" $BerkeleyDB::Error\n";
}
}
#my $username=getlogin || getpwuid($<);
my $set='';
my $status=$std->db_get(
$username,$set);
$set||='';
$set=~s/\$HASH\d*\s*=\s*//s
lib/Term/Menus.pm view on Meta::CPAN
$hidedefaults=0;
$start=0;
last;
} elsif ($numbor && unpack('a1',$numbor) eq '!') {
# SHELLOUT shellout
my $username=getlogin || getpwuid($<);
my $cmd=unpack('x1 a*',$numbor);
print "\n";
unless ($^O eq 'cygwin') {
system("su -l -c$cmd $username");
} else {