view release on metacpan or search on metacpan
lib/Term/GDBUI.pm view on Meta::CPAN
);
# expand tildes in the history file
if($args{history_file}) {
$args{history_file} =~ s/^~([^\/]*)/$1?(getpwnam($1))[7]:
$ENV{HOME}||$ENV{LOGDIR}||(getpwuid($>))[7]/e;
}
for(keys %args) {
next if $_ eq 'app'; # this param is not a member
$self->{$_} = $args{$_};
view release on metacpan or search on metacpan
my $setme = shift;
# We assume that if we could get this far, then /tmp/orit-$username
# is already secured (because of CORBA_ORB_init)
my $pwname = getpwuid($<);
# my $name = "/tmp/orbit-$pwname/cookie";
my $name = "/tmp/orbit-cookie";
if (defined $setme) {
if (!sysopen COOKIEFILE, $name, O_CREAT | O_WRONLY, 0600) {
view release on metacpan or search on metacpan
lib/Gantry/Control.pm view on Meta::CPAN
my ( $id, $passwd, $first, $last, $email, $active ) = db_next( $sth );
db_finish( $sth );
# act like C's getpwuid
return( $id || 0, $active || 0, $passwd || '', $first || '',
$last || '', $email || '' );
} # END get_pwnam
#-------------------------------------------------
lib/Gantry/Control.pm view on Meta::CPAN
my ( $uname, $passwd, $first, $last, $email, $active ) = db_next( $sth );
db_finish( $sth );
# act like C's getpwuid
return( $uname || '', $active || 0, $passwd || '', $first || '',
$last || '', $email || '' );
} # END get_pwuid
#-------------------------------------------------
lib/Gantry/Control.pm view on Meta::CPAN
status of the user, the users password ( as kept in the database ), the
users first name, the users last name, and the users email address.
=item @user_info = get_pwuid( $dbh, $user_id )
This emulates C's getpwuid save it operates on the database. The return
values are, in this order: Users username, a boolean for the active
status of the user, the users password ( as kept in the database ), the
users first name, the users last name, and the users email address.
=item $grp = get_usrgrp( $dbh, $uid )
view release on metacpan or search on metacpan
News/Gateway.in view on Meta::CPAN
# to articles.
sub new {
my $that = shift;
my $class = ref $that || $that;
my ($interactive, $maintainer, $envelope) = @_;
unless ($maintainer) { $maintainer = (getpwuid ($<))[0] }
unless ($envelope) { $envelope = $maintainer }
my $self = {
confhooks => {},
mesghooks => [],
envelope => $envelope,
view release on metacpan or search on metacpan
lib/Gedcom.pm view on Meta::CPAN
# Add the required elements, unless they are already there.
unless ($r->get_record("head")) {
my $me = "Unknown user";
my $login = $me;
if ($login = getlogin || (getpwuid($<))[0] ||
$ENV{USER} || $ENV{LOGIN}) {
my $name;
eval { $name = (getpwnam($login))[6] };
$me = $name || $login;
}
view release on metacpan or search on metacpan
lib/Genezzo/GenDBI.pm view on Meta::CPAN
my %args = (
@_);
greet @_ ;
my ($uname, $cryptpwd) = (getpwuid($<))[0,1];
my $plainword;
# XXX XXX : looks like this getpwuid returns the crypt from the
# shadow file - an 'x'
# XXX XXX : need term::readkey
system "stty -echo";
view release on metacpan or search on metacpan
t/sandbox/usr/portage/app-portage/gentoolkit/files/scripts/echangelog view on Meta::CPAN
$input = Text::Wrap::fill('', '', $input) if ($input =~ /^.{80}/m);
$input =~ s/^/ /gm; # add indentation
# Prepend the user info to the input
$user = $ENV{'ECHANGELOG_USER'} ||
sprintf("%s <%s\@gentoo.org>", (getpwuid($<))[6,0]);
# Make sure that we didn't get "root"
die "Please set ECHANGELOG_USER or run as non-root\n" if $user =~ / root@/;
$date = strftime("%d %b %Y", localtime);
$entry = "$date; $user ";
$entry .= join ', ', grep !/files.digest|Manifest/, @files; # don't list digests
view release on metacpan or search on metacpan
t/postgis.t view on Meta::CPAN
use DBI;
BEGIN { use_ok('Geo::OGC::Service::WFS') };
# create a test database first
my $user = getlogin || getpwuid($<) || "Kilroy";
my $pass = $user;
my $test_db = 'wfstest';
my $dbh;
sub setup_db {
view release on metacpan or search on metacpan
inc/ExtUtils/MakeMaker.pm view on Meta::CPAN
my($name, $value) = ($1, $2);
if ($value =~ m/^~(\w+)?/) { # tilde with optional username
$value =~ s [^~(\w*)]
[$1 ?
((getpwnam($1))[7] || "~$1") :
(getpwuid($>))[7]
]ex;
}
# Remember the original args passed it. It will be useful later.
$self->{ARGS}{uc $name} = $self->{uc $name} = $value;
view release on metacpan or search on metacpan
$self->{'multivalues'} = 1;
$self->{'lock'} = 1;
$self->{'locktimeout'} = 15;
$self->{'find_path'} = [
"./",
(getpwuid($>))[7]."/",
$dirname,
"../",
"/usr/local/etc/",
];
find_path contain:
### actual directory
"./",
### home directory
(getpwuid($>))[7]."/",
### program directory by File::Basename::fileparse()
$dirname,
### parent directory
"../",
### default config directory
view release on metacpan or search on metacpan
MailBot/Sendable.pm view on Meta::CPAN
# Ensure the mail has the following headers
# From, Reply-To
my($from,$name,$tag);
$name = (getpwuid($>))[6] || $ENV{NAME} || "";
while($name =~ s/\([^\(]*\)//) { 1; }
$from = sprintf "%s <%s>", $name, mailaddress();
$from =~ s/\s{2,}/ /g;
view release on metacpan or search on metacpan
lib/Getopt/Complete/Compgen.pm view on Meta::CPAN
$value =~ s/\'/\\'/;
my @f = grep { $_ !~/^\s+$/ } `bash -c "compgen -$option -- '$value'"`;
chomp @f;
if ($option eq 'f' or $option eq 'd') {
# bash is fine with ~/ paths but perl is not, need to translate
my $home_dir = (getpwuid($<))[7];
for (my $i = 0; $i < @f; $i++) {
my $perl_path = $f[$i];
$perl_path =~ s/^~/$home_dir/;
if ( -d $perl_path ) {
$f[$i] .= "/\t";
view release on metacpan or search on metacpan
Gen/cmdline_c.pm view on Meta::CPAN
if (!filename) return; /* ignore NULL filenames */
#if defined(HAVE_GETUID) && defined(HAVE_GETPWUID)
if (*filename == '~') {
/* tilde-expansion hack */
struct passwd *pwent = getpwuid(getuid());
if (!pwent) {
fprintf(stderr, "%s: user-id %d not found!\n", PROGRAM, getuid());
return;
}
if (!pwent->pw_dir) {
view release on metacpan or search on metacpan
t/Getopt-Tree.t view on Meta::CPAN
{ name => 'debug', abbr => 'd', exists => 1, optional => 1, descr => 'Enable debugging output.' },
{
name => 'user',
abbr => 'u',
optional => 1,
descr => 'Ticketing username, defaults to scalar(getpwuid($<)).'
},
{
name => 'no-cache',
abbr => 'nc',
exists => 1,
view release on metacpan or search on metacpan
lib/Git/Gitalist/Repository.pm view on Meta::CPAN
}
method _build_owner {
return 'system' if $^O =~ 'MSWin32';
my ($gecos, $name) = map { decode(langinfo(CODESET()), $_) } (getpwuid $self->path->stat->uid)[6,0];
$gecos =~ s/,+$//;
return length($gecos) ? $gecos : $name;
}
method _build_last_change {
view release on metacpan or search on metacpan
deps/libgit2/src/libgit2/sysdir.c view on Meta::CPAN
if ((buflen = sysconf(_SC_GETPW_R_SIZE_MAX)) == -1)
buflen = 1024;
do {
buf = git__realloc(buf, buflen);
error = getpwuid_r(uid, &pwd, buf, buflen, &pwdptr);
buflen *= 2;
} while (error == ERANGE && buflen <= 8192);
if (error) {
git_error_set(GIT_ERROR_OS, "failed to get passwd entry");
view release on metacpan or search on metacpan
lib/GitLab/API/v4/Config.pm view on Meta::CPAN
my $file = $self->opt_args->{config_file}
|| $self->env_args->{config_file};
return $file if $file;
my ($home) = ( getpwuid($<) )[7];
return '' . path( $home )->child('.gitlab-api-v4-config');
}
=head1 ATTRIBUTES
view release on metacpan or search on metacpan
terminology.
- Repos has been refactored into a CollectionOfRepositories role
and two differnet concrete implementations (the Catalyst model
chooses which type to build based on the config).
- Remove all tabs and fix no tabs test (Dagfinn Ilmari Mannsåker)
- Decode getpwuid values correctly (Dagfinn Ilmari Mannsåker)
- Generate correct provides information in META.yml so that search.cpan
indexes the classes contained in Gitalist correctly.
- Dropped the dependency on File::Stat::ModeString
0.000003 2009-12-09
view release on metacpan or search on metacpan
Glade/Two/Generate.pm view on Meta::CPAN
if ($Glade_Perl->app->author) {
$proj_opt->{app}{author} = $Glade_Perl->app->author;
} else {
my $host = hostname;
my $pwuid = [(getpwuid($<))];
my $user = $pwuid->[0];
my $fullname = $pwuid->[6];
my $hostname = [split(" ", $host)];
$proj_opt->{app}{'author'} = "$fullname <$user\@$hostname->[0]>";
}
view release on metacpan or search on metacpan
Glade/PerlProject.pm view on Meta::CPAN
if ($Glade_Perl->app->author) {
$proj_opt->{app}{author} = $Glade_Perl->app->author;
} else {
my $host = hostname;
my $pwuid = [(getpwuid($<))];
my $user = $pwuid->[0];
my $fullname = $pwuid->[6];
my $hostname = [split(" ", $host)];
$proj_opt->{app}{'author'} = "$fullname <$user\@$hostname->[0]>";
}
view release on metacpan or search on metacpan
my $perm = $stat->st_mode & (S_IRWXU | S_IRWXG | S_IRWXO);
cmp_ok($perm, '==', 0644, ' mode : ' . sprintf('%o', $perm));
};
my ($login, $pass, $uid, $gid) = getpwuid($<);
# chown
subtest 'chown' => sub
{
my $retval = GlusterFS::GFAPI::FFI::glfs_chown($fs, "/$fname", $uid, $gid);
view release on metacpan or search on metacpan
bin/perlmine.pl view on Meta::CPAN
$game_status = STOP;
Glib::Source->remove($timer);
$image_but->set_image(Gtk2::Image->new_from_file($image{'win'}));
return;
my $new_entry = [$Config{name} || getlogin || getpwuid($<) || 'Nobody', $elapse_time];
my ($idx, $new_iter);
if ( $#$history > 8 ) {
$#$history = 8;
}
push @$history, $new_entry;
view release on metacpan or search on metacpan
lib/Goo/Thing/pm/Perl5.pm view on Meta::CPAN
###############################################################################
use strict;
# lists functions not reserved words
my @functions = qw(abs accept alarm atan2 binmode binmode bless caller chdir chmod chomp chomp chown chr chroot close closedir connect continue close crypt data dbmclose dbmopen defined delete die do dump each endgrent endhostent endnetent endprotoen...
# common functions and reserved words
my @common = qw(abs accept binmode bless caller chdir chmod chomp chown chr chroot close continue defined delete
die do each else eval exec exists exit flock for foreach fork format glob gmtime goto grep hex if import index int ioctl join keys last lc lcfirst length link listen local localtime log map mkdir my next oct open ord pack package pipe pop pos print p...
view release on metacpan or search on metacpan
src/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
src/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
t/lib/Test/Utils.pm view on Meta::CPAN
# this is for etc/log4perl.conf to call back to get the log file name.
sub log_file_name {
my $logfile = shift or die "No log file passed";
$logfile .= ".log";
my $username = ($ENV{LOGNAME} || $ENV{USER} || getpwuid($<)) or die "No user name found";
my $tmpdir = File::Spec->tmpdir();
my $logdir = File::Spec->catfile($tmpdir, $username);
make_path($logdir);
my $logpath = File::Spec->catfile($logdir, $logfile);
view release on metacpan or search on metacpan
Tk/myConfig view on Meta::CPAN
{
# retain author's favourite warnings if using gcc
$gccopt .= " -ggdb -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
eval
{
if ((getpwuid($<))[6] =~ /Nick\s+Ing-Simmons/)
{
# This is the author - catch as many bugs as possible
$gccopt .= " -MMD -Werror";
@macro = ( macro => { INSTALLDIRS => 'perl' });
}
view release on metacpan or search on metacpan
lib/Egreek.pm view on Meta::CPAN
### More-desperate methods
# Light desperation on any (Unixish) platform
else {
$home = CORE::eval q{ (getpwuid($<))[7] };
}
# On Unix in general, a non-existant home means "no home"
# For example, "nobody"-like users might use /nonexistant
if (defined $home and ! -d($home)) {
view release on metacpan or search on metacpan
lib/Grid/Request/Command.pm view on Meta::CPAN
$self->{state} = $default_state;
# This is important for systems such as psearch, which change
# uid's in order to submit jobs on behalf of users.
# We should use the real user id.
$self->{username} = getpwuid($<);
$logger->debug("Set the username to the effective UID: " . $self->{username});
# Set the default block size.
$logger->debug("Setting the default block size.");
$self->{block_size} = $DEFAULT_BLOCK_SIZE;
view release on metacpan or search on metacpan
if($^O eq "MacOS") {
$home = $ENV{HOME} || `pwd`;
chomp($home);
$file = ($home =~ /:$/ ? $home . "gripsrc" : $home . ":gripsrc");
} else {
# Some OS's don't have `getpwuid', so we default to $ENV{HOME}
$home = eval { (getpwuid($>))[7] } || $ENV{HOME};
$file = $home . "/.gripsrc";
}
my $fh;
local $_;
view release on metacpan or search on metacpan
lib/Guacamole.pm view on Meta::CPAN
OpKeywordGetpwnam ~ 'getpwnam'
OpKeywordGetgrnam ~ 'getgrnam'
OpKeywordGethostbyname ~ 'gethostbyname'
OpKeywordGetnetbyname ~ 'getnetbyname'
OpKeywordGetprotobyname ~ 'getprotobyname'
OpKeywordGetpwuid ~ 'getpwuid'
OpKeywordGetgrgid ~ 'getgrgid'
OpKeywordGetservbyname ~ 'getservbyname'
OpKeywordGethostbyaddr ~ 'gethostbyaddr'
OpKeywordGetnetbyaddr ~ 'getnetbyaddr'
OpKeywordGetprotobynumber ~ 'getprotobynumber'