view release on metacpan or search on metacpan
lib/AnyEvent/DAAP/Server/Track.pm view on Meta::CPAN
daap_songsize daap_songstarttime daap_songstoptime daap_songtime
daap_songtrackcount daap_songtracknumber daap_songuserrating
daap_songyear daap_songdatakind daap_songdataurl
com_apple_itunes_norm_volume
daap_songgrouping daap_songcodectype daap_songcodecsubtype
com_apple_itunes_itms_songid com_apple_itunes_itms_artistid
com_apple_itunes_itms_playlistid com_apple_itunes_itms_composerid
com_apple_itunes_itms_genreid
dmap_containeritemid
);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AnyEvent/FTP/Server/OS/UNIX.pm view on Meta::CPAN
sub BUILDARGS
{
my($class, $query) = @_;
my($name, $pw, $uid, $gid, $quota, $comment, $gcos, $dir, $shell, $expire) = getpwnam $query;
die "user not found" unless $name;
return {
name => $name,
uid => $uid,
gid => $gid,
home => $dir,
shell => $shell,
}
}
has $_ => ( is => 'ro', required => 1 ) for (qw( name uid gid home shell ));
has groups => (
is => 'ro',
lazy => 1,
lib/AnyEvent/FTP/Server/OS/UNIX.pm view on Meta::CPAN
my @groups;
setgrent;
my @grent;
while(@grent = getgrent)
{
my($group,$pw,$gid,$members) = @grent;
foreach my $member (split /\s+/, $members)
{
push @groups, $gid if $member eq $name;
}
}
\@groups;
},
);
lib/AnyEvent/FTP/Server/OS/UNIX.pm view on Meta::CPAN
sub drop_privileges
{
my($self) = @_;
$) = join ' ', $self->gid, $self->gid, @{ $self->groups };
$> = $self->uid;
$( = $self->gid;
$< = $self->uid;
return $self;
}
lib/AnyEvent/FTP/Server/OS/UNIX.pm view on Meta::CPAN
=head2 uid
The user's UID
=head2 gid
The user's GID
=head2 home
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AnyEvent/GnuPG.pm view on Meta::CPAN
my $sig = { trust => TRUST_UNDEFINED, };
$self->_parse_status(
$cv,
sig_id => sub {
( $sig->{sigid}, $sig->{data}, $sig->{timestamp} ) = @_;
},
goodsig => sub {
( $sig->{keyid}, $sig->{user} ) = @_;
},
validsig => sub {
lib/AnyEvent/GnuPG.pm view on Meta::CPAN
},
end_decryption => sub {
$self->_end_gnupg( sub { $cv->send } );
},
sig_id => sub {
( $sig->{sigid}, $sig->{data}, $sig->{timestamp} ) = @_;
},
goodsig => sub {
( $sig->{keyid}, $sig->{user} ) = @_;
},
validsig => sub {
lib/AnyEvent/GnuPG.pm view on Meta::CPAN
When the signature is valid, here are the elements of the hash that is returned by the method:
=over 4
=item * sigid
The signature id. This can be used to protect against replay attack.
=item * date
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AnyEvent/MPRPC/Client.pm view on Meta::CPAN
sub call {
my ($self, $method) = (shift, shift);
my $param = (@_ == 1 && ref $_[0] eq "ARRAY") ? $_[0] : [@_];
my $msgid = $self->_next_id->();
my $request = [
MP_TYPE_REQUEST,
int($msgid), # should be IV
$method,
$param,
];
if ($self->handler) {
lib/AnyEvent/MPRPC/Client.pm view on Meta::CPAN
}
else {
push @{ $self->_request_pool }, $request;
}
# $msgid is stringified, but $request->{MP_RES_MSGID] is still IV
$self->_callbacks->{ $msgid } = AnyEvent->condvar;
}
sub _handle_response_cb {
my $self = shift;
view all matches for this distribution
view release on metacpan or search on metacpan
http://localhost/manual/fr/mod/mod_proxy.html
http://localhost/manual/zh-cn/mod/mod_setenvif.html
http://localhost/manual/es/mod/mod_headers.html
http://localhost/manual/pt-br/install.html
http://localhost/manual/pt-br/mod/mod_dir.html
http://localhost/manual/fr/mod/mod_cgid.html
http://localhost/manual/ja/vhosts/index.html
http://localhost/manual/de/mod/mod_authn_dbd.html
http://localhost/manual/en/mod/mod_cache.html
http://localhost/manual/de/programs/apxs.html
http://localhost/manual/ja/mod/mpm_winnt.html
http://localhost/manual/ja/mod/index.html
http://localhost/manual/es/mod/mod_file_cache.html
http://localhost/manual/ja/mod/quickreference.html
http://localhost/manual/es/mod/mod_dir.html
http://localhost/manual/ko/mod/mod_authz_groupfile.html
http://localhost/manual/tr/mod/mod_cgid.html
http://localhost/manual/ja/mod/mod_env.html
http://localhost/manual/ko/rewrite/vhosts.html
http://localhost/manual/es/sitemap.html
http://localhost/manual/pt-br/platform/netware.html
http://localhost/manual/pt-br/dso.html
http://localhost/manual/pt-br/mod/mod_headers.html
http://localhost/manual/zh-cn/howto/auth.html
http://localhost/manual/ko/rewrite/flags.html
http://localhost/manual/ja/vhosts/mass.html
http://localhost/manual/ko/mod/mod_logio.html
http://localhost/manual/ko/mod/mod_cgid.html
http://localhost/manual/zh-cn/mod/mod_info.html
http://localhost/manual/fr/mod/mod_authz_owner.html
http://localhost/manual/ja/misc/relevant_standards.html
http://localhost/manual/de/mod/mod_example.html
http://localhost/manual/ko/mod/mpm_netware.html
http://localhost/manual/pt-br/programs/htdigest.html
http://localhost/manual/zh-cn/mod/mod_reqtimeout.html
http://localhost/manual/ko/filter.html
http://localhost/manual/ko/platform/ebcdic.html
http://localhost/manual/ja/mod/mod_version.html
http://localhost/manual/de/mod/mod_cgid.html
http://localhost/manual/fr/howto/index.html
http://localhost/manual/fr/mod/mod_env.html
http://localhost/manual/pt-br/howto/index.html
http://localhost/manual/pt-br/new_features_2_2.html
http://localhost/manual/fr/developer/hooks.html
http://localhost/manual/en/programs/htcacheclean.html
http://localhost/manual/ja/developer/debugging.html
http://localhost/manual/pt-br/mod/mod_dav_fs.html
http://localhost/manual/tr/programs/htdigest.html
http://localhost/manual/de/developer/hooks.html
http://localhost/manual/zh-cn/mod/mod_cgid.html
http://localhost/manual/fr/mod/quickreference.html
http://localhost/manual/zh-cn/developer/modules.html
http://localhost/manual/ko/ssl/ssl_howto.html
http://localhost/manual/tr/programs/httpd.html
http://localhost/manual/en/mod/mod_dav_fs.html
view all matches for this distribution
view release on metacpan or search on metacpan
t/example/endless.pl view on Meta::CPAN
my $idle; $idle = sub {
$mpd->send( 'status', sub {
my $status = shift->recv;
my $current = $status->{songid};
if ($current ne $previous) {
$previous = $current;
$mpd->send( 'playlist', sub {
my @playlist = @{shift->recv};
view all matches for this distribution
view release on metacpan or search on metacpan
Porttracker.pm view on Meta::CPAN
my $cv = AE::cv;
$cv->begin;
# find all realms
$api->req (realm_info => ["gid", "name"], sub {
my ($api, @realms) = @_;
# start discovery on all realms
for my $realm (@realms) {
my ($gid, $name) = @$realm;
$cv->begin;
$api->req (realm_discover => $gid, sub {
warn "discovery for realm '$name' finished\n";
$cv->end;
});
}
Porttracker.pm view on Meta::CPAN
# Example 3
# subscribe to realm_poll_stop events and report each occurance
$api->req (subscribe => "realm_poll_stop", sub {});
$api->on (realm_poll_stop_event => sub {
my ($api, $gid) = @_;
warn "this just in: poll for realm <$gid> finished.\n";
});
AE::cv->recv; # wait forever
=head1 DESCRIPTION
Porttracker.pm view on Meta::CPAN
currently-registered handler.
Example: replace/set the handler for C<on_discover_stop_event>.
$api->on (discover_stop_event => sub {
my ($api, $gid) = @_;
...
});
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AnyEvent/Postfix/Logs.pm view on Meta::CPAN
$on_mail->($mail)
where C<$mail> is a hashref with keys like C<from> (string), C<to> (array of
strings), C<time> (string), C<size> (integer), C<delay> (decimal point), and
C<msgid> (string).
=item on_finish (callback)
Reference to a handler called when all sources are depleted. It will be
invoked as
lib/AnyEvent/Postfix/Logs.pm view on Meta::CPAN
$mail->{from} = $1 if $line =~ /^from=<([^>]+)>/;
$mail->{size} = $1 if $line =~ /size=(\d+)/;
}
} elsif ( $cmd eq 'cleanup' ) {
$mail->{msgid} = $1 if $line =~ /^message-id=(<[^>]+>)/;
} elsif ( $cmd eq 'virtual' ) {
push @{ $mail->{to} }, $1 if $line =~/^to=<([^>]+)>/;
$mail->{delay} = $1 if $line =~ /delay=(\d+\.\d+)/;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AnyEvent/IO.pm view on Meta::CPAN
Example: try to touch F<file>.
aio_utime "file", undef, undef, sub { };
=item aio_chown $fh_or_path, $uid, $gid, $cb->($success)
Calls C<chown> on the path or perl file handle and passes a true value to
the callback on success.
If C<$uid> or C<$gid> can be specified as C<undef>, in which case the
uid or gid of the file is not changed. This differs from Perl's C<chown>
built-in, which wants C<-1> for this.
Example: update the group of F<file> to 0 (root), but leave the owner alone.
aio_chown "file", undef, 0, sub {
view all matches for this distribution
view release on metacpan or search on metacpan
site/eg/asp.conf view on Meta::CPAN
XMLSubsMatch => 'my:\w+',
GlobalPackage => 'Apache::ASP::Demo',
BufferingOn => 1,
FileUploadMax => 200000,
FileUploadTemp => 1,
StateDir => '/tmp/aspcgidemo',
);
if($0 =~ /asp$/) {
$Config{NoState} = 0;
} else {
site/eg/asp.conf view on Meta::CPAN
}
if($0 =~ /\.xml$/) {
$Config{XSLT} = 'template.xsl',
$Config{XSLTCache} = 1,
$Config{CacheDir} = '/tmp/aspcgidemo_cache';
}
if($0 =~ /session_query_parse/) {
$Config{SessionQueryParse} = 1;
}
view all matches for this distribution
view release on metacpan or search on metacpan
t/httpd.conf-dist 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 #-1 on these systems!
#
User nobody
Group #-1
view all matches for this distribution
view release on metacpan or search on metacpan
Mercury/Message/DBI.pm view on Meta::CPAN
? ($self->{'display_trans'} ? $self->{'display_trans'} :'show')
: 'hide'),
($self->{'security'} ? $self->{'security'} : 'medium'));
$sth2->execute;
my $msgid;
$sth2->bind_columns(\$msgid);
$sth2->fetchrow_arrayref;
$sth2->finish;
$self->{'MessageIDs'}->{$msgid} = 1;
$after_first = 1;
}
$dbh->disconnect;
};
Mercury/Message/DBI.pm view on Meta::CPAN
}
sub log_attachments {
my ($self) = @_;
my @msgids = keys %{$self->{'MessageIDs'}};
my $placeholders = join(', ', map {'?'} @msgids);
my $attachment_ids =
join(' ', map { $_->{'AttachmentID'} } @{$self->{'Attachments'}});
eval {
my $dbh = DBI->connect(Apache::App::Mercury::Config::DBI_CONNECT_STR(),
Apache::App::Mercury::Config::DBI_LOGIN(),
Apache::App::Mercury::Config::DBI_PASS(),
{'RaiseError' => 1});
my $sth = $dbh->prepare_cached
("UPDATE ".Apache::App::Mercury::Config::DBI_SQL_MSG_TABLE()." SET attachments=?,timestamp=timestamp WHERE id IN($placeholders)");
$sth->execute($attachment_ids, @msgids);
$dbh->disconnect;
};
if ($@) {
$self->log_error;
return undef;
view all matches for this distribution
view release on metacpan or search on metacpan
Server/t/lib/Apache/test.pm view on Meta::CPAN
# Get default user (apache doesn't like to run as root, special-case it)
my $defuser = ($< && getpwuid $<) || 'nobody';
$conf{user} = _ask("User to run tests under", $defuser);
my $defgroup = ($defuser eq 'nobody' ? 'nobody' : getgrgid((getpwnam $conf{user})[3]));
$conf{group} = _ask("Group to run tests under", $defgroup);
$conf{port} = _ask("Port to run tests under", 8228);
return %conf;
view all matches for this distribution
view release on metacpan or search on metacpan
$t->{filename} = $r->filename;
unless (-e $t->{filename} && -r $t->{filename}) {
return NOT_FOUND;
}
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)=stat($t->{filename});
($t->{FileInfo}->{'name'}) = $t->{filename} =~ m!(([^/\\]|\\\/)+)$!;
$t->{FileInfo}->{'date'} = &getDatestring($mtime, $r->dir_config('Months'));
$t->{FileInfo}->{'rawsize'} = -s $t->{filename};
$t->{FileInfo}->{'size'} = &getSizestring($t->{FileInfo}->{'rawsize'});
view all matches for this distribution
view release on metacpan or search on metacpan
AuthenN2.pm view on Meta::CPAN
my $pwd = '';
my $group = '';
# look for name match
foreach ($pwd_table->lookup('[name=' . $name . ']')){
$pwd = $_->{'passwd'};
$group = $_->{'gid'};
last;
}
# stash group id lookup for authorization check
$r->notes($name . 'Group', $group);
unless($pwd){
AuthenN2.pm view on Meta::CPAN
unless ($group_table){
$r->note_basic_auth_failure;
$r->log_reason($self . ': cannot get nis+ group table', $r->uri);
return AUTH_REQUIRED;
}
my %groups_to_gids;
foreach ($group_table->list()){$groups_to_gids{@{$_}[0]} = @{$_}[2]}
for my $group (@rest) {
next unless exists $groups_to_gids{$group};
return OK if $r->notes($name . 'Group') == $groups_to_gids{$group};
}
}
}
$r->note_basic_auth_failure;
view all matches for this distribution
view release on metacpan or search on metacpan
AuthenNIS.pm view on Meta::CPAN
MP2 ? $r->log_error("Apache::AuthenNIS - user $name: yp_match: status $status, $error_msg", $r->uri) : $r->log_reason("Apache::AuthenNIS - user $name: yp_match: status $status, $error_msg", $r->uri);
return MP2 ? Apache::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
}
}
my ($user, $hash, $uid, $gid, $gecos, $dir, $shell) = split(/:/, $entry);
if(crypt($sent_pwd, $hash) eq $hash) {
return MP2 ? Apache::OK : Apache::Constants::OK;
} else {
if (lc($allowaltauth) eq "yes")
view all matches for this distribution
view release on metacpan or search on metacpan
AuthenNISPlus.pm view on Meta::CPAN
my $pwd = '';
my $group = '';
# look for name match
foreach ($pwd_table->lookup('[name=' . $name . ']')){
$pwd = $_->{'passwd'};
$group = $_->{'gid'};
last;
}
unless($pwd){
$r->note_basic_auth_failure;
AuthenNISPlus.pm view on Meta::CPAN
unless ($group_table){
$r->note_basic_auth_failure;
$r->log_reason($self . ': cannot get nis+ group table', $r->uri);
return AUTH_REQUIRED;
}
my %groups_to_gids;
foreach ($group_table->list()){$groups_to_gids{@{$_}[0]} = @{$_}[2]}
for my $group (@rest) {
next unless exists $groups_to_gids{$group};
return OK if $r->notes($name . 'Group') == $groups_to_gids{$group};
}
}
}
$r->note_basic_auth_failure;
$r->log_reason(
view all matches for this distribution
view release on metacpan or search on metacpan
smb/smbval/.svn/text-base/smblib-priv.h.svn-base view on Meta::CPAN
char service[80], username[80], password[80], desthost[80], sock_options[80];
char address[80], myname[80];
SMB_Tree_Handle first_tree, last_tree; /* List of trees on this server */
int gid; /* Group ID, do we need it? */
int mid; /* Multiplex ID? We might need one per con */
int pid; /* Process ID */
int uid; /* Authenticated user id. */
view all matches for this distribution
view release on metacpan or search on metacpan
AuthenPasswd.pm view on Meta::CPAN
$r->note_basic_auth_failure;
MP2 ? $r->log_error("Apache::AuthenPasswd - no username given", $r->uri) : $r->log_reason("Apache::AuthenPasswd - no username given", $r->uri);
return MP2 ? Apache::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
}
my ($user, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwnam $name;
unless ($user) {
$r->note_basic_auth_failure;
MP2 ? $r->log_error("Apache::AuthenPasswd - user $name: unknown", $r->uri) : $r->log_reason("Apache::AuthenPasswd - user $name: unknown", $r->uri);
return MP2 ? Apache::HTTP_UNAUTHORIZED : Apache::Constants::HTTP_UNAUTHORIZED;
view all matches for this distribution
view release on metacpan or search on metacpan
AuthzLDAP.pm view on Meta::CPAN
# Any of the following variables can be set.
# Defaults are listed to the right.
PerlSetVar AuthenBaseDN o=Foo,c=Bar # Default: Empty String ("")
PerlSetVar AuthzBaseDN o=My Company # Default: none
PerlSetVar AuthzGroupAttrType gid # Default: cn
PerlSetVar AuthzLDAPServer ldap.foo.com # Default: localhost
PerlSetVar AuthzLDAPPort 389 # Default: 389
PerlSetVar AuthzMemberAttrType uniquemember # Default: member
PerlSetVar AuthzMemberAttrValue dn # Default: cn
PerlSetVar AuthzNestedAttrType uniquegroup # Default: member
view all matches for this distribution
view release on metacpan or search on metacpan
AuthzPasswd.pm view on Meta::CPAN
#ok if user is simply authenticated
elsif ($require eq "valid-user") {
return MP2 ? Apache::OK : Apache::Constants::OK;
}
elsif ($require eq "group") {
# Get users primary group's gid
my $ugid= [ getpwnam($name) ]->[3];
foreach my $thisgroup (@list) {
# Then check if the user is member of the group
my ($group, $passwd, $gid, $members) = getgrnam $thisgroup;
unless($group) {
$r->note_basic_auth_failure;
MP2 ? $r->log_error("Apache::AuthzPasswd - group: $thisgroup unknown", $r->uri) : $r->log_reason("Apache::AuthzPasswd - group: $thisgroup unknown", $r->uri);
return MP2 ? Apache::HTTP_INTERNAL_SERVER_ERROR : Apache::Constants::HTTP_INTERNAL_SERVER_ERROR;
}
if($ugid == $gid || $members =~ /\b$name\b/) {
if($setremotegroup eq "yes") {
$r->log->debug("Setting REMOTE_GROUP to $group");
my $x = $r->subprocess_env(REMOTE_GROUP => $group);
}
return MP2 ? Apache::OK : Apache::Constants::OK;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/AuthzUnix.pm view on Meta::CPAN
# If it's a directory index, then we use the permissions of the directory.
# If it's non-existent, permissions are an irrelevance!
my $stat = File::stat::stat($fn);
my $access =
_access($user, $stat->mode, $stat->uid, $stat->gid, $r->method);
warn "Access to file: "
. $r->filename
. " (resolved as $fn) : "
. ($access ? "allowed" : "denied")
if $DEBUG;
return $access ? OK() : DECLINED();
}
sub _access {
my ($username, $perms, $uid, $gid, $method) = @_;
my ($u, $g, $o) = ($perms & 0700, $perms & 0070, $perms & 0007);
my $user = getpwnam($username);
my %in_group = map { $_ => 1 } @{ getgrgid($gid)->members };
my $bit = $method =~ /(PUT|DELETE)/ ? 2 : 4;
return 1 if $o & $bit
|| ($uid == $user->uid and $u & ($bit << 6))
|| (($gid == $user->gid or $in_group{$username})
and $g & ($bit << 3));
return 0;
}
1;
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/Apache/test.pm view on Meta::CPAN
# Get default user (apache doesn't like to run as root, special-case it)
my $defuser = ($< && getpwuid $<) || 'nobody';
$conf{user} = _ask("User to run tests under", $defuser);
my $defgroup = ($defuser eq 'nobody' ? 'nobody' : getgrgid((getpwnam $conf{user})[3]));
$conf{group} = _ask("Group to run tests under", $defgroup);
$conf{port} = _ask("Port to run tests under", 8228);
return %conf;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Config/Preproc/ifmodule.pm view on Meta::CPAN
'mod_cache.c' => 'cache_module',
'mod_cache_disk.c' => 'cache_disk_module',
'mod_cache_socache.c' => 'cache_socache_module',
'mod_cern_meta.c' => 'cern_meta_module',
'mod_cgi.c' => 'cgi_module',
'mod_cgid.c' => 'cgid_module',
'mod_charset_lite.c' => 'charset_lite_module',
'mod_data.c' => 'data_module',
'mod_dav.c' => 'dav_module',
'mod_dav_fs.c' => 'dav_fs_module',
'mod_dav_lock.c' => 'dav_lock_module',
view all matches for this distribution
view release on metacpan or search on metacpan
t/httpd02.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 apache
Group apache
view all matches for this distribution
view release on metacpan or search on metacpan
Apache::DAV::XMLAttr T_PTROBJ
Apache::DAV::XMLElem T_PTROBJ
Apache::Array T_PTROBJ
Apache::DAV::LockTokenList T_PTROBJ
Apache::DAV::Error T_PTROBJ
const gid_t * T_IV
Apache::DAV::ResourcePrivate T_PTROBJ
Apache::Pool T_PTROBJ
Apache::DAV::PropDB T_PTROBJ
unsigned long T_UV
Apache::DAV::DynContext T_PTROBJ
Apache::TableEntry T_PTROBJ
time_t * T_NV
char T_CHAR
const uid_t * T_IV
pid_t * T_IV
gid_t * T_IV
Apache::DAV::LockupResult T_PTROBJ
unsigned int T_UV
signed int T_IV
const off_t * T_IV
pid_t T_IV
char const * T_PV
uid_t * T_IV
char * T_PV
gid_t T_IV
dav_stream_mode T_IV
const time_t * T_NV
const char * T_PV
off_t T_IV
off_t * T_IV
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Defaults.pm view on Meta::CPAN
'mod_cache.c' => 'cache_module',
'mod_cache_disk.c' => 'cache_disk_module',
'mod_cache_socache.c' => 'cache_socache_module',
'mod_cern_meta.c' => 'cern_meta_module',
'mod_cgi.c' => 'cgi_module',
'mod_cgid.c' => 'cgid_module',
'mod_charset_lite.c' => 'charset_lite_module',
'mod_data.c' => 'data_module',
'mod_dav.c' => 'dav_module',
'mod_dav_fs.c' => 'dav_fs_module',
'mod_dav_lock.c' => 'dav_lock_module',
view all matches for this distribution
view release on metacpan or search on metacpan
Resumable.pm view on Meta::CPAN
# * we send a weak tag instead of a strong one, since it could
# * be modified again later in the second, and the validation
# * would be incorrect.
# */
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime)
= stat ($file) ;
my $weak = ($req->request_time - $mtime > 1)? "" : "W/";
my $etag ;
if ($mode != 0)
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/Apache/test.pm view on Meta::CPAN
# Get default user (apache doesn't like to run as root, special-case it)
my $defuser = ($< && getpwuid $<) || 'nobody';
$conf{user} = _ask("User to run tests under", $defuser);
my $defgroup = ($defuser eq 'nobody' ? 'nobody' : getgrgid((getpwnam $conf{user})[3]));
$conf{group} = _ask("Group to run tests under", $defgroup);
$conf{port} = _ask("Port to run tests under", 8228);
return %conf;
view all matches for this distribution