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,
view release on metacpan or search on metacpan
lib/ObjStore/AppInstance.pm view on Meta::CPAN
=head1 SYNOPSIS
use ObjStore::AppInstance;
my $app = ObjStore::AppInstance->new('posh', scalar(getpwuid($>)));
my $hash = $app->top(); # fetch the top level hash for this key
$app->modified(); # set the modification time
view release on metacpan or search on metacpan
lib/Object/Import.pm view on Meta::CPAN
endservent eof eval exec exists exit exp fcntl fileno flock for
foreach 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 given glob gmtime goto grep hex if index int
ioctl join keys kill last lc lcfirst length link listen local
localtime lock log lstat map mkdir msgctl msgget msgrcv msgsnd
my next no not oct open opendir ord our pack package pipe pop
pos print printf prototype push quotemeta rand read readdir
view release on metacpan or search on metacpan
}
sub preload
{
my ($id) = @_;
return if getpwuid($id);
return getpwnam($id) if getpwnam($id);
die;
}
sub postload
{
my ($this) = @_;
my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,
$shell,$expire) = getpwuid($this->{UID});
$this->{SHELL} = $shell;
}
sub presave
{
view release on metacpan or search on metacpan
}
my $mod_perl = $httpd;
$mod_perl =~ s{/bin/httpd}{/modules/mod_perl.so};
my($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell,$expire) = getpwuid($<);
my $user = getpwuid($uid);
my $group = getgrgid($gid);
my $default_conf = "$cwd/apache/conf/httpd.conf.default";
my $new_conf = "$cwd/apache/conf/httpd.conf";
view release on metacpan or search on metacpan
OpenIndex.pm view on Meta::CPAN
tagout('tr',$cfg,'align="left"');
#Permission data
tagout('td',$cfg,'',"$list->{$entry}{mode}</td>") if $cfg->{options} & SHOW_PERMS;
#Owner data
if($args->{isadmin}) {
my $pname=getpwuid($list->{$entry}{uid})||"$list->{$entry}{uid}";
tagout('td',$cfg,'',"${pname}</td>");
}
#Group data
if($args->{gid}) {
my $pname=getgrgid($list->{$entry}{gid})||"$list->{$entry}{gid}";
view release on metacpan or search on metacpan
share/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
share/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
examples/odfbuild view on Meta::CPAN
'generator=s' => \$generator,
'title=s' => \$title,
'subject=s' => \(my $subject = ''),
'description=s' => \$description,
'keywords=s' => \(my $keywords = ''),
'creator=s' => \(my $creator = scalar getpwuid($<)),
'source=s' => \(my $source = undef),
'tablesize=s' => \(my $tablesize = '16x8'),
'tablename=s' => \(my $tablename = undef),
'force' => \(my $force = undef),
'opendocument' => \(my $odf = undef),
view release on metacpan or search on metacpan
# heading => 0,
# prompt => 0,
);
my $user = getlogin
|| scalar getpwuid($REAL_USER_ID)
|| undef;
print STDERR "Enter Action [CREATE]: ";
chomp( my $action = <STDIN> );
$action = "create" unless $action;
view release on metacpan or search on metacpan
lib/OurNet/BBS/MailBox/Board.pm view on Meta::CPAN
my $file = "$self->{bbsroot}/$self->{board}";
$self->{folder} = $self->{mgr}->open(folder => $file);
$self->{_hash}{title} = $self->{folder}->name;
$self->{_hash}{id} = $self->{folder}->filename;
$self->{_hash}{bm} = getpwuid((stat($file))[4])
if $^O ne 'MSWin32';
}
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_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||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