Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Builtin.pm	9.77 KB	-rw-r--r--
CGI_SSI.pm	7.9 KB	-rw-r--r--
Div.pm	8.96 KB	-rw-r--r--
Fast.pm	6.22 KB	-rw-r--r--
HTML.pm	13.55 KB	-rw-r--r--
TT2.pm	6.87 KB	-rw-r--r--
Text.pm	9.38 KB	-rw-r--r--

Code Editor : CGI_SSI.pm

###########################################################################
# Copyright (c) Nate Wiger http://nateware.com. All Rights Reserved.
# Please visit http://formbuilder.org for tutorials, support, and examples.
###########################################################################

package CGI::FormBuilder::Template::CGI_SSI;

=head1 NAME

CGI::FormBuilder::Template::CGI_SSI - FormBuilder interface to CGI::SSI

=head1 SYNOPSIS

my $form = CGI::FormBuilder->new(
                    fields   => \@fields,
                    template => {
                      type => 'CGI_SSI',
                      file => "template.html",
                    },
               );

=cut

use Carp;
use strict;
use warnings;
no  warnings 'uninitialized';

use CGI::FormBuilder::Util;
use CGI::SSI;
use base 'CGI::SSI';

our $VERSION = '3.10';

#
# For legacy reasons, and due to its somewhat odd interface, 
# CGI::SSI vars use a completely different naming scheme.
#
our %FORM_VARS = (
    'js-head'       =>  'jshead',
    'form-title'    =>  'title',
    'form-start'    =>  'start',
    'form-submit'   =>  'submit',
    'form-reset'    =>  'reset',
    'form-end'      =>  'end',
    'form-invalid'  =>  'invalid',
    'form-required' =>  'required',
);

our %FIELD_VARS = map { $_ => "$_-%s" } qw(
    field
    value
    label
    type
    comment
    required
    error
    invalid 
    missing
    nameopts
    cleanopts
);

sub new {
    my $self  = shift;
    my $class = ref($self) || $self;
    my $opt   = arghash(@_);

$opt->{die_on_bad_params} = 0;    # force to avoid blow-ups

my %opt2 = %$opt;
    delete $opt2{virtual};
    delete $opt2{file};
    delete $opt2{string};
    $opt->{engine} = CGI::SSI->new(%opt2);

return bless $opt, $class;     # rebless
}

sub engine {
    return shift()->{engine};
}

sub render {
    my $self = shift;
    my $tvar = shift || puke "Missing template expansion hashref (\$form->prepare failed?)";

while(my($to, $from) = each %FORM_VARS) {
        debug 1, "renaming attr $from to: <!--#echo var=\"$to\">";
        $tvar->{$to} = "$tvar->{$from}";
    }

#
    # For CGI::SSI, each data struct is manually assigned
    # to a separate "
    #
    my @fieldlist;
    for my $field (@{$tvar->{fields}}) {

# Field name is usually a good idea
        my $name = $field->{name};
        debug 1, "expanding field: $name";

# Get all values
        my @value   = @{$tvar->{field}{$name}{values}  || []};
        my @options = @{$tvar->{field}{$name}{options} || []};

#
        # Auto-expand all of our field tags, such as field, label, value
        # comment, error, etc, etc
        #
        my %all_loop;
        while(my($key, $str) = each %FIELD_VARS) {
            my $var = sprintf $str, $name;
            $all_loop{$key} = $tvar->{field}{$name}{$key};
            $tvar->{$var}   = "$tvar->{field}{$name}{$key}";   # fuck Perl
            debug 2, "<!--#echo var=\"$var\"> = " . $all_loop{$str};
        }
    }
    # kill our previous fields list
    $tvar->{fields} = \@fieldlist;

# loop thru each field we have and set the tmpl_param
    while(my($param, $tag) = each %$tvar) {
        $self->{engine}->set($param => $tag);
    }

# template output
    SWITCH: {
        if($self->{virtual}) {
            return $self->engine->include(virtual=>$self->{virtual});
        }
        if($self->{file}) {
            return $self->engine->include(file=>$self->{file});
        }
        if($self->{string}) {
            return $self->engine->process($self->{string});
        }
    }
}

1;
__END__

=head1 DESCRIPTION

This engine adapts B<FormBuilder> to use C<CGI::SSI>.

You can specify any options which C<< CGI::SSI->new >>
accepts by using a hashref:

my $form = CGI::FormBuilder->new(
                    fields => \@fields,
                    template => {
                        type => 'CGI::SSI',
                        file => 'form.shtml',
                        sizefmt => 'abbrev'
                    }
                );

In addition to CGI::SSI B<new> arguments, you can also
specify C<file>, C<virtual>, or C<string> argument.

The following methods are provided (usually only used internally):

=head2 engine

Returns a reference to the C<CGI::SSI> object

=head2 prepare

Returns a hash of all the fields ready to be rendered.

=head2 render

Uses the prepared hash and expands the template, returning a string of HTML.

=head1 TEMPLATES

In your template, each of the form fields will correspond directly to
a C<<  >> of the same name prefixed with "field-" in the
template. So, if you defined a field called "email", then you would
setup a variable called C<<  >> in your template.

In addition, there are a couple special fields:

-  JavaScript to stick in <head>
      -  The <title> of the HTML form
      -  Opening <form> tag and internal fields
     -  The submit button(s)
      -  The reset button
        -  Just the closing </form> tag

Let's look at an example C<form.html> template we could use:

<html>
    <head>
    <title>User Information</title>
    
    </head>
    
    <h3>User Information</h3>
    Please fill out the following information:
    's corresponds to a field -->
    <p>Your full name: 
    <p>Your email address: 
    <p>Choose a password: 
    <p>Please confirm it: 
    <p>Your home zipcode: 
    <p>
    
    </form>

As you see, you get a C<<  >> for each for field you define.

However, you may want even more control. That is, maybe you want
to specify every nitty-gritty detail of your input fields, and
just want this module to take care of the statefulness of the
values. This is no problem, since this module also provides
several other C<< <tmpl_var> >> tags as well:

- The value of a given field
       - The human-readable label
     - Any optional comment
       - Error text if validation fails
     - See if the field is required

This means you could say something like this in your template:

:
    <input type="text" name="email" value="">
    <font size="-1"><i></i></font>

And B<FormBuilder> would take care of the value stickiness for you,
while you have control over the specifics of the C<< <input> >> tag.
A sample expansion may create HTML like the following:

Email:
    <input type="text" name="email" value="nate@wiger.org">
    <font size="-1"><i>You must enter a valid value</i></font>

Note, though, that this will only get the I<first> value in the case
of a multi-value parameter (for example, a multi-select list).
Multiple values (loops) in C<< CGI_SSI >> are not yet implemented.

For more information on templates, see L<HTML::Template>.

=head1 SEE ALSO

L<CGI::FormBuilder>, L<CGI::FormBuilder::Template>, L<HTML::Template>

=head1 REVISION

$Id: HTML.pm 97 2007-02-06 17:10:39Z nwiger $

=head1 AUTHOR

This module is free software; you may copy this under the terms of
the GNU General Public License, or the Artistic License, copies of
which should have accompanied your Perl kit.

=cut

${this.title}

Code Editor : CGI_SSI.pm