view release on metacpan or search on metacpan
StarTeam.pm view on Meta::CPAN
my( $self ) = ( ref( $optionRef ) eq 'HASH' ) ? $optionRef : {};
my( $username ) = $^O eq 'MSWin32' ? $ENV{'USERNAME'}
: $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}
: $^O eq 'MacOS' ? $ENV{'USER'}
: eval { getpwuid($<) }; # May be missing
my( %default ) = (
'batchmode' => 0,
'compress' => 0,
'host' => 'localhost',
view release on metacpan or search on metacpan
lib/VSGDR/MergeData.pm view on Meta::CPAN
my $quotedCombinedTargetName = "[${targ_schema}].[${targ_table}]";
my $database = databaseName($dbh);
no warnings;
my $userName = $OSNAME eq 'MSWin32' ? eval('Win32::LoginName') : ${[getpwuid( $< )]}->[6]; $userName =~ s/,.*//;
use warnings;
use warnings;
my $date = strftime "%d/%m/%Y", localtime;
view release on metacpan or search on metacpan
lib/VSGDR/StaticData.pm view on Meta::CPAN
my $quotedTable = "[${table}]";
my $database = databaseName($dbh);
no warnings;
my $userName = $OSNAME eq 'MSWin32' ? eval('Win32::LoginName') : ${[getpwuid( $< )]}->[6]; $userName =~ s/,.*//;
use warnings;
my $date = strftime "%d/%m/%Y", localtime;
my $hasId = has_idCols($dbh,$schema,$table) ;
view release on metacpan or search on metacpan
lib/VSGDR/TestScriptGen.pm view on Meta::CPAN
my $database = databaseName($dbh);
no warnings;
my $userName = $OSNAME eq 'MSWin32' ? eval('Win32::LoginName') : ${[getpwuid( $< )]}->[6]; $userName =~ s/,.*//;
use warnings;
my $date = strftime "%d/%m/%Y", localtime;
#warn Dumper $userName ;
#warn Dumper $ra_columns ;
#exit ;
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/Variable/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/Variable/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/Video/TeletextDB/Access.pm view on Meta::CPAN
my ($user, $rest) = $file =~ m!^~([^/]*)(.*)\z!s or return $file;
if ($user ne "") {
my @pw = getpwnam($user) or croak "Could not find user $user";
$user = $pw[7];
} elsif (!defined($user = $ENV{HOME})) {
my @pw = getpwuid($>) or
croak "Could not determine who you are";
$user = $pw[7];
}
croak "Home directory is the empty string" if $user eq "";
$user =~ s!/*\z!$rest!;
view release on metacpan or search on metacpan
lib/WWW/Crab/Client.pm view on Meta::CPAN
sub _get_username {
my $username = undef;
eval {
$username = scalar getpwuid($<);
};
return $username if defined $username;
eval {
view release on metacpan or search on metacpan
lib/WWW/KlickTel/API.pm view on Meta::CPAN
# --- GLOBAL VARIABLES ---
my %cache_invers = ();
# system username
my $username = $ENV{LOGNAME} || $ENV{USER} || getpwuid($<);
=head1 METHODS
=head2 new
view release on metacpan or search on metacpan
lib/WWW/Mechanize/FormFiller/Value/Callback.pm view on Meta::CPAN
# Create a default value for the HTML field "login"
# This will put the current login name into the login field
sub find_login {
getlogin || getpwuid($<) || "Kilroy";
};
my $login = WWW::Mechanize::FormFiller::Value::Callback->new( login => \&find_login );
$f->add_value( login => $login );
lib/WWW/Mechanize/FormFiller/Value/Callback.pm view on Meta::CPAN
my $form = HTML::Form->parse('<html><body><form method=get action=/>
<input type=text name=login />
<input type=text name=password />
</form></body></html>','http://www.example.com/');
$f->fill_form($form);
my $login_str = getlogin || getpwuid($<) || "Kilroy";
is( $form->value('login'), $login_str, "Login gets set");
cmp_ok( $form->value('password'), '<', 100, "Password gets set");
cmp_ok( $form->value('password'), '>', 9, "Password gets set");
=head1 DESCRIPTION
view release on metacpan or search on metacpan
lib/WWW/Mechanize/Shell.pm view on Meta::CPAN
# I should just release a patch for File::Homedir then... Not now.
my $sourcefile;
if (exists $args{rcfile}) {
$sourcefile = delete $args{rcfile};
} else {
my $userhome = $^O =~ /win32/i ? $ENV{'USERPROFILE'} || $ENV{'HOME'} : ((getpwuid($<))[7]);
$sourcefile = "$userhome/.mechanizerc"
if -f "$userhome/.mechanizerc";
};
$self->option('cookiefile', $args{cookiefile}) if (exists $args{cookiefile});
$self->source_file($sourcefile) if defined $sourcefile;
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
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/Web/App/Helper.pm view on Meta::CPAN
my $vars = {
root => $pack->root,
distro => $pack->distro,
project => $pack->id,
user => scalar getpwuid ($<),
group => scalar getgrgid ($(),
port => 50000,
admin => 'author@example.com',
apxs_libexec => $apxs_libexec,
view release on metacpan or search on metacpan
patches/LWPng-0.24-patch-1 view on Meta::CPAN
my $now = time;
$res->date($now);
***************
*** 95,101 ****
my $uname = ($has_getpwuid ? getpwuid($uid) : undef) || $uid;
my $gname = ($has_getgrgid ? getgrgid($gid) : undef) || $gid;
! # far more than you ever wanted to know
$res->header("INode" => sprintf("[%04x]:%d", $dev, $ino)) if $ino;
$res->header("Owner" => $uname);
$res->header("Group" => $gname);
--- 105,111 ----
my $uname = ($has_getpwuid ? getpwuid($uid) : undef) || $uid;
my $gname = ($has_getgrgid ? getgrgid($gid) : undef) || $gid;
! # Far more than you ever wanted to know.
$res->header("INode" => sprintf("[%04x]:%d", $dev, $ino)) if $ino;
$res->header("Owner" => $uname);
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/WebService/GarminConnect.pm view on Meta::CPAN
push @{ $ua->requests_redirectable }, 'POST';
# location for saved access token
my $cache_path = $self->{cache_dir};
if (!defined $cache_path) {
$cache_path = (getpwuid($>))[7]."/.cache";
-d $cache_path || mkdir $cache_path, 0700;
$cache_path .= "/webservice-garminconnect";
-d $cache_path || mkdir $cache_path, 0700;
}
# untaint
view release on metacpan or search on metacpan
docs/WORDFILE.TXT view on Meta::CPAN
bind binmode bless b_print
caller chdir chmod chomp convert_ses_time chop chown chr chroot ClearBuffer ClearHeader close closedir connect cos crypt
DB_OnDestroy DB_OnExit dbmclose dbmopen decode_separator defined delete delete_cookie DestroyScript die disattach_var dump
each encode_separator endgrent endhostent endnetent endprotoent endpwent endservent eof eval exec exit exp exists
fcntl fileno flock flush_print fork formline format
getc GetCookies GetCompressedCookies GetCurrentSID getgrent getgrgid getgrname gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername getpgrp getppid getpriority getprotobyname getprotobynumber getprotoent get...
Header hex hideerror href_adder href_sid_adder
index int ioctl
join
keys kill
lc lcfirst length link listen LoadCfgFile localtime log lstat
view release on metacpan or search on metacpan
lib/Webservice/Sendy/API.pm view on Meta::CPAN
sub new {
my $pkg = shift;
my $params = { @_, ua => HTTP::Tiny->new };
my $self = baptise $params, $pkg, qw/config/;
if (not $self->config) {
my $HOME = (getpwuid($<))[7];
$self->config("$HOME/.sendy.ini");
}
if (not -e $self->config) {
die sprintf "Webservice::Sendy::API requires a configuration file! (looking for, '%s')\n", $self->config;
}
view release on metacpan or search on metacpan
lib/Wily/Connect.pm view on Meta::CPAN
}
if (not exists $ENV{DISPLAY}) {
croak 'No $DISPLAY set';
}
my $tmp = $ENV{TMPDIR} || '/tmp';
my $login = getlogin || getpwuid($<);
return "$tmp/wily$login$ENV{DISPLAY}";
}
view release on metacpan or search on metacpan
.vscode/perl-keywords.txt view on Meta::CPAN
getprotobyname
getprotobynumber
getprotoent
getpwent
getpwnam
getpwuid
getservbyname
getservbyport
getservent
getsockname
getsockopt
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
view release on metacpan or search on metacpan
include/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_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031010||Viu
get_regclass_nonbitmap_data|5.031010||Viu
include/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
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
Archive/Tar.pm view on Meta::CPAN
use File::Basename;
BEGIN {
# This bit is straight from the manpages
use Exporter ();
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $symlinks $compression $has_getpwuid $has_getgrgid);
$VERSION = 0.072;
@ISA = qw(Exporter);
@EXPORT = qw ();
%EXPORT_TAGS = ();
Archive/Tar.pm view on Meta::CPAN
if ($@) {
warn "Compression not available.\n";
$compression = undef;
}
# Check for get* (they don't exist on WinNT)
eval {$_=getpwuid(0)}; # Pointless assigment to make -w shut up
$has_getpwuid = !$@;
eval {$_=getgrgid(0)}; # Pointless assigment to make -w shut up
$has_getgrgid = !$@;
}
use vars qw(@EXPORT_OK $tar_unpack_header $tar_header_length $error);
Archive/Tar.pm view on Meta::CPAN
linkname => $linkname,
magic => "ustar\0",
version => "00",
# WinNT protection
uname =>
$has_getpwuid?(getpwuid($uid))[0]:"unknown",
gname =>
$has_getgrgid?(getgrgid($gid))[0]:"unknown",
devmajor => 0, # We don't handle this yet
devminor => 0, # We don't handle this yet
prefix => "",
Archive/Tar.pm view on Meta::CPAN
$ref->{typeflag}=0; # Ordinary file
$ref->{linkname}="";
$ref->{magic}="ustar\0";
$ref->{version}="00";
# WinNT protection
$ref->{uname}=$has_getpwuid?(getpwuid($>))[0]:"unknown";
$ref->{gname}=$has_getgrgid?(getgrgid($ref->{gid}))[0]:"unknown";
$ref->{devmajor}=0;
$ref->{devminor}=0;
$ref->{prefix}="";
view release on metacpan or search on metacpan
endhostent endnetent endprotoent endpwent endservent eof eq eval
exec exists exit exp fcntl fileno flock for foreach fork format
formline ge 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 gt hex if index
int ioctl join keys kill last lc lcfirst le length link listen
local localtime lock log lstat lt m map mkdir msgctl msgget msgrcv
msgsnd my ne next no not oct open opendir or ord our pack package
pipe pop pos print printf prototype push q qq qr quotemeta qu
view release on metacpan or search on metacpan
Win32-GUI_Scintilla/Perl.pm view on Meta::CPAN
endhostent endnetent endprotoent endpwent endservent eof eq eval
exec exists exit exp fcntl fileno flock for foreach fork format
formline ge 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 gt hex if index
int ioctl join keys kill last lc lcfirst le length link listen
local localtime lock log lstat lt m map mkdir msgctl msgget msgrcv
msgsnd my ne next no not oct open opendir or ord our pack package
pipe pop pos print printf prototype push q qq qr quotemeta qu
view release on metacpan or search on metacpan
xs/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
xs/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/Win32/Mock/Win32.pm view on Meta::CPAN
sub GetFolderPath {
my ($folder, $create) = @_;
eval "use File::HomeDir";
my $path = '';
my $home = eval { File::HomeDir->my_home } || (getpwuid($>))[7];
# TODO CSIDL_DESKTOP
# TODO CSIDL_PROGRAMS
$folder == &CSIDL_PERSONAL
lib/Win32/Mock/Win32.pm view on Meta::CPAN
#
# LoginName()
# ---------
sub LoginName {
return "" . (getpwuid($<))[0]
}
#
# LookupAccountName()
view release on metacpan or search on metacpan
lib/Win32/Process/Info/PT.pm view on Meta::CPAN
CreationDate: start
Description: cmndline
ExecutablePath: fname (note 1)
KernelModeTime: stime (note 2)
Name: basename (fname)
Owner: '\' . getpwuid (uid) (note 3)
OwnerSid: uid (note 4)
ParentProcessId: ppid
ProcessId: pid
UserModeTime: utime (note 2)
lib/Win32/Process/Info/PT.pm view on Meta::CPAN
$info->{UserModeTime} = $proc->utime() * 10;
},
uid => sub {
my ($info, $proc) = @_;
$info->{OwnerSid} = my $uid = $proc->uid ();
$info->{Owner} = $pw_uid{$uid} ||= '\\' . getpwuid($uid);
},
);
my @fld_sup = grep { defined $_ } Proc::ProcessTable->new ()->fields ();
sub GetProcInfo {