Apache-Wyrd

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

           Handler now checks for a set content-type header before
           defaulting to text/html

           Fixed error reporting problem where unblessed references
           could be unintentionally treated as objects

           Documentation changes, additional debugging info

    0.92   January 13, 2005

           SearchParser operator precidence change to AND/OR/NOT/DIFF in
           that order

           Corrected malformed searches in SearchParser

           Changes to Makefile.PL: more checks, compensation for lib
           error in Apache::Test 1.19, better reporting of software
           versions

    0.91   January 9, 2005

Changes  view on Meta::CPAN

           Wyrd Framework now works with CGI, not just libapreq/
           Apache::Request

           New Cookie object to work with either CGI or libapreq

           More interactive testing w/survey

           Added auto-preloading of values to SQL Forms

           Turned off debugging line in Apache::Wyrd which was
           accidentally left on

           No longer interpret null documents as a SERVER_ERROR

           SAK checks for Setter interface on callers to setter-required
           subroutines

    0.84   (September 3, 2004)

           Default behavior now for Text Datum objects is to trim
           whitespace

LICENSE  view on Meta::CPAN

apply and the section as a whole is intended to apply in other
circumstances.

It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices.  Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.

This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.

  8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding

Wyrd/Form.pm  view on Meta::CPAN

Forms are individual "states" that the form is in, usually signifying
the process of filling out each step of a multiple-page form.

=item _action_index

Hashref holding the action to put into the form tag when using that form
as the current form.

=item _next_form, _current_form, & _last_form

self explanatory place markers used in deciding where in the sequence of
forms the user is.

=back

=head2 PERL METHODS

I<(format: (returns) name (arguments after self))>

=over

Wyrd/Form.pm  view on Meta::CPAN

	#the first pass of _process_self. NB- subforms can't outclass this.
	$self->{'_next_form'} = $self->dbl->param('_next_form');
	$self->{'_current_form'} =  $self->dbl->param('_current_form');
	$self->{'_last_form'} = undef;
	$self->_interpret_action;
	return;
}

sub _format_output {
	my ($self) = @_;
	#Decide on current and next forms or die trying.
	$self->_raise_exception("One or more FormTemplate objects are required for each form.")
		unless ($self->{'_current_form'});#forms changed this value registering
	if (not(grep {$self->{'_current_form'} eq $_} @{$self->{'_form_index'}})) {#if we've come here from another form
		$self->{'_next_form'} = $self->{'_form_index'}->[0];
		$self->{'_current_form'} = $self->{'_form_index'}->[0];
	}
	unless ($self->{'_next_form'}) {#give cgi a chance to override
		my $last_form = undef;
		foreach my $form (@{$self->{'_form_index'}}) {#otherwise find next in sequence
			$last_form = $self->{'_next_form'};

Wyrd/Form.pm  view on Meta::CPAN

	#Check global conditions
	$self->_check_globals;

	#error -> same form, set errorconditions
	my $error = $self->_check_errors;

	#no error -> next form.  ignore_errors flag overrides error checking and forces next form.
	if ((not($error) or $self->_flags->ignore_errors)) {
		$self->{'_current_form'} = $self->{'_next_form'};
		#last form was decided by the last form to be parsed in the first pass of
		#_process_self.
		if ($self->{'_current_form'} eq $self->{'_last_form'}){
			$self->_submit_data;
			$self->_pack_data if ($self->_flags->continue);
		} else {
			$self->_pack_data;
		}
		$self->_reload_form;
	} else {
		$self->_dispatch_errors;

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

	my $thisrun = `localtime`
	$mt->lastrun($thisrun);

=head1 DESCRIPTION

MetaTable is an SQL-backed version of Apache::Wyrd::Services::Tree in
terms of functionality, but is persistent across connections, as it
stores its data in a MySQL server.

It can store hashes, arrays, and scalars.  Pass the first two as references,
the scalars as single values.  It uses the namespace of the caller to decide
the lookup key, so only the base name of the key need be specified, by
referring to $meta_table->valuename (where $metatable stores a reference to
an instance of this class).  To retreive the value of 'valuename', call the
method valuename().  To set it, call the method with a single argument.

Be careful to dispose the MetaTable handler properly across connections,
or you run the risk of "leaking" database handles into your Apache
memory space.  The best way to avoid this is to invoke the MetaTable into
a scoped lexical only.

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

=head1 SYNOPSIS

	<BASENAME::GDButton name="pushme" src="/img/pushbutton.gif" />

=head1 DESCRIPTION

GDButton produces a rectangular button with given text using the GD library.
 It can produce either image input or img tags, as requested.

GDButton uses it's membership in the Apache::Wyrd::Site::Widget class to
track changes and decide when the output file should be regenerated.  Note:
GDButton internally draws itself at 5x the regular size and scales down in
order to make a more aesthetically pleasing final result.

=head2 HTML ATTRIBUTES

=over

=item src

File attribute.  Must be absolute, relative, or root-dir-relative.  Will

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

The ordinal number of the item in the found set.

=item weighted_rank

Meaning the relative rank of the document in comparison with the others of the
found set (in percent, 100=best).

=item relevance

The generic, unweighted relevance score, based on a function of word-incidents
to document size (wordcount).

=back

To allow the individual items of the "search results" block to be related to
each other.  Additionally, if a previous search result is given in the CGI
variable "previous" and the CGI variable "within" is a non-null value (as would
be returned by a hidden INPUT tag named "previous" and a checkbox named "within",
The searcstring will be limited to the previous results.

Wyrd/User.pm  view on Meta::CPAN

=head1 SYNOPSIS

    use BASENAME::User;
    my $user = BASENAME::User->new(
      {
        username => 'fingers',
        password => 'caged whale'
      }
    );
    return AUTHORIZATION_REQUIRED unless (
        $user->auth('elucidated bretheren of the ebon night')
    );

=head1 DESCRIPTION

Provides an object for the storage of user and user-authorization information.

=head1 METHODS

I<(format: (returns) name (arguments after self))>