Apache-Wyrd

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

	print <<__MSG__;

These modules are designed to work under Apache 1.X using mod_perl 1.26
or greater (but not mod_perl 1.99 or better).  This does not seem to be
an appropriate platform.  If you know what you're doing, or if you just
want to examine these modules, you can opt to continue.  Otherwise,
please install the appropriate software before continuing.  See
http://perl.apache.org for details.

__MSG__
	my $ok = prompt('Continue (y/n)?', 'n');
	if (lc($ok) ne 'y') {
		print "OK, aborting...\n\n";
		exit 0;
	}
}

my $have_atest = 1;
my $atest_version = 0;
eval 'use Apache::Test';
unless ($@) {

Makefile.PL  view on Meta::CPAN

	$have_atest = 0;
	print <<__MSG__;

The test suite for this module requires Apache::Test version 1.08 or
better, which is apparently not available.  It is highly recommended
that you run the test suite, but it is not absolutely required.  If you
choose to continue, you may install Apache::Wyrd, but it may be
unusable.  Do you want to continue?

__MSG__
	my $ok = prompt('Continue (y/n)?', 'n');
	if (lc($ok) ne 'y') {
		print "OK, aborting...\n\n";
		exit 0;
	} else {
		print <<__MSG__;

OK. Tests will fail if you 'make test', but this will not necessarily
mean the modules are unusable.  However, if you run into problems,
please install Apache::Test v 1.08+ and run the complete test suite
(make test) before contacting the author for support.

Makefile.PL  view on Meta::CPAN

	Apache::Wyrd version: $wyrd_version
	perl version: $perl_version
	Operating System: $os
	mod_perl version: $mod_perl_version
	Berkeley DB version: $bdb

May I send this information to the Author?

__MSG__

my $ok = prompt('Send info (y/n)?', 'y');
if (lc($ok) ne 'y') {
	print "OK, I won't send it...\n\n";
	exit 0;
} else {
	print "Thanks.  Sending...\n\n";
	eval '
	use LWP::UserAgent;
	use HTTP::Request::Common;
	$ua = LWP::UserAgent->new;
	$ua->timeout(20);

Wyrd/Site/Page.pm  view on Meta::CPAN

	return \@state
}

=item (scalar) C<_check_auth> (void)

Examine the allow/deny state of the page and determine whether the user has the
clearance to view the page.  These interact with Apache::Wyrd::User-derived
objects using the Apache::Wyrd::Services::Auth conventions to determine the
user's current authorization levels.  If the page is forbidden to the public, it
will use the dir_config value "UnauthURL" to direct them to an "unauthorized
page", presumably to be prompted to log in, or failing the existence of that,
simply return an error message.

=cut


sub _check_auth {
	my ($self) = @_;
	#warn 'here, authorizing with an allow of ' . $self->{'allow'};
	if ($self->{'allow'}) {
		return undef if($self->_override_auth_conditions);