view release on metacpan or search on metacpan
LoggedAuthDBI.pm view on Meta::CPAN
Should none of the four checks yield a violation AuthDBI is called and its
return value used without modification.
Otherwise it will redirect to a different filename while returning OK. This
will cause a bruteforce tool to think it was successful in its attempt to
guess a valid login/pass combination and either stop or collect this combination
into its list of valid options.
Consider this module beta ware as it has only seen action in the original
context it was created for and at.
view all matches for this distribution
view release on metacpan or search on metacpan
MIMEMapper.pm view on Meta::CPAN
$r->set_handlers(PerlHandler => $handlers);
# Notify Apache::Filter if we have more than one PerlHandler...
$r->dir_config->set(Filter => 'On') if @$handlers > 1;
# ... and take a guess at the MIME type.
my ($content_type) = by_suffix($extension);
$r->content_type($content_type) if $content_type;
return OK;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/ModuleDoc.pm view on Meta::CPAN
my($context,$override) = overrides($modp, $cmd_rec);
my $args_how = $cmd_rec->args_how;
my $syntax = $Syntax{$args_how};
my $perl_syntax = perl_syntax($cmd, $args_how);
#this one's a wild guess
my $status = "Extension";
my $uri = $r->uri . ".html";
if(-e $r->lookup_uri($uri)->filename) {
$status = "Base";
}
view all matches for this distribution
view release on metacpan or search on metacpan
docsrc/features.xml view on Meta::CPAN
</listitem>
</itemizedlist>
<para>
This approach parallels the division of the job responsibilities of a large web development team.
The programmers can focus on the Model, the designers on the View, and the content
administrators on the (you guessed it!) Content. PageKit provides the Controller which glues
everything together.
</para>
<para>
This way everybody can focus on what they do best, whether it is programming, design, or
content. Since the interfaces are simple and well-defined they can easily work together without
view all matches for this distribution
view release on metacpan or search on metacpan
PerlVINC.pm view on Meta::CPAN
or C<Location> that want to each use their own version of C<Spellcheck.pm>.
Durning the FixUp phase, C<Apache::PerlVINC> will tweak C<@INC> and reload
C<Spellcheck>. Optionally, it will unload that version if you specify
C<Apache::PerlVINC> as a PerlCleanUpHandler.
As you can guess, this module slows things down a little because it unloads and
reloads on a per-request basis. Hence, this module should only be used in a
development environment, not a mission critical one.
=head1 DIRECTIVES
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker qw(prompt WriteMakefile);
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
@magicguess = ( "/etc/httpd/magic", "/etc/httpd/conf/magic", "/etc/magic",
"/etc/mime-magic", "/usr/share/misc/magic.mime",
"/usr/share/magic.mime", "/usr/share/magic");
foreach $mm (@magicguess) {
if ( -s "$mm" ) {
$guess = $mm;
last;
}
}
do {
$magic = prompt("Path of your (Apache) mime magic file: [$guess]");
$magic = $guess if ($magic =~ m/^\s*$/igs);
print "Path: $magic\n";
} until (-s $magic);
system('perl','-p','-i.bak','-e','s§^my\s+\$MIME\s*=\s*File::MMagic::new.*$§my \$MIME = File::MMagic::new('."'$magic'".');§g','ProxyScan.pm');
view all matches for this distribution
view release on metacpan or search on metacpan
defined, we'll still return a handle that spits out wide characters. (Come to
think of it, do any user-agents even bother providing a charset anyway?)
=item *
Allow for more than one DECODE_PARMS, and try to guess which one is
appropriate.
=item *
Use the I<User-Agent> header to figure out how far from the standards we must
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/SPARQL/RDFStore.pm view on Meta::CPAN
#} else {
# };
my $data = new RDFStore::Model;
if($graph_id) {
foreach my $graph_id ( @{ $graph_id } ) {
# bad - try to guess out format from file extension
eval {
$data->getReader( ($graph_id =~ /\.(nt|ntriples)$/) ? 'N-Triples' : 'RDF/XML' )->parsestring(
$class->_cat( $ap, $graph_id ) );
};
if($@) {
lib/Apache/SPARQL/RDFStore.pm view on Meta::CPAN
if (! $class->_mp2 ) {
$ap->send_http_header();
};
# we need to reject output-xslt param here I guess
if( $format eq 'rdfxml' ) {
$serialization_format = 'RDF/XML';
} elsif( $format eq 'xml' ) {
$sth->finish;
view all matches for this distribution
view release on metacpan or search on metacpan
Evaluation
----------
There is a script, called 'analyse.pl', in this bundle which may be used
to analyse the collected data. (who would have guessed?! ;) It is really
simple and not very detailed, so I propably will write a better one.. When
calles without arguments it will print a usage table.
The second script, 'analyse.cgi' does basically the very same job, but
formats the results as HTML. It relies on mod_perl aswell, since it reads
view all matches for this distribution
view release on metacpan or search on metacpan
SecSess/DBI.pm view on Meta::CPAN
}
$self->note_auth_success($uid, $authid);
return 'OK';
}
## protect against online guessing attacks
sub note_auth_failure {
my $self = shift;
my($uid, $authid) = @_;
my($asth, $maxfail, $uasth, $failcount, $usth);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Session/Lock/Semaphore.pm view on Meta::CPAN
The module must know how many semaphores to use, and what semaphore key to
use. The number of semaphores has an impact on performance. More semaphores
means less lock contention. You should use the maximum number of semaphores
that your platform will allow. On stock NetBSD, OpenBSD, and Solaris systems,
this is probably 16. On Linux 2.2, this is 32. This module tries to guess
the number based on your operating system, but it is safer to configure it
yourself.
To set the number of semaphores, you need to pass an argument in the usual
Apache::Session style. The name of the argument is NSems, and the value is
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/TestServer.pm view on Meta::CPAN
if ($self->{rev}) {
debug "Matched Apache revision $self->{version} $self->{rev}";
}
else {
# guessing is not good as it'll only mislead users
# and we can't die since a config object is required
# during Makefile.PL's write_perlscript when path to httpd may
# be unknown yet. so default to non-existing version 0 for now.
# and let TestRun.pm figure out the required pieces
debug "can't figure out Apache revision, from string: " .
view all matches for this distribution
view release on metacpan or search on metacpan
0.03 Fri Jun 4 1999
- Use prerequisites to get CPAN to install the Time::HiRes module
if it's not already installed
0.02 Fri Aug 14 1998
- Set headers_out correctly (guess mod_usertrack have a bug we
don't have then ,-), thanks to DougM for the fix
0.01 Tue Aug 11 1998
- original version; posted on the modperl list
view all matches for this distribution
view release on metacpan or search on metacpan
Wyrd/Interfaces/Dater.pm view on Meta::CPAN
return $self->_normalize_year($year);
}
=item _normalize_year
Given a year in digits (2 or 4 are best), attempt a guess as to which year is
meant. Uses the simple 50-year window method for interpreting 2 digit
years. Used internally.
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/iNcom.pm view on Meta::CPAN
ENABLED for Apache::iNcom to function. Fortunately, Apache::iNcom
detects if the user has cookies turned off and will send the user an
error.
Cookies are used for security and confidentiality. The session id is a
truly random 128bits number, which is make it very much unguessable.
That means that you can't try to stomp into another user's session.
That is a good thing since having access to the session id means
having access to a whole bunch of informations. (What information is
application specific.) IP address aren't used to restrict the session
access because of the various problems with proxies and other Internet
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view all matches for this distribution
view release on metacpan or search on metacpan
generic_reg_auth_scheme.txt view on Meta::CPAN
# dunno what this is.
DefaultTarget partial or full URL
You also need this to get people to log in (although I'm not exactly sure
why; I guess it's so that login() gets called, but why can't we check for
credentials and log them in at the same point that we redirect them off to
the login form?):
<Location /LOGIN>
AuthType Apache::AuthCookieDBI
view all matches for this distribution
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/ClickPath.pm view on Meta::CPAN
C<ClickPathSessionPrefix> is set to C<-S:> the session identifier would be
C<s9NNNd:doBAYNNNiaNQOtNNNNNM>.
Starting with version 1.8 a checksum is included in the session ID. Further,
some parts of the information contained in the session including the checksum
can be encrypted. This both makes a valid session ID hard to guess. If an
invalid session ID is detected an error message is printed to the ErrorLog.
So, a log watching agent can be set up to catch frequent abuses.
If no session identifier is found a new one is created.
lib/Apache2/ClickPath.pm view on Meta::CPAN
=item B<ClickPathSecret>
=item B<ClickPathSecretIV>
if you want to run something like a shop with our session identifiers they
must be unguessable. That means knowing a valid session ID it must be
difficult to guess another one. With these directives a significant part
of the session ID is encrypted with Blowfish in the cipher block chaining
mode thus making the session ID unguessable. C<ClickPathSecret> specifies
the key, C<ClickPathSecretIV> the initialization vector.
C<ClickPathSecretIV> is a simple string of arbitrary length. The first 8
bytes of its MD5 digest are used as initialization vector. If omitted the
string C<abcd1234> is the IV.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
view all matches for this distribution
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
docsrc/features.xml view on Meta::CPAN
</listitem>
</itemizedlist>
<para>
This approach parallels the division of the job responsibilities of a large web development team.
The programmers can focus on the Model, the designers on the View, and the content
administrators on the (you guessed it!) Content. PageKit provides the Controller which glues
everything together.
</para>
<para>
This way everybody can focus on what they do best, whether it is programming, design, or
content. Since the interfaces are simple and well-defined they can easily work together without
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/PodBrowser.pm view on Meta::CPAN
C<src="Apache2%3A%3APodBrowser/torsten-foertsch.jpg"> or put a C<./>
in front of the link.
A note about the content type of linked documents. C<Apache::PodBrowser>
does not enter a new request cycle to ship these documents. So, the normal
Apache Content-Type guessing does not take place. C<Apache::PodBrowser> knows
a few file name extensions (C<png>, C<jpg>, C<jpeg>, C<gif>, C<js>,
C<pdf> and C<html>). For those it sends the correct Content-Type headers.
All other documents are shipped as C<application/octet-stream>.
If a document needs a different Content-Type header it can be passed as
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/Proxy.pm view on Meta::CPAN
}
# if the charset wasn't in the http header look for meta-equiv
unless ($charset) {
# default charset for HTTP::Message - if it couldn't guess it will
# have decoded as 8859-1, so we need to match that when
# re-encoding
return $charset || "ISO-8859-1";
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/SSI.pm view on Meta::CPAN
Sets the debug level. Starting from 3, this will output on the STDERR or in Apache error log a lot of debugging output.
=item C<document_root>
This is only necessary to be provided if this is not running under Apache mod_perl. Without this value, L<Apache2::SSI> has no way to guess the document root and will not be able to function properly and will return an L</error>.
=item C<document_uri>
This is only necessary to be provided if this is not running under Apache mod_perl. This must be the uri of the document being served, such as C</my/path/index.html>. So, if you are using this outside of the rim of Apache mod_perl and your file resid...
view all matches for this distribution
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view all matches for this distribution