view release on metacpan or search on metacpan
t/01_warnings.t view on Meta::CPAN
Useless use of localtime in void context at - line 48.
Useless use of gmtime in void context at - line 49.
Useless use of getgrnam in void context at - line 50.
Useless use of getgrgid in void context at - line 51.
Useless use of getpwnam in void context at - line 52.
Useless use of getpwuid in void context at - line 53.
Useless use of subroutine prototype in void context at - line 54.
Useless use of sort in scalar context at - line 3.
Useless use of string in void context at - line 3.
Useless use of telldir in void context at - line 13.
Useless use of getppid in void context at - line 13.
t/01_warnings.t view on Meta::CPAN
Useless use of localtime in void context at - line 48.
Useless use of gmtime in void context at - line 49.
Useless use of getgrnam in void context at - line 50.
Useless use of getgrgid in void context at - line 51.
Useless use of getpwnam in void context at - line 52.
Useless use of getpwuid in void context at - line 53.
Useless use of subroutine prototype in void context at - line 54.
Useless use of sort in scalar context at - line 3.
Useless use of string in void context at - line 3.
Useless use of telldir in void context at - line 13.
Useless use of getppid in void context at - line 13.
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
[ sub { each %h }, { 0 => 0.5, 2 => 0.5 } ],
[ sub { stat $0 }, { 0 => 0.5, 13 => 0.5 } ],
[ sub { do { getpwnam 'root' } }, { 0 => 0.5, 10 => 0.5 } ],
[ sub { 1; getpwuid '0' }, { 0 => 0.5, 10 => 0.5 } ],
[ sub { eval { return getpwent } }, { 0 => 0.5, 10 => 0.5 } ],
[ sub { do { getgrnam 'root' } }, { 0 => 0.5, 4 => 0.5 } ],
[ sub { 1; getgrgid '0' }, { 0 => 0.5, 4 => 0.5 } ],
[ sub { eval { return getgrent } }, { 0 => 0.5, 4 => 0.5 } ],
view release on metacpan or search on metacpan
lib/Sudo.pm view on Meta::CPAN
# test for remote execution ... you need to have the ssh keys
# setup before this ...
#$remote_machine=$self->{hostname}if (defined($self->{hostname}));
if (defined($remote_machine))
{
$remote_user = getpwuid($<); # default user name is the user running the script
if (defined($self->{username}))
{
$remote_user = $self->{username};
}
push @cmd,"ssh";
view release on metacpan or search on metacpan
File/File.xs view on Meta::CPAN
if (oflags & O_CREAT && creator == NULL) {
uid_t uid;
struct passwd *pwent;
uid = getuid();
if ((pwent = getpwuid(uid)) == NULL) {
snprintf(user, sizeof (user), "%d", uid);
} else {
strlcpy(user, pwent->pw_name, sizeof (user));
}
creator = user;
view release on metacpan or search on metacpan
$linelen += length($comment) + 1;
# Validate users.
foreach my $u (@$user) {
push(@err, [6, gettext("User \"%s\" does not exist"), $u])
if (! (($u =~ /^\d+$/ && defined(getpwuid($u))) ||
($u =~ /^\*$/) || ($u =~ /^\!\*$/) ||
($u =~ /^\!(\S+)$/ && defined(getpwnam($1))) ||
defined(getpwnam($u))));
$linelen += length($u) + 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_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
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";