Result:
found more than 693 distributions - search limited to the first 2001 files matching your query
( run in 2.194 )
Compress-Bzip2
view release on metacpan or search on metacpan
lib/Compress/Bzip2.pm view on Meta::CPAN
return undef;
}
if ( !chown @$statsnap[4,5], $filename ) {
bz_seterror( &BZ_IO_ERROR,
"chown " . join(':', ( getpwuid($statsnap->[4]) )[0], ( getgrgid($statsnap->[5]) )[0]) .
" $filename failed: $!" );
return 0;
}
return 1;
Compress-Deflate7
view release on metacpan or search on metacpan
7zip/CPP/7zip/Archive/CpioHandler.cpp view on Meta::CPAN
unsigned short c_magic;
short c_dev;
unsigned short c_ino;
unsigned short c_mode;
unsigned short c_uid;
unsigned short c_gid;
unsigned short c_nlink;
short c_rdev;
unsigned short c_mtimes[2];
unsigned short c_namesize;
unsigned short c_filesizes[2];
Compress-Raw-Bzip2
view release on metacpan or search on metacpan
bzip2-src/bzip2.patch view on Meta::CPAN
+++ b/bzip2.c
@@ -1070,7 +1070,11 @@ void applySavedFileAttrToOutputFile ( IntNative fd )
retVal = fchmod ( fd, fileMetaInfo.st_mode );
ERROR_IF_NOT_ZERO ( retVal );
- (void) fchown ( fd, fileMetaInfo.st_uid, fileMetaInfo.st_gid );
+#if __GNUC__
+ int unused __attribute__((unused));
+ unused =
+#endif
+ fchown ( fd, fileMetaInfo.st_uid, fileMetaInfo.st_gid );
/* chown() will in many cases return with EPERM, which can
be safely ignored.
*/
diff --git a/bzip2recover.c b/bzip2recover.c
index a8131e0..0925048 100644
Compress-Raw-Lzma
view release on metacpan or search on metacpan
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
get_debug_opts|5.008001||Viu
get_deprecated_property_msg|5.031011||cVniu
getegid|5.005000||Viu
getenv|5.005000||Viu
getenv_len|5.006000||Viu
GETENV_LOCK|5.033005||Viu
GETENV_PRESERVES_OTHER_THREAD|5.033005|5.033005|Vn
GETENV_UNLOCK|5.033005||Viu
geteuid|5.005000||Viu
getgid|5.005000||Viu
getgrent|5.009000||Viu
GETGRENT_R_HAS_BUFFER|5.008000||Viu
GETGRENT_R_HAS_FPTR|5.008000||Viu
GETGRENT_R_HAS_PTR|5.008000||Viu
GETGRENT_R_PROTO|5.008000|5.008000|Vn
getgrgid|5.009000||Viu
GETGRGID_R_HAS_BUFFER|5.008000||Viu
GETGRGID_R_HAS_PTR|5.008000||Viu
GETGRGID_R_PROTO|5.008000|5.008000|Vn
getgrnam|5.009000||Viu
GETGRNAM_R_HAS_BUFFER|5.008000||Viu
KEY_format|5.003007||Viu
KEY_formline|5.003007||Viu
KEY_ge|5.003007||Viu
KEY_getc|5.003007||Viu
KEY_getgrent|5.003007||Viu
KEY_getgrgid|5.003007||Viu
KEY_getgrnam|5.003007||Viu
KEY_gethostbyaddr|5.003007||Viu
KEY_gethostbyname|5.003007||Viu
KEY_gethostent|5.003007||Viu
KEY_getlogin|5.003007||Viu
Perl_pp_ftfile|5.013009||Viu
Perl_pp_ftmtime|5.013009||Viu
Perl_pp_ftpipe|5.013009||Viu
Perl_pp_ftrexec|5.013009||Viu
Perl_pp_ftrwrite|5.013009||Viu
Perl_pp_ftsgid|5.013009||Viu
Perl_pp_ftsize|5.013009||Viu
Perl_pp_ftsock|5.013009||Viu
Perl_pp_ftsuid|5.013009||Viu
Perl_pp_ftsvtx|5.013009||Viu
Perl_pp_ftzero|5.013009||Viu
Perl_pp_getpeername|5.013009||Viu
Perl_pp_getsockname|5.013009||Viu
Perl_pp_ggrgid|5.013009||Viu
Perl_pp_ggrnam|5.013009||Viu
Perl_pp_ghbyaddr|5.013009||Viu
Perl_pp_ghbyname|5.013009||Viu
Perl_pp_gnbyaddr|5.013009||Viu
Perl_pp_gnbyname|5.013009||Viu
PerlProc_execv|5.005000||Viu
PerlProc_execvp|5.005000||Viu
PerlProc__exit|5.005000||Viu
PerlProc_exit|5.005000||Viu
PerlProc_fork|5.006000||Viu
PerlProc_getegid|5.005000||Viu
PerlProc_geteuid|5.005000||Viu
PerlProc_getgid|5.005000||Viu
PerlProc_getlogin|5.005000||Viu
PerlProc_GetOSError|5.006000||Viu
PerlProc_getpid|5.006000||Viu
PerlProc_gettimeofday|5.008000||Viu
PerlProc_getuid|5.005000||Viu
PerlProc_pclose|5.005000||Viu
PerlProc_pipe|5.005000||Viu
PerlProc_pipe_cloexec|5.027008||Viu
PerlProc_popen|5.005000||Viu
PerlProc_popen_list|5.007001||Viu
PerlProc_setgid|5.005000||Viu
PerlProc_setjmp|5.005000||Viu
PerlProc_setuid|5.005000||Viu
PerlProc_signal|5.005000||Viu
PerlProc_sleep|5.005000||Viu
PerlProc_spawnvp|5.008000||Viu
PL_defgv|5.004005|5.003007|p
PL_def_layerlist|5.007003||Viu
PL_defoutgv|5.005000||Viu
PL_defstash|5.005000||Viu
PL_delaymagic|5.005000||Viu
PL_delaymagic_egid|5.015008||Viu
PL_delaymagic_euid|5.015008||Viu
PL_delaymagic_gid|5.015008||Viu
PL_delaymagic_uid|5.015008||Viu
PL_destroyhook|5.010000||Viu
PL_diehook|5.005000|5.003007|poVnu
PL_Dir|5.006000||Viu
PL_dirty|5.005000|5.003007|poVnu
setfd_cloexec|5.027008||Vniu
setfd_cloexec_for_nonsysfd|5.027008||Viu
setfd_cloexec_or_inhexec_by_sysfdness|5.027008||Viu
setfd_inhexec|5.027008||Vniu
setfd_inhexec_for_sysfd|5.027008||Viu
setgid|5.005000||Viu
setgrent|5.009000||Viu
SETGRENT_R_HAS_FPTR|5.008000||Viu
SETGRENT_R_PROTO|5.008000|5.008000|Vn
sethostent|5.005000||Viu
SETHOSTENT_R_PROTO|5.008000|5.008000|Vn
SETPROTOENT_R_PROTO|5.008000|5.008000|Vn
setpwent|5.009000||Viu
SETPWENT_R_HAS_FPTR|5.008000||Viu
SETPWENT_R_PROTO|5.008000|5.008000|Vn
set_regex_pv|5.029004||Viu
setregid|5.003007||Viu
setreuid|5.003007||Viu
SETs|5.003007||Viu
setservent|5.005000||Viu
SETSERVENT_R_PROTO|5.008000|5.008000|Vn
setsockopt|5.005000||Viu
SvSCREAM|5.003007||Viu
SvSCREAM_off|5.003007||Viu
SvSCREAM_on|5.003007||Viu
sv_setbool|5.035004|5.035004|
sv_setbool_mg|5.035004|5.035004|
sv_setgid|5.019001||Viu
sv_sethek|5.015004||cViu
sv_setiv|5.003007|5.003007|
sv_setiv_mg|5.004005|5.003007|p
SvSETMAGIC|5.003007|5.003007|
SvSetMagicSV|5.004000|5.004000|
Compress-Raw-Zlib
view release on metacpan or search on metacpan
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
get_debug_opts|5.008001||Viu
get_deprecated_property_msg|5.031011||cVniu
getegid|5.005000||Viu
getenv|5.005000||Viu
getenv_len|5.006000||Viu
GETENV_LOCK|5.033005||Viu
GETENV_PRESERVES_OTHER_THREAD|5.033005|5.033005|Vn
GETENV_UNLOCK|5.033005||Viu
geteuid|5.005000||Viu
getgid|5.005000||Viu
getgrent|5.009000||Viu
GETGRENT_R_HAS_BUFFER|5.008000||Viu
GETGRENT_R_HAS_FPTR|5.008000||Viu
GETGRENT_R_HAS_PTR|5.008000||Viu
GETGRENT_R_PROTO|5.008000|5.008000|Vn
getgrgid|5.009000||Viu
GETGRGID_R_HAS_BUFFER|5.008000||Viu
GETGRGID_R_HAS_PTR|5.008000||Viu
GETGRGID_R_PROTO|5.008000|5.008000|Vn
getgrnam|5.009000||Viu
GETGRNAM_R_HAS_BUFFER|5.008000||Viu
KEY_format|5.003007||Viu
KEY_formline|5.003007||Viu
KEY_ge|5.003007||Viu
KEY_getc|5.003007||Viu
KEY_getgrent|5.003007||Viu
KEY_getgrgid|5.003007||Viu
KEY_getgrnam|5.003007||Viu
KEY_gethostbyaddr|5.003007||Viu
KEY_gethostbyname|5.003007||Viu
KEY_gethostent|5.003007||Viu
KEY_getlogin|5.003007||Viu
Perl_pp_ftfile|5.013009||Viu
Perl_pp_ftmtime|5.013009||Viu
Perl_pp_ftpipe|5.013009||Viu
Perl_pp_ftrexec|5.013009||Viu
Perl_pp_ftrwrite|5.013009||Viu
Perl_pp_ftsgid|5.013009||Viu
Perl_pp_ftsize|5.013009||Viu
Perl_pp_ftsock|5.013009||Viu
Perl_pp_ftsuid|5.013009||Viu
Perl_pp_ftsvtx|5.013009||Viu
Perl_pp_ftzero|5.013009||Viu
Perl_pp_getpeername|5.013009||Viu
Perl_pp_getsockname|5.013009||Viu
Perl_pp_ggrgid|5.013009||Viu
Perl_pp_ggrnam|5.013009||Viu
Perl_pp_ghbyaddr|5.013009||Viu
Perl_pp_ghbyname|5.013009||Viu
Perl_pp_gnbyaddr|5.013009||Viu
Perl_pp_gnbyname|5.013009||Viu
PerlProc_execv|5.005000||Viu
PerlProc_execvp|5.005000||Viu
PerlProc__exit|5.005000||Viu
PerlProc_exit|5.005000||Viu
PerlProc_fork|5.006000||Viu
PerlProc_getegid|5.005000||Viu
PerlProc_geteuid|5.005000||Viu
PerlProc_getgid|5.005000||Viu
PerlProc_getlogin|5.005000||Viu
PerlProc_GetOSError|5.006000||Viu
PerlProc_getpid|5.006000||Viu
PerlProc_gettimeofday|5.008000||Viu
PerlProc_getuid|5.005000||Viu
PerlProc_pclose|5.005000||Viu
PerlProc_pipe|5.005000||Viu
PerlProc_pipe_cloexec|5.027008||Viu
PerlProc_popen|5.005000||Viu
PerlProc_popen_list|5.007001||Viu
PerlProc_setgid|5.005000||Viu
PerlProc_setjmp|5.005000||Viu
PerlProc_setuid|5.005000||Viu
PerlProc_signal|5.005000||Viu
PerlProc_sleep|5.005000||Viu
PerlProc_spawnvp|5.008000||Viu
PL_defgv|5.004005|5.003007|p
PL_def_layerlist|5.007003||Viu
PL_defoutgv|5.005000||Viu
PL_defstash|5.005000||Viu
PL_delaymagic|5.005000||Viu
PL_delaymagic_egid|5.015008||Viu
PL_delaymagic_euid|5.015008||Viu
PL_delaymagic_gid|5.015008||Viu
PL_delaymagic_uid|5.015008||Viu
PL_destroyhook|5.010000||Viu
PL_diehook|5.005000|5.003007|poVnu
PL_Dir|5.006000||Viu
PL_dirty|5.005000|5.003007|poVnu
setfd_cloexec|5.027008||Vniu
setfd_cloexec_for_nonsysfd|5.027008||Viu
setfd_cloexec_or_inhexec_by_sysfdness|5.027008||Viu
setfd_inhexec|5.027008||Vniu
setfd_inhexec_for_sysfd|5.027008||Viu
setgid|5.005000||Viu
setgrent|5.009000||Viu
SETGRENT_R_HAS_FPTR|5.008000||Viu
SETGRENT_R_PROTO|5.008000|5.008000|Vn
sethostent|5.005000||Viu
SETHOSTENT_R_PROTO|5.008000|5.008000|Vn
SETPROTOENT_R_PROTO|5.008000|5.008000|Vn
setpwent|5.009000||Viu
SETPWENT_R_HAS_FPTR|5.008000||Viu
SETPWENT_R_PROTO|5.008000|5.008000|Vn
set_regex_pv|5.029004||Viu
setregid|5.003007||Viu
setreuid|5.003007||Viu
SETs|5.003007||Viu
setservent|5.005000||Viu
SETSERVENT_R_PROTO|5.008000|5.008000|Vn
setsockopt|5.005000||Viu
SvSCREAM|5.003007||Viu
SvSCREAM_off|5.003007||Viu
SvSCREAM_on|5.003007||Viu
sv_setbool|5.035004|5.035004|
sv_setbool_mg|5.035004|5.035004|
sv_setgid|5.019001||Viu
sv_sethek|5.015004||cViu
sv_setiv|5.003007|5.003007|
sv_setiv_mg|5.004005|5.003007|p
SvSETMAGIC|5.003007|5.003007|
SvSetMagicSV|5.004000|5.004000|
Compress-Stream-Zstd
view release on metacpan or search on metacpan
ext/zstd/programs/util.c view on Meta::CPAN
*
* "Change the group first, then the permissions, then the owner.
* That way, the permissions will be correct on systems that allow
* users to give away files, without introducing a security hole.
* Security depends on permissions not containing the setuid or
* setgid bits." */
#if !defined(_WIN32)
#ifdef ZSTD_HAVE_FCHOWN
if (fd >= 0) {
res += fchown(fd, -1, statbuf->st_gid); /* Apply group ownership */
} else
#endif
{
res += chown(filename, -1, statbuf->st_gid); /* Apply group ownership */
}
#endif
res += UTIL_fchmod(fd, filename, &curStatBuf, statbuf->st_mode & 0777); /* Copy file permissions */
Compress-Zstd
view release on metacpan or search on metacpan
ext/zstd/programs/util.c view on Meta::CPAN
timebuf.actime = time(NULL);
timebuf.modtime = statbuf->st_mtime;
res += utime(filename, &timebuf); /* set access and modification times */
#if !defined(_WIN32)
res += chown(filename, statbuf->st_uid, statbuf->st_gid); /* Copy ownership */
#endif
res += chmod(filename, statbuf->st_mode & 07777); /* Copy file permissions */
errno = 0;
Config-ApacheFormat
view release on metacpan or search on metacpan
t/httpd.conf view on Meta::CPAN
#
# User/Group: The name (or #number) of the user/group to run httpd as.
# . On SCO (ODT 3) use "User nouser" and "Group nogroup".
# . On HPUX you may not be able to use shared memory as nobody, and the
# suggested workaround is to create a user www and use that user.
# NOTE that some kernels refuse to setgid(Group) or semctl(IPC_SET)
# when the value of (unsigned)Group is above 60000;
# don't use Group nobody on these systems!
#
User nobody
Group nogroup
Config-Augeas-Exporter
view release on metacpan or search on metacpan
lib/Config/Augeas/Exporter.pm view on Meta::CPAN
my ($self, $path) = @_;
my $aug_root = $self->{aug_root};
my %stat;
($stat{dev}, $stat{ino}, $stat{mode}, $stat{nlink},
$stat{uid}, $stat{gid}, $stat{rdev}, $stat{size},
$stat{atime}, $stat{mtime}, $stat{ctime},
$stat{blksize}, $stat{blocks}) = stat("${aug_root}${path}");
my $stat_elem = XML::LibXML::Element->new('stat');
Config-Cfe
view release on metacpan or search on metacpan
# &lock($file);
if ($exist_flag && !-e $file) {
&new_file($file);
$par->{'mode'} = 0666 & umask;
$par->{'uid'} = $>;
$par->{'gid'} = $);
&verbose('read_file', sprintf("mode=0%o, uid=%d, gid=%d",
$par->{'mode'}, $par->{'uid'}, $par->{'gid'}));
return;
}
&get_filemode($file);
$par->{'file_name'} = $file;
key name default
--------------------------------------
mode filemode 0666 & umask.
uid numeric userid 0
gid numeric groupid 0
=cut
sub write_file {
my (%tpar) = @_;
return unless $par->{'edit'};
$tpar{'mode'} = $par->{'mode'} unless $tpar{'mode'};
$tpar{'uid'} = $par->{'uid'} unless $tpar{'uid'};
$tpar{'gid'} = $par->{'gid'} unless $tpar{'gid'};
croak "No filename!" unless $file = $par->{'file_name'};
($tmp = $file) =~ s/$/.new/;
open(FILEO, ">$tmp") || croak "can't create $tmp:$!";
chmod $tpar{'mode'}, $tmp;
chown $tpar{'uid'}, $tpar{'gid'}, $tmp;
for my $line (@{$par->{'lines'}}) {
print FILEO "$line\n";
$fsize += length($line)+1;
}
close(FILEO);
$par->{'lines'} = [];
$par->{'cur_line'} = 0;
$par->{'edit'} = 0;
$par->{'mode'} = 0666 & umask;
$par->{'uid'} = 0;
$par->{'gid'} = 0;
&set_comment;
}
sub get_filemode {
my ($f) = @_;
($par->{'mode'}, $par->{'uid'}, $par->{'gid'}) = (stat($f))[2,4,5];
$par->{'mode'} &= 0777;
&verbose('get_filemode',
sprintf("mode=0%o, uid=%d, gid=%d", $par->{'mode'},
$par->{'uid'}, $par->{'gid'}));
}
sub BEGIN {
my (%type, $uname, $r, $ostype, $version, $mach_type);
Config-General
view release on metacpan or search on metacpan
- here-doc parsing bug fixed, which ignored the
-SplitPolicy settings completely, now it is aware
of the split policy
2.12 - fixed cpan bugid #1768, stuff inside a hash given
by the -DefaultConfig parameter was ignored by
the new interpolation code, this has been fixed.
- fixed another bug in the new interpolation code,
which made variable global, the variable scope
a key/value pair like this: "Include" => "/etc/grs.cfg",
which was then saved as "Include /etc/grs.cfg", the
parser returned " /etc/grs.cfg" which, of course, does
not exists. odd...
2.07 - fixed cpan bugid #1351, SaveConfig contained a deprecated
function call which caused the module to croak.
- added feature request, if in extended mode (OOP turned
on with -ExtendedAccess => 1 access to non-existent keys
caused a croak. While this is still the default behavior
it is now possible to turn this off using -StrictObjects => 0.
Config-Generator
view release on metacpan or search on metacpan
lib/Config/Generator/File.pm view on Meta::CPAN
chmod($mode, $path)
or dief("cannot chmod(%04o, %s): %s", $mode, $path, $!);
}
sub _chown ($$$) {
my($uid, $gid, $path) = @_;
chown($uid, $gid, $path)
or dief("cannot chown(%d, %d, %s): %s", $uid, $gid, $path, $!);
}
sub _symlink ($$) {
my($target, $path) = @_;
lib/Config/Generator/File.pm view on Meta::CPAN
{ type => SCALAR },
);
sub ensure_group ($$) {
my($path, $group) = validate_pos(@_, @ensure_group_options);
my($rpath, $what, $gid, @stat);
$rpath = $RootDir . $path;
log_debug("checking group %s", $rpath);
dief("not a registered file or directory: %s", $path)
unless $_Registered{$path}
lib/Config/Generator/File.pm view on Meta::CPAN
# we do not change the group if we are not root
# (and we stop immediately since the group may not even exist)
_printf2("would have checked %s (but we are not root)\n", $what);
return;
}
$gid = getgrnam($group);
dief("unknown group: %s", $group) unless defined($gid);
@stat = stat($rpath);
unless (@stat) {
dief("cannot stat(%s): %s", $rpath, $!)
unless $NoAction and $! == ENOENT;
_printf2("would have checked %s (but it does no exist yet)\n", $what);
return;
}
if ($stat[ST_GID] == $gid) {
_printf2("checked %s\n", $what);
} else {
if ($NoAction) {
_printf1("would have changed %s\n", $what);
} else {
_chown($stat[ST_UID], $gid, $rpath);
_printf1("changed %s\n", $what);
}
}
}
Config-HAProxy
view release on metacpan or search on metacpan
lib/Config/HAProxy.pm view on Meta::CPAN
rename($tempfile, $self->filename)
or croak "can't rename $tempfile to ".$self->tempfile.": $!";
# This will succeed: we've created the file, so we're owning it.
chmod $sb->mode & 0777, $self->filename;
# This will fail unless we are root, let it be so.
chown $sb->uid, $sb->gid, $self->filename;
$self->tree->clear_dirty;
return 1;
}
Config-Model-Systemd
view release on metacpan or search on metacpan
lib/Config/Model/models/Systemd/Common/Exec.pl view on Meta::CPAN
},
'NoNewPrivileges',
{
'description' => 'Takes a boolean argument. If true, ensures that the service process and all its
children can never gain new privileges through execve() (e.g. via setuid or
setgid bits, or filesystem capabilities). This is the simplest and most effective way to ensure that
a process and its children can never elevate privileges again. Defaults to false. In case the service
will be run in a new mount namespace anyway and SELinux is disabled, all file systems are mounted with
C<MS_NOSUID> flag. Also see L<No New Privileges Flag|https://docs.kernel.org/userspace-api/no_new_privs.html>.
Note that this setting only has an effect on the unit\'s processes themselves (or any processes
lib/Config/Model/models/Systemd/Common/Exec.pl view on Meta::CPAN
(L<capabilities(7)>)\@processProcess control, execution, namespacing operations (L<clone(2)>, L<kill(2)>,
L<namespaces(7)>, \x{2026})\@raw-ioRaw I/O port access (L<ioperm(2)>, L<iopl(2)>, pciconfig_read(), \x{2026})\@rebootSystem calls for
rebooting and reboot preparation (L<reboot(2)>, kexec(), \x{2026})\@resourcesSystem calls for changing resource limits, memory
and scheduling parameters (L<setrlimit(2)>, L<setpriority(2)>, \x{2026})\@sandboxSystem calls for sandboxing programs
(L<seccomp(2)>, Landlock system calls, \x{2026})\@setuidSystem calls for changing user ID and group ID credentials,
(L<setuid(2)>, L<setgid(2)>, L<setresuid(2)>, \x{2026})\@signalSystem calls for manipulating and handling process signals
(L<signal(2)>, L<sigprocmask(2)>, \x{2026})\@swapSystem calls for enabling/disabling swap devices (L<swapon(2)>,
L<swapoff(2)>)\@syncSynchronizing files and memory to disk (L<fsync(2)>, L<msync(2)>, and related calls)\@system-serviceA
reasonable set of system calls used by common system services, excluding any special purpose calls. This is the
recommended starting point for allow-listing system calls for system services, as it contains what is typically needed
by system services, but excludes overly specific interfaces. For example, the following APIs are excluded: C<\@clock>,
lib/Config/Model/models/Systemd/Common/Exec.pl view on Meta::CPAN
Note that environment variables are not suitable for passing secrets (such as passwords, key
material, \x{2026}) to service processes. Environment variables set for a unit are exposed to unprivileged
clients via D-Bus IPC, and generally not understood as being data that requires protection. Moreover,
environment variables are propagated down the process tree, including across security boundaries
(such as setuid/setgid executables), and hence might leak to processes that should not have access to
the secret data. Use C<LoadCredential>, C<LoadCredentialEncrypted>
or C<SetCredentialEncrypted> (see below) to pass data to unit processes
securely.",
'type' => 'list'
},
Config-Model-Xorg
view release on metacpan or search on metacpan
fallback_models/KeyboardOptRules.pl view on Meta::CPAN
'airkey' => 'Acer AirKey V',
'logicdp' => 'Logitech Cordless Desktop Pro',
'sk6200' => 'SK-6200',
'sk7100' => 'SK-7100',
'microsoftmult' => 'Microsoft Wireless Multimedia Keyboard 1.0A',
'logidak' => 'Logitech Deluxe Access Keyboard',
'logicdo' => 'Logitech Cordless Desktop Optical',
'armada' => 'Laptop/notebook Compaq (eg. Armada) Laptop Keyboard',
'hp2501' => 'Hewlett-Packard SK-2501 Multimedia Keyboard',
'btc9000' => 'BTC 9000',
'logicdit' => 'Logitech Cordless Desktop iTouch',
fallback_models/KeyboardOptRules.pl view on Meta::CPAN
'logicdpa',
'logicdpa2',
'logicdo',
'logicfn',
'logicdn',
'logidak',
'logiitc',
'logiik',
'itouch',
'logiitc',
'logiik',
Config-Model
view release on metacpan or search on metacpan
lib/Config/Model/FuseUI.pm view on Meta::CPAN
}
else {
$mode = S_IFDIR | oct(755);
}
my ( $dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize ) =
( 0, 0, 0, 1, $EGID, $EUID, 1, 1024 );
my ( $atime, $ctime, $mtime );
$atime = $ctime = $mtime = time;
# 2 possible types of return values:
#return -ENOENT(); # or any other error you care to
#print(join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n");
my @r = (
$dev, $ino, $mode, $nlink, $uid, $gid, $rdev,
$size, $atime, $mtime, $ctime, $blksize, $blocks
);
$logger->trace( "FuseUI getattr returns '" . join( "','", @r ) . "'" );
Config-Parser
view release on metacpan or search on metacpan
lib/Config/Parser/Ini.pm view on Meta::CPAN
[core]
root = STRING :default /
umask = OCTAL
[user]
uid = NUMBER
gid = NUMBER
This code specifies that the configuration file can contain at most two
sections: C<[core]> and C<[user]>. Two keywords are defined within each
section. Data types are specified for each keyword, so the parser will
bail out in case of type mismatches. If the B<core.root> setting is not
lib/Config/Parser/Ini.pm view on Meta::CPAN
[core]
root = STRING :default /
umask = OCTAL
[user]
uid = NUMBER
gid = NUMBER
Then, to parse the configuration file, it will suffice to do:
$cf = my App::MyConf(filename => "config.ini");
lib/Config/Parser/Ini.pm view on Meta::CPAN
[core]
root = STRING :default / :check=dir_exists
umask = OCTAL
[user]
uid = NUMBER
gid = NUMBER
=head1 CONSTRUCTOR
$cfg = new Config::Parser::Ini(%opts)
Config-Proxy
view release on metacpan or search on metacpan
lib/Config/Proxy/Base.pm view on Meta::CPAN
or croak "can't rename $tempfile to ".$self->tempfile.": $!";
# This will succeed: we've created the file, so we're owning it.
chmod $sb->mode & 0777, $self->filename;
# This will fail unless we are root, let it be so.
chown $sb->uid, $sb->gid, $self->filename;
$self->tree->clear_dirty;
return 1;
}
Config-Scoped
view release on metacpan or search on metacpan
lib/Config/Scoped.pm view on Meta::CPAN
-line => $thisparser->_get_line(%args),
-text => "'$args{file}' can't stat cfg file/handle: $!"
)
unless stat $fh;
my ( $dev, $ino, $mode, $nlink, $uid, $gid ) = stat(_);
# owner is not root and not real uid
Config::Scoped::Error::Validate::Permissions->throw(
-file => $thisparser->_get_file(%args),
-line => $thisparser->_get_line(%args),
Connector
view release on metacpan or search on metacpan
lib/Connector/Builtin/File/Path.pm view on Meta::CPAN
if ($mode eq 'silent' && -f $filename) {
return;
}
my $uid = -1;
my $gid;
if (my $user = $self->user()) {
$uid = getpwnam($user) or die "$user not known";
$gid = -1;
}
if (my $group = $self->group()) {
$gid = getgrnam($group) or die "$group not known";
}
if ($mode eq 'append' && -f $filename) {
open (FILE, ">>",$filename) || die "Unable to open file for appending";
} else {
lib/Connector/Builtin/File/Path.pm view on Meta::CPAN
} else {
die "Given mode string '$filemode' is not valid";
}
}
if ($gid) {
chown ($uid, $gid, $filename) || die "Unable to chown $filename to $uid/$gid";
}
#FIXME - some error handling might not hurt
return 1;
Container-Buildah
view release on metacpan or search on metacpan
lib/Container/Buildah/Stage.pm view on Meta::CPAN
# create groups and users before import
my $user = $self->get_user;
if (defined $self->get_user) {
my $user_name = $user;
my ($uid, $group_name, $gid);
if ($user =~ /:/x) {
($user_name, $group_name) = split /:/x, $user;
if ($user_name =~ /=/x) {
($user_name, $uid) = split /=/x, $user_name;
}
if ($group_name =~ /=/x) {
($group_name, $gid) = split /=/x, $group_name;
}
}
# TODO: find distro-independent approach instead of assuming Linux Fileystem Standard /usr/sbin paths
if (defined $group_name) {
$self->run(["/usr/sbin/groupadd", ((defined $gid) ? ("--gid=$gid") : ()), $group_name]);
}
my $user_home = $self->get_user_home;
$self->run(
["/usr/sbin/useradd", ((defined $uid) ? ("--uid=$uid") : ()),
((defined $group_name) ? ("--gid=$group_name") : ()),
((defined $user_home) ? ("--home-dir=$user_home") : ()), $user_name],
);
}
# import tarballs from each stage we depend upon
Container-Builder
view release on metacpan or search on metacpan
lib/Container/Builder.pm view on Meta::CPAN
}
push @layers, Container::Builder::Layer::Tar->new(comment => $local_dirpath, data => $tar->get_tar());
}
# Create a layer that creates a directory in the container
method create_directory($path, $mode, $uid, $gid) {
my %dir = (path => $path, mode => $mode, uid => $uid, gid => $gid);
push @dirs, \%dir;
}
# Create a layer that adds a user to the container
# this is a wrapper to make a change to passwd?
method add_user($name, $uid, $main_gid, $shell, $homedir) {
$name =~ s/[^a-z]//ig;
$uid =~ s/[^\d]//g;
$main_gid =~ s/[^\d]//g;
die "Conflicting user" if grep { $_->{name} eq $name || $_->{uid} == $uid || $_->{gid} == $main_gid } @users;
my %new_user = (name => $name, uid => $uid, gid => $main_gid, shell => $shell, homedir => $homedir);
push @users, \%new_user;
}
# Create a layer that adds a group to the container
method add_group($name, $gid) {
$name =~ s/[^a-z]//ig;
$gid =~ s/[^\d]//g;
die "Conflicting with existing group\n" if grep {$_->{name} eq $name || $_->{gid} == $gid } @groups;
my %new_group = (name => $name, gid => $gid);
push @groups, \%new_group;
}
# similar to USER in Dockerfile
method runas_user($user) {
lib/Container/Builder.pm view on Meta::CPAN
# Make 1 layer with all the base files
my $tar = Container::Builder::Tar->new();
foreach(@dirs) {
$tar->add_dir($_->{path}, $_->{mode}, $_->{uid}, $_->{gid});
}
# Generate /etc/group file
my $etcgroup = '';
map { $etcgroup .= $_->{name} . ':x:' . $_->{gid} . ':' . $/ } @groups;
$tar->add_file('/etc/group', $etcgroup, 0644, 0, 0);
# Generate /etc/passwd file
my $etcpasswd = '';
# example line: root:x:0:0:root:/root:/bin/bash
map { $etcpasswd .= $_->{name} . ':x:' . $_->{uid} . ':' . $_->{gid} . ':' . $_->{name} . ':' . $_->{homedir} . ':' . $_->{shell} . $/ } @users;
$tar->add_file('/etc/passwd', $etcpasswd, 0644, 0, 0);
my $tar_content = $tar->get_tar();
unshift @layers, Container::Builder::Layer::Tar->new(comment => 'Base files', data => $tar_content);
lib/Container/Builder.pm view on Meta::CPAN
If C<$location_in_ctr> has a slash at the end, the last directory of C<$local_dirpath> will become a subdirectory of the path C<$location_in_ctr>. Otherwise, the last directory of C<$local_dirpath> will be renamed to the last directory of C<$location...
For example C<copy('lib/', '/app/')> will create C</app/lib/> but C<copy('lib/', '/app')> will put all put the files and directories directly inside C</app>, there will be no C<lib> directory.
=item create_directory($path, $mode, $uid, $gid)
Create an empty directory at C<$path> inside the container with the specified C<$mode>, C<$user> and C<$group>.
=item add_user($name, $uid, $main_gid, $shell, $homedir)
Add a user to the container. This puts the user inside the C</etc/passwd> file.
=item add_group($name, $gid)
Add a group to the container. This puts the group inside the C</etc/group> file.
=item runas_user($user)
Convert-ASN1
view release on metacpan or search on metacpan
examples/ldap-search view on Meta::CPAN
my %deref = qw(never 0 search 1 find 2 always 3);
my $search_pdu = Convert::ASN1->new;
$search_pdu->prepare(q(
SEQUENCE {
mesgid INTEGER,
[APPLICATION 3] SEQUENCE {
base STRING,
scope ENUM,
deref ENUM,
sizeLimit INTEGER,
examples/ldap-search view on Meta::CPAN
}
}
)) or die $search_pdu->error;
$buf = $search_pdu->encode(
mesgid => 3,
base => "cn=base",
scope => $scope{one},
deref => $deref{find},
sizeLimit => 0,
timeLimit => 0,
Convert-Binary-C
view release on metacpan or search on metacpan
void handle_tag(pTHX_ const TagTypeInfo *ptti, CtTagList *ptl, SV *name, SV *val, SV **rv)
{
const struct tag_tbl_ent *etbl;
const char *tagstr;
CtTagType tagid;
CtTag *tag;
assert(ptl);
assert(name);
if (SvROK(name))
Perl_croak(aTHX_ "Tag name must be a string, not a reference");
tagstr = SvPV_nolen(name);
tagid = get_tag_id(tagstr);
if (tagid == CBC_INVALID_TAG)
Perl_croak(aTHX_ "Invalid tag name '%s'", tagstr);
if (tagid > NUM_TAGIDS)
fatal("Unknown tag type (%d) in handle_tag()", (int) tagid);
etbl = &gs_TagTbl[tagid];
tag = find_tag(*ptl, tagid);
if (etbl->verify)
etbl->verify(aTHX_ ptti, tag, val);
if (val)
if (tag == NULL)
{
dTHR;
dXCPT;
tag = tag_new(tagid, etbl->vtbl);
XCPT_TRY_START {
rv = etbl->set(aTHX_ ptti, tag, val);
} XCPT_TRY_END
{
case TSRV_UPDATE:
break;
case TSRV_DELETE:
tag_delete(remove_tag(ptl, tagid));
tag = NULL;
break;
default:
fatal("Invalid return value for tag set method (%d)", rv);
Convert-CEGH
view release on metacpan or search on metacpan
Its always bugged me that Shin (U+05E9) and Sewt (U+1220) were not
the same characters. They equate visually of course but according
to any phonetic tables that you find Sat (U+1330) and Sewt are
equivalents. Numeral system tables support this equivalents where
both letters have the value of 300 while Sewt is 60. Some Abugida
tables (not Abegede) do have Sat and Sewt exchanged, which is possibly
telling, or just confused.
Plausibly, at some point long ago someone screwed up a table and that
error has propagated forward into following work up to the present
Convert-TBX-Basic
view release on metacpan or search on metacpan
<admin type="source">ISO/WD2 18841-1 Interpreting - General requirements and recommendations -2.3.1</admin>
<descrip type="definition">Alt.def: words and expressions used in a particular situation</descrip>
<admin type="source">ResearchSee the Comment (editor) field.</admin>
<note/>
<note/>
<note>Note: This term should not be confused with [[dialect]], which is a [[language variant]] specific to a geographical region or a group of language users. I wrote this definition myself based on traditional dictionaries (Englis...
<transacGrp>
<transac type="transactionType">origination</transac>
<transacNote type="responsibility">Emma Harries (emma)</transacNote>
<date>2008-11-30 01:23:40</date>
</transacGrp>
<termNote type="pronunciation"/>
<note/>
<note>feminine</note>
<descrip type="context">De toute évidence, le chercheur doit au préalable déterminer quelle est la définition locale des termes pertinents (en tenant compte en permanence du fait que les différents groupes présents dans une même zo...
<admin type="source">ResearchLa foresterie communautaire : évaluation rapide des droits fonciers et propriété de l'arbre et de la terre. 4. Procédures du terrain. http://www.fao.org/DOCREP/007/T7540F/T7540F04.htm.</admin>
<descrip type="context">Le cas de l’arbre nommé Strombosiopsis rigida (OLACACEE) (‘mogeba’ en geviya2) est intéressant à ce sujet. L’écorce de cet arbre est censée soigner les maux de reins et les courbatures. Le nom lui-mêm...
<admin type="source">Researchhttp://www.ddl.ish-lyon.cnrs.fr/fulltext/Van%20Der%20Veen/Van%20der%20Veen_1996.pdf. page 6.</admin>
</tig>
</langSet>
<langSet xml:lang="en" id="cid1509">
<descrip type="definition"/>
Convert-UUlib
view release on metacpan or search on metacpan
uulib/uulib.c view on Meta::CPAN
return UURET_IOERR;
}
UUSETBUF (source, source_buf, uu_rbuf);
/*
* for system security, strip setuid/setgid bits from mode
*/
if ((thefile->mode & 0777) != thefile->mode) {
UUMessage (uulib_id, __LINE__, UUMSG_NOTE,
uustring (S_STRIPPED_SETUID),
Convos
view release on metacpan or search on metacpan
lib/Convos/public/packed/convos-05be7c5708ec2b607a1f50e9e1ad83ae.css view on Meta::CPAN
.link-embedder.text-html .link-embedder-link {
display: none; }
body.loading div.messages {
opacity: 0.4;
-ms-filter: "progid:DXImageTransform.Microsoft.Alpha(Opacity=" 40 ")";
filter: alpha(opacity=40);
zoom: 1; }
body.ios-input-focus nav.bar {
display: none; }
Courriel
view release on metacpan or search on metacpan
t/data/stress-test/mbox_mime_virus-mcafee-virusscan.txt
t/data/stress-test/mbox_mime_virus-mcgraw-hill.txt
t/data/stress-test/mbox_mime_yahoo-auto-response-cn.txt
t/data/stress-test/mbox_mime_yahoo-auto-response.txt
t/data/stress-test/mbox_mmqp_1.txt
t/data/stress-test/mbox_msgid_embedded-quotes.txt
t/data/stress-test/mbox_msgid_hidden.txt
t/data/stress-test/mbox_msgid_invalid_exchange-6-5.txt
t/data/stress-test/mbox_msgid_missing_1.txt
t/data/stress-test/mbox_msgid_missing_2.txt
t/data/stress-test/mbox_msgid_missing_netscape-3-5.txt
t/data/stress-test/mbox_msgid_missing_outlook2003-11.txt
t/data/stress-test/mbox_msgid_novell-groupwise-7.txt
t/data/stress-test/mbox_multiple_reply.txt
t/data/stress-test/mbox_mutt_2.txt
t/data/stress-test/mbox_nntp_references_split.txt
t/data/stress-test/mbox_nonmime_html.txt
t/data/stress-test/mbox_perl_nntp_orig.txt
( run in 2.194 seconds using v1.01-cache-2.11-cpan-ceb78f64989 )