view release on metacpan or  search on metacpan

lib/Mojolicious/Command/generate/qx_mojo_app.pm  view on Meta::CPAN

        'frontend/source/index.html' => 'frontend/source/index.html',
        'frontend/source/class/app/data/RpcService.js'  => 'frontend/source/class/'.$name.'/data/RpcService.js',
        't/basic.t' => 't/basic.t',
    };

    my ($userName,$fullName) = (getpwuid $<)[0,6];
    $fullName =~ s/,.+//g;
    chomp(my $domain = `hostname -d`);
    my $email = $userName.'@'.$domain;

    if ( -r $ENV{HOME} . '/.gitconfig' ){

 view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/Cron.pm  view on Meta::CPAN

sub register {
  my ($self, $app, $cronhashes) = @_;
  croak "No schedules found" unless ref $cronhashes eq 'HASH';

# for *nix systems, getpwuid takes precedence
# for win systems or wherever getpwuid is not implemented,
# eval returns undef so getlogin takes precedence
  $crondir
    = path($app->config->{cron}{dir} // File::Spec->tmpdir)
    ->child(CRON_DIR . (eval { scalar getpwuid($<) } || getlogin || 'nobody'),
    $app->mode);
  Mojo::IOLoop->next_tick(sub {
    if (ref((values %$cronhashes)[0]) eq 'CODE') {

      # special case, plugin => 'mm hh dd ...' => sub {}

 view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/Ident/Response.pm  view on Meta::CPAN

    $server_user_name = $ENV{USERNAME};
  }
  else
  {
    $server_user_uid  = $<;
    $server_user_name = scalar getpwuid($<);
  }
  die "could not determine username"
    unless defined $server_user_name
    &&     $server_user_name;
}

 view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/MultiConfig.pm  view on Meta::CPAN

{
	my $self = shift;
	my $app  = shift;
	my $arg  = shift;
	my $config = {};
	my $username = (getpwuid($<))[0]; # TODO: Not on Windows!
	my @files;

	# Default args if not set
	$arg->{moniker} //= $app->moniker;
	$arg->{mode}    //= $app->mode;

 view release on metacpan or  search on metacpan

share/public/revealjs/plugin/highlight/highlight.js  view on Meta::CPAN

})();
// END CUSTOM REVEAL.JS INTEGRATION

/*! highlight.js v9.11.0 | BSD3 License | git.io/hljslicense */
!function(e){var n="object"==typeof window&&window||"object"==typeof self&&self;"undefined"!=typeof exports?e(exports):n&&(n.hljs=e({}),"function"==typeof define&&define.amd&&define([],function(){return n.hljs}))}(function(e){function n(e){return e.r...
c:[{cN:"comment",b:/\(\*/,e:/\*\)/},e.ASM,e.QSM,e.CNM,{b:/\{/,e:/\}/,i:/:/}]}});hljs.registerLanguage("roboconf",function(a){var e="[a-zA-Z-_][^\\n{]+\\{",n={cN:"attribute",b:/[a-zA-Z-_]+/,e:/\s*:/,eE:!0,starts:{e:";",r:0,c:[{cN:"variable",b:/\.[a-zA...

 view release on metacpan or  search on metacpan

t/register.t  view on Meta::CPAN

$log_buffer = '';

eval {
	plugin 'SetUserGroup' => {
		user  => scalar getpwuid $>,
		group => 'bad group name !!!!!',
	};
};

$error = $@;

 view release on metacpan or  search on metacpan

Mon/Client.pm  view on Meta::CPAN

    $self->{"VERSION"} = undef;

    if ($ENV{"USER"} ne "") {
    	$self->{"USERNAME"} = $ENV{"USER"};
    } else {
    	$self->{"USERNAME"} = (getpwuid ($<))[0];
    }

    $self->{"OPSTATUS"} = undef;
    $self->{"DISABLED"} = undef;

 view release on metacpan or  search on metacpan

lib/Monitoring/Generator/TestConfig.pm  view on Meta::CPAN

    my($user, $group);
    if($^O eq "MSWin32") {
        $user           = getlogin();
        $group          = "nagios";
    } else {
        $user           = getpwuid($<);
        my @userinfo    = getpwnam($user);
        my @groupinfo   = getgrgid($userinfo[3]);
        $group          = $groupinfo[0];
    }

 view release on metacpan or  search on metacpan

lib/Monitoring/Icinga2/Client/Simple.pm  view on Meta::CPAN

        $ua->default_header( 'Accept' => 'application/json' );
        $self->{ua} = $ua;
    }
    # uncoverable condition false
    # uncoverable branch right
    $self->{_mics_author} = getlogin || getpwuid($<);
    return $self;
}

sub schedule_downtime {
    my ($self, %args) = @_;

lib/Monitoring/Icinga2/Client/Simple.pm  view on Meta::CPAN

C<services>: set to a true value to set downtimes on all of a host's services. Default is to set the downime on the host only.

=item *

C<author>: will use L<getlogin()|perlfunc/getlogin> (or L<getpwuid|perlfunc/getpwuid> where that's unavailable) if unset

=item *

C<fixed>: set to true for a fixed downtime, default is flexible

 view release on metacpan or  search on metacpan

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

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

inc/Perl/Tidy.pm  view on Meta::CPAN

      getpgrp
      getpriority
      getprotobyname
      getprotobynumber
      getpwnam
      getpwuid
      getservbyname
      getservbyport
      getsockname
      getsockopt
      glob

 view release on metacpan or  search on metacpan

lib/Morale.pm  view on Meta::CPAN

{
	my ($user) = @_;
	my $dir;
	my @check;

	if (!defined($user)) { $user = (getpwuid($>))[0]; }

	$dir = (getpwnam($user))[7];
	
	push @check, "/var/morale/$user";
	push @check, "$dir/.morale";

 view release on metacpan or  search on metacpan

MsqlCGI-bin/MsqlCGI.pm  view on Meta::CPAN

    if ( $1 ) {
      ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = 
      getpwnam ( $1 ); $dir
    } else {
      ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = 
      getpwuid ( $< ); $dir
    }/ge;
  &main::DPrint ( "After second substitution.  Returning: $fileName" );
  return $fileName;
}

 view release on metacpan or  search on metacpan

cgi-bin/Content/files.pl  view on Meta::CPAN

                        mtime   => $sb->mtime,
                        size    => $sb->size,
                        columns => [
                            sprintf( "%s", $sb->size ),
                            ( $^O ne 'MSWin32' ? sprintf( "%04o", $sb->mode & 07777 ) : '' ),
                            ( $^O ne 'MSWin32' ? getpwuid( $sb->uid )->name : '' ),
                            ( $^O ne 'MSWin32' ? $sb->gid : '' ),
                            "$year-$mon-$mday $hour:$min:$sec",
                            qq|<table cellpading="0" cellspacing="0">
                            <tr><td class="batch">&#xe906;<a class="treeviewLink16" href="javascript:prompt('Enter Filename:',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=renameFile&file=$efl&newName=...
                              . (

cgi-bin/Content/files.pl  view on Meta::CPAN

                        mtime   => $sb->mtime,
                        size    => $sb->size,
                        columns => [
                            sprintf( "%s",   $sb->size ),
                            sprintf( "%04o", $sb->mode & 07777 ),
                            ( $^O ne 'MSWin32' ? getpwuid( $sb->uid )->name : '' ),
                            $sb->gid,
                            "$year-$mon-$mday $hour:$min:$sec",
                            qq|

				  <table cellpading="0" cellspacing="0"><tr>

 view release on metacpan or  search on metacpan

bin/rm_package  view on Meta::CPAN

}

if (@unauthorized_files > 0) {
    say STDERR RED, "ERROR:", RESET, " The following files/directories are not owned by $current_user:";
    foreach my $file (@unauthorized_files) {
        my $owner = getpwuid((stat($file))[4]) || "unknown";
        say STDERR "  $file (owner: $owner)";
    }
    say STDERR RED, "ERROR:", RESET, " For security reasons, you can only delete files owned by your user.";
    exit 1;
}

bin/rm_package  view on Meta::CPAN

    foreach my $image (@images) {
        if (-f $image) {
            # Check image ownership
            my $image_uid = (stat($image))[4];
            if ($image_uid != $current_uid) {
                my $owner = getpwuid($image_uid) || "unknown";
                say STDERR RED, "ERROR:", RESET, " Cannot delete image $image: owned by $owner, not $current_user";
                $success = 0;
                next;
            }
            

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    $self->{local_user} = $user;
    delete $self->{_local_user};
  }
  return $self->{_local_user} if exists $self->{_local_user};
  if ($self->{local_user} eq '~') {
    my $user = $ENV{'USER'} || $ENV{'LOGNAME'} || getpwuid($<);
    $self->{_local_user} = $user;
  } else {
    $self->{_local_user} = $self->{local_user};
  }
  $self->{_local_user};

Makefile.PL  view on Meta::CPAN

    $self->{remote_user} = $user;
    delete $self->{_remote_user};
  }
  return $self->{_remote_user} if exists $self->{_remote_user};
  if ($self->{remote_user} eq '~') {
    my $user = $ENV{'USER'} || $ENV{'LOGNAME'} || getpwuid($<);
    $self->{_remote_user} = $user;
  } else {
    $self->{_remote_user} = $self->{remote_user};
  }
  $self->{_remote_user};

Makefile.PL  view on Meta::CPAN

sub home {
  my $self = shift;

  return $self->{_home} if exists $self->{_home};
  my $user = $ENV{'USER'} || $ENV{'LOGNAME'} || getpwuid($<);
  my $home = (getpwnam($user))[7];
  $self->{_home} = $home;
}

sub base {

 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_quantifier_value|5.033006||Viu
get_re_arg|||xciu
get_re_gclass_nonbitmap_data|5.031011||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

build/lib/src/dotdir.c  view on Meta::CPAN

            return -1;
        }

        struct passwd pwd;
        struct passwd *result = NULL;
        int err = getpwuid_r(geteuid(), &pwd, pwbuf, pwbufsize, &result);
        if (err != 0)
        {
            errno = err;
            goto cleanup;
        }

 view release on metacpan or  search on metacpan

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

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/Net/Amazon/MechanicalTurk/OSUtil.pm  view on Meta::CPAN

sub homeDirectory {
    my $homeDir;
    eval {
        # Looks up home directory for effective user id
        $homeDir = [getpwuid($>)]->[7];
    };
    if ($@) {
        # getpwuid doesn't seem to work on ActivePerl
        # Try using the Windows API to get the home directory.
        eval {
            require Win32;
            $homeDir = Win32::GetFolderPath(Win32::CSIDL_PROFILE());
        };

 view release on metacpan or  search on metacpan

lib/Net/Async/IRC.pm  view on Meta::CPAN

{
   my $self = shift;
   $self->SUPER::_init( @_ );

   $self->{user} = $ENV{LOGNAME} ||
      ( HAVE_MSWIN32 ? Win32::LoginName() : getpwuid($>) );

   our $VERSION;
   $self->{realname} = "Net::Async::IRC client $VERSION";
}

lib/Net/Async/IRC.pm  view on Meta::CPAN

=item realname => STRING

Connection details. See also C<connect>, C<login>.

If C<user> is not supplied, it will default to either C<$ENV{LOGNAME}> or the
current user's name as supplied by C<getpwuid()> or C<Win32::LoginName()>.

If unconnected, changing these properties will set the default values to use
when logging in.

If logged in, changing the C<nick> property is equivalent to calling

 view release on metacpan or  search on metacpan

lib/Net/Connection.pm  view on Meta::CPAN

	if (
		$args{'uid_resolve'} &&
		defined( $self->{'uid'} )
		){
		eval{
			my @pwline=getpwuid( $self->{'uid'} );
			if ( defined( $pwline[0] ) ){
				$self->{'username'}=$pwline[0];
			}
		}
	}elsif (

 view release on metacpan or  search on metacpan

_Deparsed_XSubs.pm  view on Meta::CPAN

  sub getpayload;
  sub getpgrp;
  sub getpid;
  sub getppid;
  sub getpwnam;
  sub getpwuid;
  sub gets;
  sub getuid;
  sub gmtime;
  sub hypot;
  sub ilogb;

 view release on metacpan or  search on metacpan

lib/Net/DNS/Create/Route53.pm  view on Meta::CPAN

    for my $domain (@domain) {
        my $zone = hosted_zone(full_host($domain->{name}));
        if (!$zone && scalar @{$domain->{entries}}) {
            my $hostedzone = Net::Amazon::Route53::HostedZone->new(route53 => r53,
                                                                   name => $domain->{name},
                                                                   comment=>(getpwuid($<))[0].'/'.__PACKAGE__,
                                                                   callerreference=>__PACKAGE__."-".localtime."-".($counter++));
            print "New Zone: $domain->{name}...";
            $hostedzone->create();
            $zone = $hostedzone;
            print "Created. Nameservers:\n".join('', map { "  $_\n" } @{$zone->nameservers});

 view release on metacpan or  search on metacpan

lib/Net/Delicious.pm  view on Meta::CPAN

                if ($user_cfg) {
                        $self->{'__updates'} = $user_cfg;
                }
                
                elsif (-d (getpwuid($EUID))[7]) {
                        $self->{'__updates'} = (getpwuid($EUID))[7];
                }
                
        
                else {
                        $self->{'__updates'} = File::Temp::tempdir();

 view release on metacpan or  search on metacpan

dropbear/cli-kex.c  view on Meta::CPAN

	
	homedir = getenv("HOME");

	if (!homedir) {
		struct passwd * pw = NULL;
		pw = getpwuid(getuid());
		if (pw) {
			homedir = pw->pw_dir;
		}
	}

 view release on metacpan or  search on metacpan

t/05-api_key.t  view on Meta::CPAN

    like $@, qr/doesn't exist/, "...and error message is sane";
}

# api_key_set() croak if can't write file (only run if not root user)
if ($^O !~ /win/i) {
    if (getpwuid($<) ne 'root') {
        open my $fh, '>', $file or die "Can't open $file for creation: $!";
        chmod(0400, $file) or die "Can't set permissions on $file: $!";
        close $fh;

        is eval {

 view release on metacpan or  search on metacpan

lib/Net/FTPServer/Full/DirHandle.pm  view on Meta::CPAN

    # handle, then $dev will be undefined. Return dummy status
    # information.
    return ("d", 0000, 1, "-", "-", 0, 0) unless defined $dev;

    # Generate printable user/group.
    my $user = getpwuid ($uid) || "-";
    my $group = getgrgid ($gid) || "-";

    # Permissions from mode.
    my $perms = $mode & 0777;

 view release on metacpan or  search on metacpan

lib/Net/Flickr/Backup.pm  view on Meta::CPAN

  if (! $triples) {
    return undef;
  }

  my $user_id     = (getpwuid($>))[0];
  my $os_uri      = sprintf("x-urn:%s:",$^O);
  my $user_uri    = $os_uri."user";

  my $creator_uri = sprintf("x-urn:%s#%s", $self->hostname_short, $user_id);

lib/Net/Flickr/Backup.pm  view on Meta::CPAN

    push @$triples, [$uri, $self->uri_shortform("rdfs", "seeAlso"), $photo];
    push @$triples, [$uri, $self->uri_shortform("dc", "creator"), $creator_uri];
    push @$triples, [$uri, $self->uri_shortform("dcterms", "created"), _w3cdtf() ];
  }

  push @$triples, [$creator_uri, $self->uri_shortform("foaf", "name"), (getpwuid($>))[6]];
  push @$triples, [$creator_uri, $self->uri_shortform("foaf", "nick"), $user_id];
  push @$triples, [$creator_uri, $self->uri_shortform("rdf", "type"), "computer:user"];

  return $triples;
}

 view release on metacpan or  search on metacpan

Connection/Connection.pm  view on Meta::CPAN

	# Set client_user
	if ($opt->{client_user}) {
		$self->setClientUser ($opt->{client_user});
	} else {
		$self->setClientUser (scalar (getpwuid ($>)));
	}

	# Set freedb_host
	if ($opt->{freedb_host}) {
		$self->setFreeDBHost ($opt->{freedb_host});

Connection/Connection.pm  view on Meta::CPAN

The hostname of the client. Defaults to C<&Sys::Hostname::hostname ()>.

=item client_user

The user of the client. Defaults to C<scalar (getpwuid ($E<gt>))>;

=item freedb_host

The FreeDB/CDDB host. Defaults to C<freedb.freedb.org>.