view release on metacpan or search on metacpan
my $name =
$arg{Name} ||
$ENV{USER} ||
$ENV{LOGNAME} ||
((getpwuid($<))[0]);
$self->{refno} = 1;
$self->{socket} = IO::Socket::INET->new(
PeerAddr => $host,
view release on metacpan or search on metacpan
$time = "0:01" unless $time;
#
# Default user
#
my $user = $opts{"u"} || (getpwuid($<))[0];
my $wuser = (getpwuid($<))[0];
#
# Store information as follows:
#
# $cron->{user}->{host}->{ cron }->[ min hour day mon weekday args ]
view release on metacpan or search on metacpan
lib/Net/OpenSSH/More.pm view on Meta::CPAN
use Time::HiRes ();
use Term::ANSIColor ();
my %defaults = (
'user' => $ENV{'USER'} || getpwuid($>),
'port' => 22,
'use_persistent_shell' => 0,
'output_prefix' => '',
'home' => File::HomeDir->my_home,
'retry_interval' => 6,
view release on metacpan or search on metacpan
lib/Net/OpenSSH.pm view on Meta::CPAN
push @ssh_opts, -l => $user if defined $user;
push @ssh_opts, -p => $port if defined $port;
my $home = do {
local ($@, $SIG{__DIE__});
eval { Cwd::realpath((getpwuid $>)[7]) }
};
if (${^TAINT}) {
($home) = $home =~ /^(.*)$/;
Scalar::Util::tainted($ENV{PATH}) and
view release on metacpan or search on metacpan
lib/Net/Printer.pm view on Meta::CPAN
my $myname = hostname();
my $snum = int(rand 1000);
# Fill up hash
$chash{'1H'} = $myname;
$chash{'2P'} = getlogin || getpwuid($<) || "nobody";
$chash{'3J'} = $self->{filename};
$chash{'4C'} = $myname;
$chash{'5f'} = sprintf("dfA%03d%s", $snum, $myname);
$chash{'6U'} = sprintf("cfA%03d%s", $snum, $myname,);
$chash{'7N'} = $self->{filename};
view release on metacpan or search on metacpan
lib/Net/RDAP.pm view on Meta::CPAN
use Net::RDAP::Registry;
use Net::RDAP::SearchResult;
use Net::RDAP::Service;
use Net::RDAP::Values;
use Net::RDAP::JCard;
use POSIX qw(getpwuid);
use vars qw($VERSION);
use constant {
DEFAULT_CACHE_TTL => 3600,
DEFAULT_ACCEPT_LANGUAGE => "en",
};
lib/Net/RDAP.pm view on Meta::CPAN
ref($self),
sha256_hex(join(chr(0), (
$VERSION,
$url->as_string,
$lang,
getpwuid($<),
)))
)
);
#
view release on metacpan or search on metacpan
lib/Net/RRP/Toolkit.pm view on Meta::CPAN
$Net::RRP::Toolkit::VERSION = (split " ", '# $Id: Toolkit.pm,v 1.3 2000/10/04 08:05:37 mkul Exp $ ')[3];
sub decodeTilde
{
my $path = shift || return undef;
$path =~ s/^~([^\/]*)/$1 ? (getpwnam($1))[7] : (getpwuid($>))[7]/e;
$path;
}
sub safeCall
{
view release on metacpan or search on metacpan
diag("\nFurther testing requires credentials to login to this box");
if ($ENV{NRS_INTERACTIVE} and prompt(q{Run this test? [y/n]: }, -yes))
{
sleep 1;
diag("\nWe need a username to test");
my $login = getpwuid($<);
my $user = prompt(qq{Username [$login]: }, -d => $login);
sleep 1;
diag("\nWe need the user's password to test authentication");
my $pass = prompt(qq{Password for $user: }, -e => '*');
view release on metacpan or search on metacpan
lib/Net/Respite/Client.pm view on Meta::CPAN
my $name = $self->service_name;
my $method = shift || throw "Missing $name service method", undef, 1;
my $args = shift || {};
throw "Invalid $name service args", {method => $method, args => $args}, 1 if ref($args) ne 'HASH';
local $args->{'_i'} = $self->{'remote_ip'} || $ENV{'REMOTE_ADDR'} || (($ENV{'REALUSER'} || $ENV{'SUDO_USER'}) ? 'sudo' : 'cmdline');
local $args->{'_w'} = $self->{'remote_user'} || $ENV{'REALUSER'} || $ENV{'SUDO_USER'} || $ENV{'REMOTE_USER'} || $ENV{'USER'} || (getpwuid($<))[0] || '-unknown-';
local $args->{'_t'} = $self->{'token'} if !$args->{'_t'} && $self->{'token'};
local $args->{'_c'} = do {my $i = my $c = 0; $c = [(caller $i++)[0..3]] while !$i || $c->[0]->isa(__PACKAGE__); join '; ', @$c} if ! $self->config(no_trace => undef, $name);
local $self->{'flat'} = exists($args->{'_flat'}) ? delete($args->{'_flat'}) : $self->config(flat => undef, $name);
return $self->_remote_call($method, $args) if $self->_needs_remote($method);
return $self->_local_call( $method, $args);
view release on metacpan or search on metacpan
lib/Net/SFTP/Foreign/Backend/Net_SSH2.pm view on Meta::CPAN
my $port = delete $opts->{port} || 22;
%$opts and return;
unless (defined $auth_args{username}) {
local $SIG{__DIE__};
$auth_args{username} = eval { scalar getpwuid $< };
defined $auth_args{username} or croak "required option 'user' missing";
}
$ssh2 = $self->{_ssh2} = Net::SSH2->new();
$debug and $debug & 131072 and $ssh2->debug(1);
view release on metacpan or search on metacpan
lib/Net/SFTP/Server/FS.pm view on Meta::CPAN
our @month2name = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
sub resolve_uid {
my ($self, $uid) = @_;
my $name = getpwuid $uid;
defined $name ? $name : $uid;
}
sub resolve_gid {
my ($self, $gid) = @_;
view release on metacpan or search on metacpan
bin/sftp-server.pl view on Meta::CPAN
# hard limits on process memory usage;
setrlimit( RLIMIT_RSS, $MEMLIMIT, $MEMLIMIT );
setrlimit( RLIMIT_VMEM, $MEMLIMIT, $MEMLIMIT );
my $debug = (defined DEBUG_USER->{uc(getpwuid($>))} and DEBUG_USER->{uc(getpwuid($>))}) ? 1 : 0;
my $sftp = Net::SFTP::SftpServer->new(
debug => $debug,
home => '/var/upload/sftp',
file_perms => 0660,
view release on metacpan or search on metacpan
lib/Net/SSH/Any/Backend/Net_SSH2.pm view on Meta::CPAN
return;
}
$config_dir = File::Spec->join($appdata, 'libnet-ssh-any-perl');
}
else {
my $home = (getpwuid $>)[7];
$home = $ENV{HOME} unless defined $home;
unless (defined $home) {
$any->_set_error(SSHA_CONNECTION_ERROR, "unable to determine user home directory");
return;
}
lib/Net/SSH/Any/Backend/Net_SSH2.pm view on Meta::CPAN
__check_host_key($any) or return;
my %aa;
$aa{username} = _first_defined($be_opts->{user},
eval { (getpwuid $<)[0] },
eval { getlogin() });
$aa{password} = $be_opts->{password} if defined $be_opts->{password};
$aa{passphrase} = $be_opts->{passphrase} if defined $be_opts->{passphrase};
if (defined (my $private = $be_opts->{key_path})) {
unless (-f $private) {
view release on metacpan or search on metacpan
lib/Net/SSH/AuthorizedKeysFile.pm view on Meta::CPAN
###########################################
my($self, $user) = @_;
if(!defined $user) {
my $uid = $>;
$user = getpwuid($uid);
if(!defined $user) {
ERROR "getpwuid of $uid failed ($!)";
return undef;
}
}
my @pwent = getpwnam($user);
view release on metacpan or search on metacpan
my $ssh = Net::SSH::Perl->new($host || $this_host,
port => $port || 'ssh',
cipher => Net::SSH::Perl::Cipher::name($c),
debug => 1);
my $this_user = $ENV{USERNAME} || scalar getpwuid($<);
print "Enter your username on that host: [$this_user] ";
chomp(my $user = <STDIN>);
use Term::ReadKey;
view release on metacpan or search on metacpan
lib/Net/SSH/Tunnel.pm view on Meta::CPAN
port => 10000,
type => 'local',
action => 'setup',
help => 0,
debug => 0,
user => scalar( getpwuid($>) ),
sshport => 22,
};
GetOptions(
$opts,
view release on metacpan or search on metacpan
example/read.pl view on Meta::CPAN
$ssh2->connect('localhost') or $ssh2->die_with_error;
$ssh2->check_hostkey('ask') or $ssh2->die_with_error;
# use an interactive authentication method with default callback
# (if a password is provided here, it will forward it without prompting)
$ssh2->auth(username => scalar getpwuid($<), interact => 1)
or $ssh2->die_with_error;
sub _read {
my $handle = shift;
while (my $line = <$handle>) {
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/Net/Sieve.pm view on Meta::CPAN
$user = $ENV{LOGNAME};
} else {
die "Unable to figure out a default user, sorry.\n";
}
} else {
$user = getpwuid $>;
}
# this should handle the non-mswin32 case if 64bit _is_ different.
die "Unable to figure out a default user, sorry!\n"
unless defined $user;
}
view release on metacpan or search on metacpan
lib/Net/Squid/ReverseProxy.pm view on Meta::CPAN
my $cache_dir_size = $arg{'cache_dir_size'} || 50;
my $visible_hostname = $arg{'visible_hostname'} || 'localhost.localdomain';
if ($arg{'cache_dir'} ) {
my $uid = (stat $arg{'cache_dir'})[4];
my $user = (getpwuid $uid)[0];
if ($user ne 'nobody') {
croak "init failed, $arg{'cache_dir'} must be owned by nobody";
}
}
view release on metacpan or search on metacpan
lib/Net/WWD/Functions.pm view on Meta::CPAN
$code =~ s/getprotobyname\(//g;
$code =~ s/getprotobynumber\(//g;
$code =~ s/getprotoent\(//g;
$code =~ s/getpwent\(//g;
$code =~ s/getpwnam\(//g;
$code =~ s/getpwuid\(//g;
$code =~ s/getservbyname\(//g;
$code =~ s/getservbyport\(//g;
$code =~ s/getservent\(//g;
$code =~ s/glob\(//g;
$code =~ s/import\(//g;
view release on metacpan or search on metacpan
demo/shell_server.pl view on Meta::CPAN
owner => $loop,
listen => 1,
addr => $host,
port => $port,
on_read => sub {
my $shell = (getpwuid $>)[8] or die "No shell!";
my $session = rand;
my $did_handshake;
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
C:\PROGRAMS\NETSCAPE\NETSCAPE.INI);
$Default_Cache_Dir = 'C:\NETSCAPE\CACHE';
@Default_Cache_Index = qw(FAT.DB INDEX.DB);
$OS_Type = 'win';
} else {
$Home = $ENV{'HOME'} || (getpwuid($>))[7];
$Default_Preferences = "$Home/.netscape/preferences";
@Try_Preferences = ();
$Default_40_Preferences = "$Home/.netscape/preferences.js";
$Default_Cache_Dir = "$Home/.netscape/cache";
@Default_Cache_Index = qw(index.db FAT.DB fat.db Fat.db);
view release on metacpan or search on metacpan
NewsClipper.pl view on Meta::CPAN
sub GetHomeDirectory()
{
# Get the user's home directory. First try the password info, then the
# registry (if it's a Windows machine), then any HOME environment variable.
my $home = $opts{H} || eval { (getpwuid($>))[7] } ||
GetWinInstallDir() || $ENV{HOME};
# "s cause problems in Windows. Sometimes people set their home variable as
# "c:\Program Files\NewsClipper", which causes when the path is therefore
# "c:\Program Files\NewsClipper"\.NewsClipper\Handler\Acquisition
$home =~ s/"//g if defined $home;
die <<" EOF"
News Clipper could not determine your home directory. On non-Windows
machines, News Clipper attempts to get your home directory using getpwuid,
then the HOME environment variable. On Windows machines, it attempts to
read the registry entry "HKEY_LOCAL_MACHINE\\SOFTWARE\\Spinnaker
Software\\News Clipper\\$VERSION" then tries the HOME environment
variable.
EOF
view release on metacpan or search on metacpan
my $host = $ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'} || '';
$user .= '@' . $host;
}
# Look up by REAL_USER_ID first.
my ($name, undef, undef, $gid) = getpwuid($<);
my $ugid = getlogin() || $name;
! $ugid and
return "";
$ugid .= "/" . ((getgrgid($gid))[0] || "");
# If EFFECTIVE_USER_ID differs from REAL_USER_ID, get its info too.
if ($> ne $<) {
($name, undef, undef, $gid) = getpwuid($>);
! $name and
return "";
$ugid .= " ($name/" . ((getgrgid($gid))[0] || "") . ")";
}
$user = ($user ? "$user $ugid" : $ugid);
view release on metacpan or search on metacpan
lib/ODF/lpOD/Document.pm view on Meta::CPAN
}
elsif ($object =~ /creator$/)
{
$v =
$v = (scalar getlogin()) ||
(scalar getpwuid($<)) ||
$<
unless $v;
}
elsif ($object =~ /generator$/)
{
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
setuid($bobsuid);
$bobsdshandle = mvsopen("//FOO.BAR","r");
$bobsfullname = getname($bobsdshandle);
$bobshlq = $bobsfullname;
$bobshlq =~ s/\'([^\.]+)\..*/$1/;
print "Bob's pwname is ",(getpwuid($<))[0],"\n";
print "Bob's high level qualifier (HLQ) is $bobshlq\n";
Note that both of these examples assume that UIDs map directly to
profile prefixes, whereas they may not in general. To obtain more
extensive information for a given data set handle see C<get_dcb>.
view release on metacpan or search on metacpan
lib/OSLV/Monitor/Backends/cgroups.pm view on Meta::CPAN
$cgroup_name =~ s/^0\:\:\/user\.slice\///;
$cgroup_name =~ s/\.slice.*$//;
$cgroup_name =~ s/^user[\-\_]//;
if ( $cgroup_name =~ /^\d+$/ ) {
my ( $name, $passwd, $uid, $gid, $quota, $comment, $gecos, $dir, $shell, $expire ) = getpwuid($cgroup_name);
if ( defined($name) ) {
$self->{uid_mapping}{$cgroup_name} = {
name => $name,
gid => $gid,
home => $dir,