view release on metacpan or search on metacpan
Mercury/Controller.pm view on Meta::CPAN
Set or get the page body content.
=item * get_time()
Return the current unixtime, as returned by the Perl time() function.
This accessor is used for time synchronization throughout the application,
so your controller can keep a single time for each http request.
=item * sitemark([$mark])
view release on metacpan or search on metacpan
description => "Use YAML.pm to write META.yml files",
requires => { YAML => ' >= 0.35, != 0.49_01 ' },
},
manpage_support =>
{
description => "Create Unix man pages",
requires => { 'Pod::Man' => 0 },
},
HTML_support =>
{
description => "Create HTML documentation",
view release on metacpan or search on metacpan
##
# This takes a time in seconds (since 1970 ala unix 'time()' cmd), and an
# optional string containing comma seperated month names. It returns
# a more useful indication of time and date. If no month names are specified,
# it defaults to english three letter abbreviations.
##
sub getDatestring{
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
# TODO: handle line-endings better. Perhaps we should just look for an
# identifying part of each page rather than trying to do an exact match
# of the entire page. The problem is on win32, some responses come back with
# dos-style line endings (not all of them though). Not sure what MacOS does
# and I don't have a Mac to test with. Currently, we just strip CR's out of
# responses to make the tests pass on Unix and Win32.
use strict;
use warnings FATAL => 'all';
use lib 'lib';
use utf8;
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
return $self;
}
sub version_from {
my ($self, $version_from) = @_;
require ExtUtils::MM_Unix;
$self->version(ExtUtils::MM_Unix->parse_version($version_from));
}
sub abstract_from {
my ($self, $abstract_from) = @_;
require ExtUtils::MM_Unix;
$self->abstract(
bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix')
->parse_abstract($abstract_from)
);
}
1;
view release on metacpan or search on metacpan
AuthenCache.pm view on Meta::CPAN
=over 4
=item B<AuthenCache_Encrypted>
If this directive is set to 'Off', passwords are not encrypted.
Default is 'On', ie passwords use standard Unix crypt.
=back
=over 4
view release on metacpan or search on metacpan
AuthenN2.pm view on Meta::CPAN
Apache::AuthenN2 - Authenticate into the NT and NIS+ domains
=head1 SYNOPSIS
Allow windows and unix users to use their familiar credentials to
gain authenticated access to restricted applications and files
offered via apache.
#httpd.conf
<Files *challenge*>
AuthenN2.pm view on Meta::CPAN
specified a domain, e.g., sales\john, then just try against that
domain; if no domain was specified by the user, try all of the
default domains listed in the above config. Failing nt
authentication, try nis+. This order (nt then nis+) is simply to
boost average apparent performance because the nt population is much
larger than the unix population at the author's company. If your
population has an opposite demographic, feel free to reverse the
order of checking.
Note that this scheme is quite permissive. Valid nt credentials
against any of the controllers or domains, or valid nis+ credentials
view release on metacpan or search on metacpan
smb/smbval/.svn/text-base/byteorder.h.svn-base view on Meta::CPAN
/*
Unix SMB/Netbios implementation.
Version 1.9.
SMB Byte handling
Copyright (C) Andrew Tridgell 1992-1995
This program is free software; you can redistribute it and/or modify
view release on metacpan or search on metacpan
lib/Apache/AuthenURL/Cache.pm view on Meta::CPAN
expired. Default is an indefinite time limit.
=item B<AuthenCache_Encrypted>
If this directive is set to 'Off', passwords are not encrypted.
Default is 'On', ie passwords use standard Unix crypt.
=back
=item B<AuthenCache_NoPasswd>
view release on metacpan or search on metacpan
lib/Apache/AuthzUnix.pm view on Meta::CPAN
package Apache::AuthzUnix;
our $VERSION = '0.02';
our $DEBUG = 0;
require File::stat;
use File::Basename qw(dirname);
use User::pwent;
lib/Apache/AuthzUnix.pm view on Meta::CPAN
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Apache::AuthzUnix - Apache/Apache2 authorization handler for Unix permissions
=head1 SYNOPSIS
PerlModule Apache::AuthzUnix;
<Location ...>
AuthName auth
AuthType Basic
AuthBasicProvider ldap
PerlAuthzHandler Apache::AuthzUnix::authz
# Don't need a "requires" line
</Location>
=head1 DESCRIPTION
This module was written to provide authorization for DAV access to home
directories, but probably has other uses in the C<UserDir> space.
Assuming that Apache has authenticated a user, this module helps to
determine whether or not that user can read (or write) a file on the
filesystem. It applies standard Unix user and group tests on the file's
permissions to determine read access and, in the case of C<PUT> and
C<DELETE> methods, write access. If the file does not exist, then the
containing directory is tested, as one would expect.
This module is designed work on both mod_perl versions 1 and 2.
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
lib/AxKit/XSP/Session.pm view on Meta::CPAN
=head1 EXAMPLE
<session:invalidate/>
SessionID: <xsp:expr><session:get-id/></xsp:expr>
Creation Time: <xsp:expr><session:get-creation-time/></xsp:expr>
(Unix Epoch) <xsp:expr><session:get-creation-time as="string"/></xsp:expr>
<session:set-attribute name="baz">
boo
</session:set-attribute>
<session:set-attribute>
<session:name>foo</session:name>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
if (! -d $apache_incdir) {
die 'APACHE_SRCDIR is not a directory';
}
$apache_osdir = $apache_incdir . '/os/unix';
$apache_incdir .= '/include';
if (! -f "${apache_incdir}/httpd.h") {
die "${apache_incdir}/httpd.h not found";
}
if (! -f "${apache_incdir}/http_log.h") {
Makefile.PL view on Meta::CPAN
@ARGV = grep !'APACHE_SRCDIR', @ARGV;
print <<EOF;
** NOTICE **
The byPerl shared object file (byPerl.so on most unix platforms) is not
built or installed by default. See the file README.byPerl for details.
** NOTICE **
EOF
view release on metacpan or search on metacpan
my $entry;
{ local $/=undef;
$entry = <$fh>;
};
# get the unixtime of the entry too (%s is the Date::Manip way
# of saying "seconds since the epoch")
my $unixtime = Date::Manip::UnixDate($date ,'%s');
# and fix up the date
$date = POSIX::strftime( '%a %d %b %y %H:%M', localtime $unixtime );
# see if we can get any comments
my $comments_ref = [];
if (-d "$filename-comment") {
my @comments = Apache::Blog::Entry->get_all( "$filename-comment" );
# store those results (wonder if there's a better way to count
# words than scalar( @{[split /\s+/, $entry]} )
my %self = ( date => $date,
unixtime => $unixtime,
entry => $entry,
short_name => $short_name,
filepath => $filename,
filename => basename( $filename ),
wc => scalar( @{[split /\s+/, $entry]} ),
return bless(\%self, $class);
} # end new
sub date { return shift->{date} };
sub unixtime { return shift->{unixtime} };
sub short_name { return shift->{short_name} };
sub filename { return shift->{filename} };
sub filepath { return shift->{filepath} };
sub wc { return shift->{wc} };
sub comments { return @{ shift->{comments} } };
grep !/\.html$/ && !/^\./ && !(-d $dir."/".$_), readdir DIR;
closedir DIR;
# now sort those
my @out_entries;
foreach my $entry (sort { $b->unixtime <=> $a->unixtime } @entries) {
push @out_entries, $entry;
} # end foreach
return @out_entries;
} # end get_all
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
CVS/Revision.pm view on Meta::CPAN
return $self->{symbol};
}
=item $revision->date()
Returns the date of the revision in Unix epoch time.
=cut
sub date {
my $self = shift;
view release on metacpan or search on metacpan
Compress.pm view on Meta::CPAN
return $ua =~ m{
^Mozilla/ # They all start with Mozilla...
\d+\.\d+ # Version string
[\s\[\]\w\-]+ # Language
(?:
\(X11 # Any unix browser should work
|
Macint.+PPC,\sNav # Does this match anything??
)
}x;
}
view release on metacpan or search on metacpan
lib/Apache/Config/Preproc/ifmodule.pm view on Meta::CPAN
'mod_ssl.c' => 'ssl_module',
'mod_status.c' => 'status_module',
'mod_substitute.c' => 'substitute_module',
'mod_suexec.c' => 'suexec_module',
'mod_unique_id.c' => 'unique_id_module',
'mod_unixd.c' => 'unixd_module',
'mod_userdir.c' => 'userdir_module',
'mod_usertrack.c' => 'usertrack_module',
'mod_version.c' => 'version_module',
'mod_vhost_alias.c' => 'vhost_alias_module',
'mod_watchdog.c' => 'watchdog_module',
view release on metacpan or search on metacpan
lib/Apache/ConfigParser.pm view on Meta::CPAN
return;
}
# Change the mode to binary to mode to handle the line continuation
# match [^\\]\\[\r]\n. Since binary files may be copied from
# Windows to Unix, look for this exact match instead of relying upon
# the operating system to convert \r\n to \n.
binmode($fd);
# This holds the contents of any previous lines that are continued
# using \ at the end of the line. Also keep track of the line
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
die "No mod_dav found!" unless $davdir;
%MMARGS = (
'INC' => "-I\"$davdir\" -I\"$apdir/include\" -I\"$apdir/os/unix\" -I\"$dir/xs\" -I\"$dir/xsinclude\"",
'OPTIMIZE' => '-ggdb',
) ;
open FH, ">xs/mmargs.pl" or die "Cannot open xs/mmargs.pl ($!)" ;
view release on metacpan or search on metacpan
http://perl.apache.org/
DBI by Tim Bunce dbi-users-subscribe@perl.org
http://dbi.perl.org/
Apache by Apache Group news:comp.infosystems.www.servers.unix
users-subscribe@httpd.apache.org
http://httpd.apache.org/
---------------------------------------------------------------------------
view release on metacpan or search on metacpan
lib/Apache/Defaults.pm view on Meta::CPAN
'mod_ssl.c' => 'ssl_module',
'mod_status.c' => 'status_module',
'mod_substitute.c' => 'substitute_module',
'mod_suexec.c' => 'suexec_module',
'mod_unique_id.c' => 'unique_id_module',
'mod_unixd.c' => 'unixd_module',
'mod_userdir.c' => 'userdir_module',
'mod_usertrack.c' => 'usertrack_module',
'mod_version.c' => 'version_module',
'mod_vhost_alias.c' => 'vhost_alias_module',
'mod_watchdog.c' => 'watchdog_module',
view release on metacpan or search on metacpan
lib/Apache/Dir.pm view on Meta::CPAN
$Apache::Dir::VERSION = '0.07';
# Define constants for compatibility with mod_perl 1 and mod_perl 2.
use constant DECLINED => -1;
use constant DIR_MAGIC_TYPE => 'httpd/unix-directory';
use constant HTTP_MOVED_PERMANENTLY => 301;
sub handler {
my $r = shift;
return DECLINED unless $r->content_type eq DIR_MAGIC_TYPE
view release on metacpan or search on metacpan
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Fri, 31 May 2002 17:36:57 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Friday, 31-May-2002 17:41:57 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Fri, 31 May 2002 17:49:06 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Friday, 31-May-2002 17:54:06 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Sat, 01 Jun 2002 16:59:47 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Saturday, 01-June-2002 17:04:47 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Sat, 01 Jun 2002 17:09:13 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Saturday, 01-June-2002 17:14:14 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Fri, 31 May 2002 23:18:17 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Friday, 31-May-2002 23:23:17 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Fri, 31 May 2002 23:37:45 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Expires: Friday, 31-May-2002 23:42:45 GMT
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
Dynagzip.pm view on Meta::CPAN
== Body was 0 bytes ==
## Sockets 6 of 4,5,6 need checking ##
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Thu, 21 Feb 2002 20:01:47 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Vary: Accept-Encoding
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
C05 <-- S06 Content-Encoding: gzip
C05 <-- S06 == Incoming Body was 6034 bytes ==
Dynagzip.pm view on Meta::CPAN
C05 --> S06 Accept-Charset: ISO-8859-1
== Body was 0 bytes ==
C05 <-- S06 HTTP/1.1 200 OK
C05 <-- S06 Date: Sun, 11 Aug 2002 21:28:43 GMT
C05 <-- S06 Server: Apache/1.3.22 (Unix) Debian GNU/Linux mod_perl/1.26
C05 <-- S06 X-Module-Sender: Apache::Dynagzip
C05 <-- S06 Expires: Sunday, 11-August-2002 21:33:43 GMT
C05 <-- S06 Vary: Accept-Encoding,*
C05 <-- S06 Transfer-Encoding: chunked
C05 <-- S06 Content-Type: text/html; charset=iso-8859-1
view release on metacpan or search on metacpan
sub ACTION_test {
my $self = shift;
$self->depends_on('build');
# Could be File::Spec-ified, but this is mostly a Unix module
$self->add_to_cleanup(qw(t/httpd t/httpd.conf t/error_log));
$self->do_system('t/httpd', '-f', $self->base_dir . "/t/httpd.conf");
$ENV{PORT} = %s; # Used by the test scripts
eval { $self->SUPER::ACTION_test };
view release on metacpan or search on metacpan
lib/Apache/Gallery.pm view on Meta::CPAN
my ($file, $width, $height) = @_;
my $imageinfo = undef;
# Windows based file extensions are often .THM, so check
# for both .thm and .THM
my $unix_file = $file;
my $windows_file = $file;
$unix_file =~ s/\.(\w+)$/.thm/;
$windows_file =~ s/\.(\w+)$/.THM/;
if (-e $unix_file && -f $unix_file && -r $unix_file) {
$imageinfo = image_info($unix_file);
$imageinfo->{width} = $width;
$imageinfo->{height} = $height;
}
elsif (-e $windows_file && -f $windows_file && -r $windows_file) {
$imageinfo = image_info($windows_file);
view release on metacpan or search on metacpan
t/conf/apache_mirror.txt view on Meta::CPAN
ftp://ftp.planetmirror.com/pub/apache/dist au
ftp://mirror.aarnet.edu.au/pub/apache/dist au
ftp://apache.urc.bl.ac.yu ba
ftp://ftp.pop-mg.com.br/pub/apache/dist br
ftp://ftp.pucpr.br/apache br
ftp://ftp.ucr.ac.cr/pub/Unix/apache cr
ftp://ftp.gin.cz/pub/mirrors/www.apache.org/dist cz
ftp://ftp.apache.de/mirrors/dev.apache.org/dist de
ftp://ftp.leo.org/pub/comp/general/infosys/www/daemons/apache/dist de
ftp://ftp-stud.fht-esslingen.de/pub/Mirrors/ftp.apache.org/dist de
ftp://mir1.ovh.net/ftp.apache.org/dist fr
t/conf/apache_mirror.txt view on Meta::CPAN
ftp://ftp.iasi.roedu.net/pub/mirrors/apache.org/dist ro
ftp://ftp.idilis.ro/linux/apache ro
ftp://apache.rinet.ru/pub/mirror/apache.org/dist ru
ftp://ftp.sunet.se/pub/www/servers/apache/dist se
ftp://ftp.tuke.sk/apache sk
ftp://apache.cdpa.nsysu.edu.tw/Unix/Web/apache tw
ftp://ftp.cis.nctu.edu.tw/apache tw
ftp://apache.mirrors.rossfell.co.uk/mirrors/apache/dist uk
ftp://ftp.flirble.org/pub/web/apache/dist uk
ftp://ftp.gbnet.net/pub/apache/dist uk
ftp://ftp.plig.net/pub/apache/dist uk
t/conf/apache_mirror.txt view on Meta::CPAN
http://apache.mirror.trueserver.nl/dist nl
http://apache.proserve.nl nl
http://apache.mirrors.interxs.nl/dist nl
http://dist.apache.easynet.nl nl
http://httpd.kookel.org nl
http://apache.unixcore.com/dist no
http://www.powertech.no/apache/dist no
http://apache.inspire.net.nz nz
http://sunsite.icm.edu.pl/pub/www/apache/dist pl
http://ftp.linux.pt/pub/mirrors/apache pt
http://apache.iasi.roedu.net/dist ro
view release on metacpan or search on metacpan
Client/httunnel view on Meta::CPAN
$opts{V} = 2 if $opts{VV} ;
my $DEBUG = $opts{V} || 0 ;
my $SYSLOG = 0 ;
if (($opts{d})&&(Sys::Syslog->can('openlog'))){
Sys::Syslog::setlogsock('unix') ;
Sys::Syslog::openlog('httunnel', 'pid', 'user') or die("Can't open syslog: $!") ;
$SYSLOG = 1 ;
}
my $config = get_conf(@ARGV[0]) ;
view release on metacpan or search on metacpan
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
}
=head1 AUTHOR
Adam Faris, C<< <apache-hadoop-webhdfs at mekanix.org> >>
=head1 BUGS
Please use github to report bugs and feature requests
https://github.com/opsmekanix/Apache-Hadoop-WebHDFS/issues
=head1 SUPPORT
You can find documentation for this module with the perldoc command.