Apache-Wyrd

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

    Apache::Cookie:                0
    Apache::Request:               0
    Apache::URI:                   0
    Apache::Util:                  0
    BerkeleyDB:                    0.23
    Class::Singleton:              0
    Crypt::Blowfish:               0
    DBI:                           0
    Digest::SHA:                   0
    HTML::Entities:                0
    HTTP::Request::Common:         0
    LWP::UserAgent:                0
    MIME::Base64:                  0
    XML::Dumper:                   0.67
meta-spec:
    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
    version: 1.3

Makefile.PL  view on Meta::CPAN

	'PREREQ_PM'		=> {
		Apache					=>	1.26,
		Apache::Constants		=>	0,
		Apache::URI				=>	0,
		Apache::Util			=>	0,
		BerkeleyDB				=>	.23,
		Class::Singleton		=>	0,
		DBI						=>	0,
		Digest::SHA			=>	0,
		HTML::Entities			=>	0,
		HTTP::Request::Common	=>	0,
		LWP::UserAgent			=>	0,
		MIME::Base64			=>	0,
		XML::Dumper				=>	.67,
		$blowfish				=>	0,
		$cgi					=>	0,
		$cookie					=>	0
	},
	AUTHOR			=> 'barry king <wyrd@nospam.wyrdwright.com>',
	clean			=> {
			FILES	=> q(

Makefile.PL  view on Meta::CPAN

my $wyrd_version = $makefile->{VERSION};
my $perl_version = $];
my $os = $^O;
my $bdb = $BerkeleyDB::db_version;
my $error = 0;
my $ua = undef;
my $url = 'http://www.wyrdwright.com/wyrd/wyrd_counter.html';

eval('use LWP::UserAgent');
$error ||= $@;
eval('use HTTP::Request::Common');
$error ||= $@;
eval('$ua = LWP::UserAgent->new');
$error ||= $@;
eval('$ua->timeout(20)');
$error ||= $@;

exit 0 if ($error);

print <<__MSG__;

Makefile.PL  view on Meta::CPAN

__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);
	$ua->request(POST $url,
		[
			perl		=>	$perl_version,
			mod_perl	=>	$mod_perl_version,
			os			=>	$os,
			bdb			=>	$bdb,
			wyrds		=>	$wyrd_version
		]

Wyrd/Input/URLInput.pm  view on Meta::CPAN

package Apache::Wyrd::Input::URLInput;
use strict;
use base qw(Apache::Wyrd::Input);
use LWP::UserAgent;
use HTTP::Request::Common;
our $VERSION = '0.98';

=pod

=head1 NAME

Apache::Wyrd::Input::URLInput - Check URLs as inputs

=head1 SYNOPSIS

Wyrd/Services/Auth.pm  view on Meta::CPAN

our $VERSION = '0.98';
use Apache::Wyrd::Services::CodeRing;
use Apache::Wyrd::Services::TicketPad;
use Digest::SHA qw(sha256_hex);
use Apache::Wyrd::Request;
use Apache::Constants qw(AUTH_REQUIRED HTTP_SERVICE_UNAVAILABLE REDIRECT DECLINED);
use Apache::Wyrd::Cookie;
use Apache::URI;
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Request::Common;

=pod

=head1 NAME

Apache::Wyrd::Services::Auth - Cookie-based authorization handler

=head1 SYNOPSIS

    <Directory /var/www/restricted/>

Wyrd/Services/LoginServer.pm  view on Meta::CPAN

package Apache::Wyrd::Services::LoginServer;
our $VERSION = '0.98';
use Apache::Wyrd::Services::CodeRing;
use Apache::Wyrd::Services::TicketPad;
use Apache::Wyrd::Request;
use Apache::Constants qw(AUTH_REQUIRED HTTP_SERVICE_UNAVAILABLE HTTP_MOVED_TEMPORARILY NOT_FOUND OK);
use Apache::Util;
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Request::Common;

=pod

=head1 NAME

Apache::Wyrd::Services::LoginServer - Login service For Auth object

=head1 SYNOPSIS

  <Location /logins/login.html>

Wyrd/Services/PreAuth.pm  view on Meta::CPAN

use 5.006;
use strict;
use warnings;
no warnings qw(uninitialized);

package Apache::Wyrd::Services::PreAuth;
our $VERSION = '0.98';
use base qw(Apache::Wyrd::Services::Auth);
use Apache::Constants qw(OK);
use LWP::UserAgent;
use HTTP::Request::Common;

=pod

=head1 NAME

Apache::Wyrd::Services::PreAuth - Login to Apache::Wyrd::Services::Auth directly

=head1 SYNOPSIS

  <Directory /www/someplace/preauth>

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

package Apache::Wyrd::Site::Index;
use base qw(Apache::Wyrd::Services::Index);
use Apache::Wyrd::Services::SAK qw(:file);
use HTTP::Request::Common;
use BerkeleyDB;
our $VERSION = '0.98';
use strict;

=pod

=head1 NAME

Apache::Wyrd::Site::Index - Wrapper Index for the Apache::Wyrd::Site classes

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

package Apache::Wyrd::Site::IndexBot;
use strict;
use base qw(Apache::Wyrd::Bot);
use Apache::Wyrd::Services::SAK qw(:file);
use HTTP::Request::Common;
use BerkeleyDB;
our $VERSION = '0.98';

=pod

=head1 NAME

Apache::Wyrd::Site::IndexBot - Sample 'bot for forcing index builds

=head1 SYNOPSIS

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

use 5.006;
use strict;
use warnings;
no warnings qw(uninitialized);

package Apache::Wyrd::Site::Login;
use base qw(Apache::Wyrd::Interfaces::Setter Apache::Wyrd);
use Apache::Constants qw(OK);
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Request::Common;
our $VERSION = '0.98';

=pod

=head1 NAME

Apache::Wyrd::Site::Login - HTML Interface for Apache::Wyrd::Services::(Pre)Auth

=head1 SYNOPSIS

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

package Apache::Wyrd::Site::MySQLIndex;
use strict;
use base qw(Apache::Wyrd::Services::MySQLIndex);
use Apache::Wyrd::Services::SAK qw(:file);
use HTTP::Request::Common;
our $VERSION = '0.98';

=pod

=head1 NAME

Apache::Wyrd::Site::MySQLIndex - Wrapper MySQLIndex for the Site classes

=head1 SYNOPSIS