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
$$self[13]="INS TOP"; # status
$$self[14]=""; # status shown
$$self[15]=$params[3]; # filename
$$self[16]=""; # Kill buffer
$$self[17]=0; # Kill buffer clear toggle
($$self[15] =~/^~/) && (substr ($$self[15],0,1)=(getpwuid ($<))[7]);
bless $self;
}
sub statusbar {
my $self=shift;
}
sub readfile {
my $filename=shift;
my $text="";
($filename =~/^~/) && (substr ($filename,0,1)=(getpwuid ($<))[7]);
open (INPUT, $filename) || return (0);
foreach (<INPUT>) {
$text.=$_;
}
close INPUT;
my ($ret, $initial) = readfile ($filename);
if ($ret) {
$$self[6]=$initial."\n";
$$self[7]=0;
$$self[15]=$filename;
($$self[15] =~/^~/) && (substr ($$self[15],0,1)=(getpwuid ($<))[7]);
$self->justify(1);
$self->rfsh();
}
else {
PV::PVD::message ("Error: Couldn't open file.",30,1);
sub saveas {
my $self=shift;
my $savefile = new PV::Entryfield (2,23,52,0,"Save As:",$$self[15]);
$savefile->display; $savefile->activate;
my $filename = ($savefile->stat);
($filename =~/^~/) && (substr ($filename,0,1)=(getpwuid ($<))[7]);
undef $savefile;
move (23,0);
attron (COLOR_PAIR(7));
addstr(" <Esc>-H for Help <Esc>-X for Menu ");
refresh();
package main;
sub readfile {
my $filename=shift;
my $text="";
($filename =~/^~/) && (substr ($filename,0,1)=(getpwuid ($<))[7]);
open (INPUT, $filename) || return (0);
foreach (<INPUT>) {
$text.=$_;
}
close INPUT;
view release on metacpan or search on metacpan
lib/Perlito5/Runtime.pm view on Meta::CPAN
'getprotobyname' => 1,
'getprotobynumber' => 1,
'getprotoent' => 1,
'getpwent' => 1,
'getpwnam' => 1,
'getpwuid' => 1,
'getservbyname' => 1,
'getservbyport' => 1,
'getservent' => 1,
'getsockname' => 1,
'getsockopt' => 1,
lib/Perlito5/Runtime.pm view on Meta::CPAN
'getprotobyname' => 1,
'getprotobynumber' => 1,
'getprotoent' => 1,
'getpwent' => 1,
'getpwnam' => 1,
'getpwuid' => 1,
'getservbyname' => 1,
'getservbyport' => 1,
'getservent' => 1,
'getsockname' => 1,
'getsockopt' => 1,
lib/Perlito5/Runtime.pm view on Meta::CPAN
'CORE::getprotobyname' => '$',
'CORE::getprotobynumber' => '$',
'CORE::getprotoent' => '',
'CORE::getpwent' => '',
'CORE::getpwnam' => '$',
'CORE::getpwuid' => '$',
'CORE::getservbyname' => '$$',
'CORE::getservbyport' => '$$',
'CORE::getservent' => '',
'CORE::getsockname' => '*',
'CORE::getsockopt' => '*$$',
view release on metacpan or search on metacpan
Postgres.pm view on Meta::CPAN
sub dbconnect {
my ($class, $dbobj) = @_;
my %options = (host => $dbobj->{Host} || '',
port => $dbobj->{Port} || '5432',
);
my $username = $dbobj->{Host} || (''.getpwuid $<);
my $password = $dbobj->{Host} || '';
my $options = join (';',"dbname=$dbobj->{Database}",
grep { /=.+$/ } map { "$_=$options{$_}" } keys %options);
return undef unless $dbh = DBI->connect("dbi:Pg:$options", $username, $password);
}
view release on metacpan or search on metacpan
Pgreet/Config.pm view on Meta::CPAN
#
# Test if this parameter is an existing user ID number
#
sub {
my($s) = shift;
if ((defined($$s)) && (not getpwuid($$s))) {
return 1;
}
return undef;
}
);
view release on metacpan or search on metacpan
}
print "|:FOO:\r\n";
next;
}
if($_ eq 'username') {
print "username=|".exor(getpwuid($<))."|:FOO:\r\n";
next;
}
if($_ eq 'load') {
open(LOAD,"uptime|") or print "Couldn't open uptime: $!\r\n";
while(<LOAD>) {
view release on metacpan or search on metacpan
lib/Pick/TCL.pm view on Meta::CPAN
unless (defined($options{'USER'}))
{
# Default Pick username to remote Unix username if set
my $u = $options{'SSHUSER'};
# Otherwise local username
$u = eval { getpwuid($<); } unless defined($u);
# Handle platforms without a working getpwuid()
$u = getlogin() unless defined($u);
}
$options{'PICKBIN'} = '/usr/bin/ap' unless defined($options{'PICKBIN'});
$options{'OPTDATA'} = '-d' unless defined($options{'OPTDATA'});
$options{'OPTSILENT'} = '-s' unless defined($options{'OPTSILENT'});
view release on metacpan or search on metacpan
$fatpacked{"lib/core/only.pm"} = <<'LIB_CORE_ONLY';
package lib::core::only;use strict;use warnings FATAL=>'all';use Config;sub import {@INC=@Config{qw(privlibexp archlibexp)};return}1;
LIB_CORE_ONLY
$fatpacked{"local/lib.pm"} = <<'LOCAL_LIB';
use strict;use warnings;package local::lib;use 5.008001;use File::Spec ();use File::Path ();use Config;our$VERSION='1.008011';our@KNOWN_FLAGS=qw(--self-contained --deactivate --deactivate-all);sub DEACTIVATE_ONE () {1}sub DEACTIVATE_ALL () {2}sub I...
WHOA THERE! It looks like you've got some fancy dashes in your commandline!
These are *not* the traditional -- dashes that software recognizes. You
probably got these by copy-pasting from the perldoc for this module as
rendered by a UTF8-capable formatter. This most typically happens on an OS X
terminal, but can happen elsewhere too. Please try again after replacing the
view release on metacpan or search on metacpan
lib/Pistachio/Keywords/Perl5.pm view on Meta::CPAN
'getprotobyname' => 1,
'getprotobynumber' => 1,
'getprotoent' => 1,
'getpwent' => 1,
'getpwnam' => 1,
'getpwuid' => 1,
'getservbyname' => 1,
'getservbyport' => 1,
'getservent' => 1,
'getsockname' => 1,
'getsockopt' => 1,
view release on metacpan or search on metacpan
lib/PkgForge/Job.pm view on Meta::CPAN
traits => ['PkgForge::Serialise'],
is => 'rw',
isa => UserName,
required => 1,
coerce => 1,
default => sub { getpwuid($<) },
documentation => 'The name of the person who submitted this job',
);
has 'report' => (
traits => ['PkgForge::Serialise','Getopt','Array'],
lib/PkgForge/Job.pm view on Meta::CPAN
my $obj = $class->new_from_dir($dir);
# Submitter
my $uid = $qentry->owner;
my $owner = getpwuid($uid);
$obj->submitter( $owner || $uid );
# Submission time
$obj->subtime($qentry->timestamp);
view release on metacpan or search on metacpan
local/lib/perl5/ExtUtils/Helpers/Unix.pm view on Meta::CPAN
sub detildefy {
my $value = shift;
# tilde with optional username
for ($value) {
s{ ^ ~ (?= /|$)} [ $ENV{HOME} || (getpwuid $>)[7] ]ex or # tilde without user name
s{ ^ ~ ([^/]+) (?= /|$) } { (getpwnam $1)[7] || "~$1" }ex; # tilde with user name
}
return $value;
}
view release on metacpan or search on metacpan
share/www/dbi2http.psgi view on Meta::CPAN
use Plack::Builder;
use Plack::Util::PeriAHS qw(errpage);
use YAML::Syck ();
my $confpath = $ENV{DBI2HTTP_CONFIG_PATH} // do {
my $home = (getpwuid($>))[7]; # $ENV{HOME} is empty if via fcgi
"$home/dbi2http.conf.yaml";
};
my $conf = YAML::Syck::LoadFile($confpath);
my $fwr = File::Write::Rotate->new(
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
Pod-Minicpandoc-0.16/Pod-Minicpandoc-0.16/lib/Pod/Minicpandoc.pm view on Meta::CPAN
}
sub use_minicpan {
my ( $self ) = @_;
my $rc_file = File::Spec->catfile((getpwuid $<)[7], '.minicpanrc');
return -e $rc_file;
}
sub get_minicpan_path {
my ( $self ) = @_;
my $rc_file = File::Spec->catfile((getpwuid $<)[7], '.minicpanrc');
my $minicpan_path;
my $fh;
unless(open $fh, '<', $rc_file) {
$self->aside("Unable to open '$rc_file': $!");
view release on metacpan or search on metacpan
corpus/perlfunc.pod view on Meta::CPAN
=item Fetching user and group info
X<user> X<group> X<password> X<uid> X<gid> X<passwd> X</etc/passwd>
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
X<network> X<protocol> X<host> X<hostname> X<IP> X<address> X<service>
C<endprotoent>, C<endservent>, C<gethostbyaddr>, C<gethostbyname>,
corpus/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>,
corpus/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";
corpus/perlfunc.pod view on Meta::CPAN
=item getlogin
X<getlogin> X<login>
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 it
returns the empty string, use C<getpwuid>.
$login = getlogin || getpwuid($<) || "Kilroy";
Do not consider C<getlogin> for authentication: it is not as
secure as C<getpwuid>.
Portability issues: L<perlport/getlogin>.
=item getpeername SOCKET
X<getpeername> X<peer>
corpus/perlfunc.pod view on Meta::CPAN
Portability issues: L<perlport/getpriority>.
=item getpwnam NAME
X<getpwnam> X<getgrnam> X<gethostbyname> X<getnetbyname> X<getprotobyname>
X<getpwuid> X<getgrgid> X<getservbyname> X<gethostbyaddr> X<getnetbyaddr>
X<getprotobynumber> X<getservbyport> X<getpwent> X<getgrent> X<gethostent>
X<getnetent> X<getprotoent> X<getservent> X<setpwent> X<setgrent> X<sethostent>
X<setnetent> X<setprotoent> X<setservent> X<endpwent> X<endgrent> X<endhostent>
X<endnetent> X<endprotoent> X<endservent>
corpus/perlfunc.pod view on Meta::CPAN
=item getnetbyname NAME
=item getprotobyname NAME
=item getpwuid UID
=item getgrgid GID
=item getservbyname NAME,PROTO
corpus/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
inc/inc_Module-Build/Module/Build/Platform/Unix.pm view on Meta::CPAN
sub _detildefy {
my ($self, $value) = @_;
$value =~ s[^~([^/]+)?(?=/|$)] # tilde with optional username
[$1 ?
((getpwnam $1)[7] || "~$1") :
($ENV{HOME} || (getpwuid $>)[7])
]ex;
return $value;
}
1;
view release on metacpan or search on metacpan
t/perlfaq.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
t/data/perlfaq.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
share/wordlist view on Meta::CPAN
getprotobyname
getprotobynumber
getprotoent
getpwent
getpwnam
getpwuid
getservbyname
getservbyport
getservent
getsockname
gettimeofday
view release on metacpan or search on metacpan
lib/PostScript/File.pm view on Meta::CPAN
if ($o->{eps}) {
$postscript .= $o->_bbox_comment('', $o->{bbox});
}
if ($o->{headings}) {
require Sys::Hostname;
my $user = getlogin() || (getpwuid($<))[0] || "Unknown";
my $hostname = Sys::Hostname::hostname();
$postscript .= $o->_here_doc(<<END_TITLES);
\%\%For: $user\@$hostname
\%\%Creator: Perl module ${\( ref $o )} v$PostScript::File::VERSION
\%\%CreationDate: ${\( scalar localtime )}
lib/PostScript/File.pm view on Meta::CPAN
sub check_tilde ($) { ## no critic (ProhibitSubroutinePrototypes)
my ($dir) = @_;
$dir = "" unless defined $dir;
$dir =~ s{^~([^/]*)}{$1 ? (getpwnam($1))[7] : ($ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7]) }ex;
return $dir;
}
sub array_as_string (@) { ## no critic (ProhibitSubroutinePrototypes)
lib/PostScript/File.pm view on Meta::CPAN
%%For: USER@HOSTNAME
%%Creator: Perl module PostScript::File v2.23
%%CreationDate: Sun Jan 1 00:00:00 2012
%%DocumentMedia: US-Letter 612 792 80 ( ) ( )
USER comes from C<getlogin() || getpwuid($<)>, and HOSTNAME comes from
L<Sys::Hostname>. The DocumentMedia values come from the
L<paper size attributes|/"Paper Size and Margins">. The
DocumentMedia comment is omitted from EPS files.
If you want different values, leave C<headings> false and use
view release on metacpan or search on metacpan
Prima/Edit.pm view on Meta::CPAN
delete die do dump each endgrent endhostent endnetent endprotoent endpwent
endservent eof eval exec exists exit exp fcntl fileno flock for 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 if import index int ioctl join keys kill last lc lcfirst
length link listen local localtime log lstat m map mkdir msgctl msgget msgrcv
msgsnd my next no oct open opendir ord our pack package pipe pop pos print
printf prototype push q qq qr quotemeta qw qx rand read readdir readline
readlink readpipe recv redo ref rename require reset return reverse rewinddir
view release on metacpan or search on metacpan
lib/Proc/ProcessTable/Colorizer.pm view on Meta::CPAN
}
#check to see if it needs to search for users
my $user_search_array=$self->userSearchGet;
if ( defined( $user_search_array->[0] ) ){
my $user=getpwuid($proc->{uid});
$required_hits++;
my $user_search_int=0;
my $matched=0;
#search while we have a user defined and it has not already been matched
while(
lib/Proc/ProcessTable/Colorizer.pm view on Meta::CPAN
if (
( $field eq 'uid' ) &&
$self->{resolveUser}
){
$item=getpwuid($item);
}
#colorizes it
if ( $field eq 'time' ){
if ( $^O =~ 'linux' ){
view release on metacpan or search on metacpan
lib/Proc/ProcessTable/ncps.pm view on Meta::CPAN
my @new_line;
#
# handle username column
#
my $user=getpwuid($proc->{uid});
if ( ! defined( $user ) ) {
$user=$proc->{uid};
}
$user=color($self->nextColor).$user.color('reset');
push( @new_line, $user );
view release on metacpan or search on metacpan
lib/Proc/ProcessTable/piddler.pm view on Meta::CPAN
]);
#
# UID
#
my $user=getpwuid($proc->{uid});
if ( ! defined( $user ) ) {
$user=color( $self->{idColors}[0] ).$proc->{uid}.color('reset');
}else{
$user=color( $self->{idColors}[0] ).$user.
color( $self->{idColors}[1] ).'('.
view release on metacpan or search on metacpan
os/MSWin32.c view on Meta::CPAN
}
{
struct passwd *pw;
if ((pw = getpwuid (p->version >= EXTERNAL_PINFO_VERSION_32_BIT ?
p->uid32 : p->uid)))
strcpy (uname, pw->pw_name);
else
sprintf (uname, "%u", (unsigned)
(p->version >= EXTERNAL_PINFO_VERSION_32_BIT ?
view release on metacpan or search on metacpan
lib/Project/Easy/Helper.pm view on Meta::CPAN
my $project_pm = Project::Easy::Config::string_from_template (
$data_files->{'Project.pm'},
$data
);
my $login = eval {scalar getpwuid ($<)};
my $instance = 'local' . (defined $login ? ".$login" : '');
my $root = dir->current;
view release on metacpan or search on metacpan
easyxs/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
easyxs/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/Prophet/CLI/Command/Shell.pm view on Meta::CPAN
return $term;
},
);
our $HIST = $ENV{PROPHET_HISTFILE}
|| ( ( $ENV{HOME} || ( getpwuid($<) )[7] ) . "/.prophetreplhist" );
our $LEN = $ENV{PROPHET_HISTLEN} || 500;
sub usage_msg {
my $self = shift;
my $cmd = $self->cli->get_script_name;
view release on metacpan or search on metacpan
lib/Protocol/DBus/Authn/Mechanism/DBUS_COOKIE_SHA1.pm view on Meta::CPAN
}
sub _getpw {
my ($self) = @_;
$self->{'_pw'} ||= [ getpwuid $> ];
return @{ $self->{'_pw'} };
}
sub _consume_data {
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