Modified: perl/embperl/trunk/Embperl/Form/Control/password.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Form/Control/password.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/password.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/password.pm Fri Dec 9 10:15:54 2005 @@ -1,90 +1,90 @@ - -################################################################################### -# -# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. -# -# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR -# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED -# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. -# -# $Id$ -# -################################################################################### - -package Embperl::Form::Control::password ; - -use strict ; -use base 'Embperl::Form::Control' ; - -use Embperl::Inline ; - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show_control - output the control -#] - -[$ sub show_control ($self) $] - -<input type="password" class="cBase cControl" name="[+ $self->{name} +]" -[$if $self -> {size} $]size="[+ $self->{size} +]"[$endif$] -[$if $self -> {maxlength} $]size="[+ $self->{maxlength} +]"[$endif$] -> -[$endsub$] - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::password - A password input control inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'password', - text => 'blabla', - name => 'foo', - size => 10, - } - -=head1 DESCRIPTION - -Used to create a password control inside an Embperl Form. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'password' - -=head3 text - -Will be used as label for the text input control - -=head3 size - -Gives the size in characters - -=head3 maxlength - -Gives the maximun length in characters - -=head1 Author - -G. Richter ([EMAIL PROTECTED]) - -=head1 See Also - -perl(1), Embperl, Embperl::Form - - + +################################################################################### +# +# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de +# +# You may distribute under the terms of either the GNU General Public +# License or the Artistic License, as specified in the Perl README file. +# +# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# $Id$ +# +################################################################################### + +package Embperl::Form::Control::password ; + +use strict ; +use base 'Embperl::Form::Control' ; + +use Embperl::Inline ; + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show_control - output the control +#] + +[$ sub show_control ($self) $] + +<input type="password" class="cBase cControl" name="[+ $self->{name} +]" +[$if $self -> {size} $]size="[+ $self->{size} +]"[$endif$] +[$if $self -> {maxlength} $]size="[+ $self->{maxlength} +]"[$endif$] +> +[$endsub$] + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::password - A password input control inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'password', + text => 'blabla', + name => 'foo', + size => 10, + } + +=head1 DESCRIPTION + +Used to create a password control inside an Embperl Form. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'password' + +=head3 text + +Will be used as label for the text input control + +=head3 size + +Gives the size in characters + +=head3 maxlength + +Gives the maximun length in characters + +=head1 Author + +G. Richter ([EMAIL PROTECTED]) + +=head1 See Also + +perl(1), Embperl, Embperl::Form + +
Modified: perl/embperl/trunk/Embperl/Form/Control/radio.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Form/Control/radio.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/radio.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/radio.pm Fri Dec 9 10:15:54 2005 @@ -1,115 +1,115 @@ - -################################################################################### -# -# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. -# -# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR -# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED -# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. -# -# $Id$ -# -################################################################################### - -package Embperl::Form::Control::radio ; - -use strict ; -use base 'Embperl::Form::ControlMultValue' ; - -use Embperl::Inline ; - - - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show_control - output the control -#] - -[$ sub show_control ($self) - - my ($values, $options) = $self -> get_values ; - my $name = $self -> {name} ; - my $max = @$values ; - - my $val ; - my $i = 0 ; -$] -[$ foreach $val (@$values) $] - <input type="radio" name="[+ $name +]" value="[+ $val +]" - [$if ($self -> {sublines} || $self -> {subobjects}) $] OnClick="show_radio_checked(this,[+ $i +],[+ $max +])" [$endif$] - >[+ $options ->[$i] || $val +] - [- $vert = $self -> {vert} -][$while $vert-- > 0 $]<br/>[$endwhile$] - [* $i++ ; *] -[$endforeach$] - - -[$endsub$] - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::radio - A radio control inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'radio', - text => 'blabla', - name => 'foo', - values => [1,2,3], - options => ['foo', 'bar', 'none'], - } - -=head1 DESCRIPTION - -Used to create an radio control inside an Embperl Form. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'radio' - -=head3 name - -Specifies the name of the radio control - -=head3 text - -Will be used as label for the radio control - -=head3 values - -Gives the values as an array ref of the radio control. - -=head3 options - -Gives the options as an array ref that should be displayed to the user. -If no options are given, the values from values are used. - -=head3 vert - -If specified arranges the radio button vertically. The number given specifies -the number of <br>'s used the separate the radio buttons. - -=head1 Author - -G. Richter ([EMAIL PROTECTED]) - -=head1 See Also - -perl(1), Embperl, Embperl::Form - - + +################################################################################### +# +# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de +# +# You may distribute under the terms of either the GNU General Public +# License or the Artistic License, as specified in the Perl README file. +# +# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# $Id$ +# +################################################################################### + +package Embperl::Form::Control::radio ; + +use strict ; +use base 'Embperl::Form::ControlMultValue' ; + +use Embperl::Inline ; + + + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show_control - output the control +#] + +[$ sub show_control ($self) + + my ($values, $options) = $self -> get_values ; + my $name = $self -> {name} ; + my $max = @$values ; + + my $val ; + my $i = 0 ; +$] +[$ foreach $val (@$values) $] + <input type="radio" name="[+ $name +]" value="[+ $val +]" + [$if ($self -> {sublines} || $self -> {subobjects}) $] OnClick="show_radio_checked(this,[+ $i +],[+ $max +])" [$endif$] + >[+ $options ->[$i] || $val +] + [- $vert = $self -> {vert} -][$while $vert-- > 0 $]<br/>[$endwhile$] + [* $i++ ; *] +[$endforeach$] + + +[$endsub$] + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::radio - A radio control inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'radio', + text => 'blabla', + name => 'foo', + values => [1,2,3], + options => ['foo', 'bar', 'none'], + } + +=head1 DESCRIPTION + +Used to create an radio control inside an Embperl Form. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'radio' + +=head3 name + +Specifies the name of the radio control + +=head3 text + +Will be used as label for the radio control + +=head3 values + +Gives the values as an array ref of the radio control. + +=head3 options + +Gives the options as an array ref that should be displayed to the user. +If no options are given, the values from values are used. + +=head3 vert + +If specified arranges the radio button vertically. The number given specifies +the number of <br>'s used the separate the radio buttons. + +=head1 Author + +G. Richter ([EMAIL PROTECTED]) + +=head1 See Also + +perl(1), Embperl, Embperl::Form + + Modified: perl/embperl/trunk/Embperl/Form/Control/select.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Form/Control/select.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/select.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/select.pm Fri Dec 9 10:15:54 2005 @@ -1,111 +1,111 @@ - -################################################################################### -# -# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. -# -# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR -# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED -# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. -# -# $Id$ -# -################################################################################### - -package Embperl::Form::Control::select ; - -use strict ; -use base 'Embperl::Form::ControlMultValue' ; - -use Embperl::Inline ; - - - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show_control - output the control -#] - -[$ sub show_control ($self) - - my ($values, $options) = $self -> get_values ; - my $name = $self -> {name} ; - my $val ; -$] -<select class="cBase cControl" name="[+ $name +]" id="[+ $name +]" -[$if ($self -> {sublines} || $self -> {subobjects}) $] OnChange="show_selected(this)" [$endif$] -[$if ($self -> {rows}) $] size="[+ $self->{rows} +]" [$endif$] -> - <option value="[+ do { $val = $values -> [$row] } +]">[+ $options ->[$row] || $val +]</option> -</select> - -[$endsub$] - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::select - A select control inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'select', - text => 'blabla', - name => 'foo', - values => [1,2,3], - options => ['foo', 'bar', 'none'], - rows => 5 - } - -=head1 DESCRIPTION - -Used to create an select control inside an Embperl Form. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'select' - -=head3 name - -Specifies the name of the select control - -=head3 text - -Will be used as label for the select control - -=head3 values - -Gives the values as an array ref of the select control. - -=head3 options - -Gives the options as an array ref that should be displayed to the user. -If no options are given, the values from values are used. - -=head3 rows - -If specified a select box is display with the given number of lines. -If not specified or undef, a drop down list is shown. - -=head1 Author - -G. Richter ([EMAIL PROTECTED]) - -=head1 See Also - -perl(1), Embperl, Embperl::Form - - + +################################################################################### +# +# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de +# +# You may distribute under the terms of either the GNU General Public +# License or the Artistic License, as specified in the Perl README file. +# +# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# $Id$ +# +################################################################################### + +package Embperl::Form::Control::select ; + +use strict ; +use base 'Embperl::Form::ControlMultValue' ; + +use Embperl::Inline ; + + + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show_control - output the control +#] + +[$ sub show_control ($self) + + my ($values, $options) = $self -> get_values ; + my $name = $self -> {name} ; + my $val ; +$] +<select class="cBase cControl" name="[+ $name +]" id="[+ $name +]" +[$if ($self -> {sublines} || $self -> {subobjects}) $] OnChange="show_selected(this)" [$endif$] +[$if ($self -> {rows}) $] size="[+ $self->{rows} +]" [$endif$] +> + <option value="[+ do { $val = $values -> [$row] } +]">[+ $options ->[$row] || $val +]</option> +</select> + +[$endsub$] + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::select - A select control inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'select', + text => 'blabla', + name => 'foo', + values => [1,2,3], + options => ['foo', 'bar', 'none'], + rows => 5 + } + +=head1 DESCRIPTION + +Used to create an select control inside an Embperl Form. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'select' + +=head3 name + +Specifies the name of the select control + +=head3 text + +Will be used as label for the select control + +=head3 values + +Gives the values as an array ref of the select control. + +=head3 options + +Gives the options as an array ref that should be displayed to the user. +If no options are given, the values from values are used. + +=head3 rows + +If specified a select box is display with the given number of lines. +If not specified or undef, a drop down list is shown. + +=head1 Author + +G. Richter ([EMAIL PROTECTED]) + +=head1 See Also + +perl(1), Embperl, Embperl::Form + + Modified: perl/embperl/trunk/Embperl/Form/Control/submit.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Form/Control/submit.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/submit.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/submit.pm Fri Dec 9 10:15:54 2005 @@ -1,109 +1,109 @@ - -################################################################################### -# -# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. -# -# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR -# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED -# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. -# -# $Id$ -# -################################################################################### - -package Embperl::Form::Control::submit ; - -use strict ; -use base 'Embperl::Form::Control' ; - -use Embperl::Inline ; - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show - output the control -#] - -[$ sub show ($self, $data) - -my $span = ($self->{width_percent}) ; -$] -<td class="cBase cControlBox cControlButtonBox" colspan="[+ $span +]"> -<input class="cBase cControl cControlButton" name="[+ $self->{name} +]" -value="[+ $self->{value} || $self->{text} +]" -title="[+ $self->{text} +]" -[$if $self -> {novalidate} $] onClick="doValidate = 0;" [$endif$] -[$if $self -> {image} $] -type="image" src="[+ $self -> {image} +]" -[$else$] -type="submit" -[$endif$] -> -</td> -[$endsub$] - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::submit - A submit button inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'submit', - text => 'send', - name => 'foo', - value => 'xxx', - image => 'xxx', - } - -=head1 DESCRIPTION - -Used to create an submit control inside an Embperl Form. -If an image is given it will create an image button. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'submit' - -=head3 name - -Name of the button - -=head3 text - -Will be used as label for the submit button or tool tip -in case of an image button - -=head3 value - -Gives the value to send - -=head3 image - -URL of an image. If given an image button will be created, -if absent, an normal submit button will be created. - - -=head1 Author - -G. Richter ([EMAIL PROTECTED]) - -=head1 See Also - -perl(1), Embperl, Embperl::Form - - + +################################################################################### +# +# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de +# +# You may distribute under the terms of either the GNU General Public +# License or the Artistic License, as specified in the Perl README file. +# +# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# $Id$ +# +################################################################################### + +package Embperl::Form::Control::submit ; + +use strict ; +use base 'Embperl::Form::Control' ; + +use Embperl::Inline ; + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show - output the control +#] + +[$ sub show ($self, $data) + +my $span = ($self->{width_percent}) ; +$] +<td class="cBase cControlBox cControlButtonBox" colspan="[+ $span +]"> +<input class="cBase cControl cControlButton" name="[+ $self->{name} +]" +value="[+ $self->{value} || $self->{text} +]" +title="[+ $self->{text} +]" +[$if $self -> {novalidate} $] onClick="doValidate = 0;" [$endif$] +[$if $self -> {image} $] +type="image" src="[+ $self -> {image} +]" +[$else$] +type="submit" +[$endif$] +> +</td> +[$endsub$] + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::submit - A submit button inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'submit', + text => 'send', + name => 'foo', + value => 'xxx', + image => 'xxx', + } + +=head1 DESCRIPTION + +Used to create an submit control inside an Embperl Form. +If an image is given it will create an image button. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'submit' + +=head3 name + +Name of the button + +=head3 text + +Will be used as label for the submit button or tool tip +in case of an image button + +=head3 value + +Gives the value to send + +=head3 image + +URL of an image. If given an image button will be created, +if absent, an normal submit button will be created. + + +=head1 Author + +G. Richter ([EMAIL PROTECTED]) + +=head1 See Also + +perl(1), Embperl, Embperl::Form + + Modified: perl/embperl/trunk/Embperl/Form/Control/tabs.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Form/Control/tabs.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/tabs.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/tabs.pm Fri Dec 9 10:15:54 2005 @@ -1,196 +1,196 @@ - -################################################################################### -# -# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. -# -# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR -# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED -# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. -# -# $Id$ -# -################################################################################### - -package Embperl::Form::Control::tabs ; - -use strict ; -use vars qw{%fdat} ; - -use Embperl::Form::ControlMultValue ; -use base 'Embperl::Form::ControlMultValue' ; - -use Embperl::Inline ; - -# --------------------------------------------------------------------------- -# -# new - create a new control -# - - -sub new - - { - my ($class, $args) = @_ ; - - my $self = Embperl::Form::ControlMultValue -> new($args) ; - bless $self, $class ; - - $self -> {width} = 1 ; - return $self ; - } - -# --------------------------------------------------------------------------- -# -# noframe - do not draw frame border if this is the first control -# - - -sub noframe - - { - return 1 ; - } - -# --------------------------------------------------------------------------- -# -# get_active_id - get the id of the value which is currently active -# - -sub get_active_id - - { - my ($self) = @_ ; - - my ($values, $options) = $self -> get_values ; - my $name = $self -> {name} ; - my $dataval = $fdat{$name} || $values -> [0] ; - my $activeid ; - - my $i = 0 ; - foreach my $val (@$values) - { - if ($val eq $dataval || $self -> {subids}[$i] eq $dataval) - { - $activeid = $self -> {subids}[$i] ; - last ; - } - $i++ ; - } - - return $activeid || $self -> {subids}[0]; - } - - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show - output the control -#] - -[$ sub show ($self) - - my ($values, $options) = $self -> get_values ; - my $span = ($self->{width_percent}) ; - my $name = $self -> {name} ; - my $dataval = $fdat{$name} || $values -> [0] ; - my $activeid = $self -> get_active_id ; - - my $val ; - my $i = 0 ; -$] - -<td class="cBase cTabTD" colspan="[+ $span +]"> - <table class="cBase cTabTable" ><tr class="cBase cTabRow"> - [$ foreach $val (@$values) $] - [* - my $id = $self -> {subids}[$i] ; - my $cellclass = $id eq $activeid?'cTabCellOn':'cTabCellOff' ; - my $divclass = $id eq $activeid?'cTabDivOn':'cTabDivOff' ; - - my $form = $self -> form ; - my @switch_code ; - - foreach my $sub (@{$form -> {controls}}) - { - my $code = $sub -> get_on_show_code ; - push @switch_code, $code if ($code) ; - } - my $js = join (';', @switch_code) ; - *] - <td class="cBase $cellclass"><div class="cBase [+ $divclass +]" id="__tabs_[+ $id +]"> - <a href="#" onClick="tab_selected('[+ $id +]','[+ $name +]'); [+ do { local $escmode = 0 ; $js } +]" style="color:black; text-decoration: none;">[+ $options ->[$i] || $val +]</a></div></td> - [* $i++ *] - [$endforeach $] - <td class="cBase cTabCellBlank"> </td> - <input type="hidden" name="[+ $name +]" id="[+ $name +]" value="[+ $activeid +]"> - </tr></table> -</td> -[$endsub$] - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::tabs - A tab control inside an Embperl Form - - -=head1 SYNOPSIS - - Embperl::Form -> add_tabs ( - [ - { - text => 'First Tab', - fields => [ - ... - ] - }, - { - text => 'Second Tab', - fields => [ - ... - ] - } - ]) - - - -=head1 DESCRIPTION - -Control to display tabs at the top of the form and control the switching between sub forms. -The switching is done by Javascript, so it can only be used in environment where -Javascript is available. - -You can use the method Embperl::Form -> add_tabs -to setup a tabbed form. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - - -=head3 text - -Text that will be displayed on the tab - -=head3 fields - -List of fields that should be displayed in this subform. -Given in the same form as form Embperl::Form. - - -=head1 Author - -G. Richter ([EMAIL PROTECTED]) - -=head1 See Also - -perl(1), Embperl, Embperl::Form - - + +################################################################################### +# +# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de +# +# You may distribute under the terms of either the GNU General Public +# License or the Artistic License, as specified in the Perl README file. +# +# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# $Id$ +# +################################################################################### + +package Embperl::Form::Control::tabs ; + +use strict ; +use vars qw{%fdat} ; + +use Embperl::Form::ControlMultValue ; +use base 'Embperl::Form::ControlMultValue' ; + +use Embperl::Inline ; + +# --------------------------------------------------------------------------- +# +# new - create a new control +# + + +sub new + + { + my ($class, $args) = @_ ; + + my $self = Embperl::Form::ControlMultValue -> new($args) ; + bless $self, $class ; + + $self -> {width} = 1 ; + return $self ; + } + +# --------------------------------------------------------------------------- +# +# noframe - do not draw frame border if this is the first control +# + + +sub noframe + + { + return 1 ; + } + +# --------------------------------------------------------------------------- +# +# get_active_id - get the id of the value which is currently active +# + +sub get_active_id + + { + my ($self) = @_ ; + + my ($values, $options) = $self -> get_values ; + my $name = $self -> {name} ; + my $dataval = $fdat{$name} || $values -> [0] ; + my $activeid ; + + my $i = 0 ; + foreach my $val (@$values) + { + if ($val eq $dataval || $self -> {subids}[$i] eq $dataval) + { + $activeid = $self -> {subids}[$i] ; + last ; + } + $i++ ; + } + + return $activeid || $self -> {subids}[0]; + } + + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show - output the control +#] + +[$ sub show ($self) + + my ($values, $options) = $self -> get_values ; + my $span = ($self->{width_percent}) ; + my $name = $self -> {name} ; + my $dataval = $fdat{$name} || $values -> [0] ; + my $activeid = $self -> get_active_id ; + + my $val ; + my $i = 0 ; +$] + +<td class="cBase cTabTD" colspan="[+ $span +]"> + <table class="cBase cTabTable" ><tr class="cBase cTabRow"> + [$ foreach $val (@$values) $] + [* + my $id = $self -> {subids}[$i] ; + my $cellclass = $id eq $activeid?'cTabCellOn':'cTabCellOff' ; + my $divclass = $id eq $activeid?'cTabDivOn':'cTabDivOff' ; + + my $form = $self -> form ; + my @switch_code ; + + foreach my $sub (@{$form -> {controls}}) + { + my $code = $sub -> get_on_show_code ; + push @switch_code, $code if ($code) ; + } + my $js = join (';', @switch_code) ; + *] + <td class="cBase $cellclass"><div class="cBase [+ $divclass +]" id="__tabs_[+ $id +]"> + <a href="#" onClick="tab_selected('[+ $id +]','[+ $name +]'); [+ do { local $escmode = 0 ; $js } +]" style="color:black; text-decoration: none;">[+ $options ->[$i] || $val +]</a></div></td> + [* $i++ *] + [$endforeach $] + <td class="cBase cTabCellBlank"> </td> + <input type="hidden" name="[+ $name +]" id="[+ $name +]" value="[+ $activeid +]"> + </tr></table> +</td> +[$endsub$] + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::tabs - A tab control inside an Embperl Form + + +=head1 SYNOPSIS + + Embperl::Form -> add_tabs ( + [ + { + text => 'First Tab', + fields => [ + ... + ] + }, + { + text => 'Second Tab', + fields => [ + ... + ] + } + ]) + + + +=head1 DESCRIPTION + +Control to display tabs at the top of the form and control the switching between sub forms. +The switching is done by Javascript, so it can only be used in environment where +Javascript is available. + +You can use the method Embperl::Form -> add_tabs +to setup a tabbed form. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + + +=head3 text + +Text that will be displayed on the tab + +=head3 fields + +List of fields that should be displayed in this subform. +Given in the same form as form Embperl::Form. + + +=head1 Author + +G. Richter ([EMAIL PROTECTED]) + +=head1 See Also + +perl(1), Embperl, Embperl::Form + + Modified: perl/embperl/trunk/Embperl/Form/Control/textarea.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Form/Control/textarea.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/textarea.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/textarea.pm Fri Dec 9 10:15:54 2005 @@ -1,91 +1,91 @@ - -################################################################################### -# -# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. -# -# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR -# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED -# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. -# -# $Id$ -# -################################################################################### - -package Embperl::Form::Control::textarea ; - -use strict ; -use base 'Embperl::Form::Control' ; - -use Embperl::Inline ; - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show_control - output the control -#] - -[$ sub show_control ($self) $] - -<textarea type="text" class="cBase cControl" name="[+ $self->{name} +]" -[$if $self -> {cols} $]cols="[+ $self->{cols} +]"[$endif$] -[$if $self -> {rows} $]rows="[+ $self->{rows} +]"[$endif$] -></textarea> -[$endsub$] - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::textarea - A textarea input control inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'textarea', - text => 'blabla', - name => 'foo', - rows => 10, - cols => 80, - } - -=head1 DESCRIPTION - -Used to create an input control inside an Embperl Form. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'textarea' - -=head3 text - -Will be used as label for the text input control - -=head3 cols - -Number of columns - -=head3 rows - -Number of rows - -=head1 Author - -G. Richter ([EMAIL PROTECTED]) - -=head1 See Also - -perl(1), Embperl, Embperl::Form - - + +################################################################################### +# +# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de +# +# You may distribute under the terms of either the GNU General Public +# License or the Artistic License, as specified in the Perl README file. +# +# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# $Id$ +# +################################################################################### + +package Embperl::Form::Control::textarea ; + +use strict ; +use base 'Embperl::Form::Control' ; + +use Embperl::Inline ; + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show_control - output the control +#] + +[$ sub show_control ($self) $] + +<textarea type="text" class="cBase cControl" name="[+ $self->{name} +]" +[$if $self -> {cols} $]cols="[+ $self->{cols} +]"[$endif$] +[$if $self -> {rows} $]rows="[+ $self->{rows} +]"[$endif$] +></textarea> +[$endsub$] + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::textarea - A textarea input control inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'textarea', + text => 'blabla', + name => 'foo', + rows => 10, + cols => 80, + } + +=head1 DESCRIPTION + +Used to create an input control inside an Embperl Form. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'textarea' + +=head3 text + +Will be used as label for the text input control + +=head3 cols + +Number of columns + +=head3 rows + +Number of rows + +=head1 Author + +G. Richter ([EMAIL PROTECTED]) + +=head1 See Also + +perl(1), Embperl, Embperl::Form + + Modified: perl/embperl/trunk/Embperl/Form/Control/transparent.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Form/Control/transparent.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/transparent.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/transparent.pm Fri Dec 9 10:15:54 2005 @@ -1,81 +1,81 @@ - -################################################################################### -# -# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de -# -# You may distribute under the terms of either the GNU General Public -# License or the Artistic License, as specified in the Perl README file. -# -# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR -# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED -# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. -# -# $Id$ -# -################################################################################### - -package Embperl::Form::Control::transparent ; - -use strict ; -use base 'Embperl::Form::Control' ; - -use Embperl::Inline ; - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show - output the control -#] - -[$ sub show ($self, $data) - -my $span = ($self->{width_percent}) ; -$] -<td class="cBase cTransparentBox" colspan="[+ $span +]">[+ $self->{text} +] </td> -[$endsub$] - - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::transparent - A transparent area inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'transparent', - text => 'blabla' - } - -=head1 DESCRIPTION - -Used to create a transparent area with optional text inside an Embperl Form. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'transparent' - -=head3 text (optional) - -Could be used to give a text that should be displayed inside the transparent area - - -=head1 Author - -G. Richter ([EMAIL PROTECTED]) - -=head1 See Also - -perl(1), Embperl, Embperl::Form - - + +################################################################################### +# +# Embperl - Copyright (c) 1997-2005 Gerald Richter / ecos gmbh www.ecos.de +# +# You may distribute under the terms of either the GNU General Public +# License or the Artistic License, as specified in the Perl README file. +# +# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +# +# $Id$ +# +################################################################################### + +package Embperl::Form::Control::transparent ; + +use strict ; +use base 'Embperl::Form::Control' ; + +use Embperl::Inline ; + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show - output the control +#] + +[$ sub show ($self, $data) + +my $span = ($self->{width_percent}) ; +$] +<td class="cBase cTransparentBox" colspan="[+ $span +]">[+ $self->{text} +] </td> +[$endsub$] + + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::transparent - A transparent area inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'transparent', + text => 'blabla' + } + +=head1 DESCRIPTION + +Used to create a transparent area with optional text inside an Embperl Form. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'transparent' + +=head3 text (optional) + +Could be used to give a text that should be displayed inside the transparent area + + +=head1 Author + +G. Richter ([EMAIL PROTECTED]) + +=head1 See Also + +perl(1), Embperl, Embperl::Form + + Modified: perl/embperl/trunk/Embperl/Syntax/EmbperlBlocks.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Syntax/EmbperlBlocks.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Syntax/EmbperlBlocks.pm (original) +++ perl/embperl/trunk/Embperl/Syntax/EmbperlBlocks.pm Fri Dec 9 10:15:54 2005 @@ -446,35 +446,6 @@ addfirstchild => 1, }, ) ; - -=pod - { - perlcode => '}; sub %^subname% { my @_ep_save ; Embperl::Cmd::SubStart($_ep_DomTree,%$q%,[EMAIL PROTECTED]); my $_ep_ret = _ep_sub_%^subname% (@_); Embperl::Cmd::SubEnd($_ep_DomTree,[EMAIL PROTECTED]); return $_ep_ret } ; $_ep_exports{%^"subname%} = \&%^subname% ; ', - removenode => 10, - mayjump => 0, - pop2 => 'subname', - switchcodetype => 1, - callreturn => 1, - }) ; - $self -> AddMetaStartEnd ('sub', 'endsub', - { - perlcode => 'sub _ep_sub_%&<noname>% { ', - removenode => 10, - mayjump => 1, - stackname2 => 'subname', - push2 => '%&<noname>%', - switchcodetype => 2, - callreturn => 1, - }, - { - perlcode => '}; sub %^subname% { my @_ep_save ; Embperl::Cmd::SubStart($_ep_DomTree,%$q%,[EMAIL PROTECTED]); my $_ep_ret = _ep_sub_%^subname% (@_); Embperl::Cmd::SubEnd($_ep_DomTree,[EMAIL PROTECTED]); return $_ep_ret } ; $Embperl::req -> component -> exports -> {%^"subname%} = \&%^subname% ; ', - removenode => 10, - mayjump => 0, - pop2 => 'subname', - switchcodetype => 1, - callreturn => 1, - }) ; -=cut } Modified: perl/embperl/trunk/Embperl/Syntax/MsgIdExtract.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Syntax/MsgIdExtract.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Syntax/MsgIdExtract.pm (original) +++ perl/embperl/trunk/Embperl/Syntax/MsgIdExtract.pm Fri Dec 9 10:15:54 2005 @@ -158,8 +158,10 @@ =head1 DESCRIPTION -Class derived from Embperl::Syntax to define the syntax for -Embperl Blocks and metacommands. +Class derived from Embperl::Syntax to define the syntax for the +internationalisation using "[= =]" Embperl blocks and metacommands. + +See L<Embperl>, section I18N for details. =head1 Methods Modified: perl/embperl/trunk/Embperl/Syntax/POD.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Syntax/POD.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Syntax/POD.pm (original) +++ perl/embperl/trunk/Embperl/Syntax/POD.pm Fri Dec 9 10:15:54 2005 @@ -739,7 +739,17 @@ =head1 DESCRIPTION -Documenation is still not written!!!!!!! +Class derived from Embperl::Syntax to convert Perl Plain Old +Documentation (POD) files on the fly into XML. + +Used for generating the Embperl online documentation from the Embperl +POD files. See to eg directory in the distribution for an example how +to use it. + + +=head1 TODO + +Documenation of the resulting XML format still has to be written... =head1 Methods Modified: perl/embperl/trunk/Embperl/Syntax/RTF.pm URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/Embperl/Syntax/RTF.pm?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Syntax/RTF.pm (original) +++ perl/embperl/trunk/Embperl/Syntax/RTF.pm Fri Dec 9 10:15:54 2005 @@ -272,121 +272,7 @@ 'cdatatype' => 0, }, ) ; - - -=pod - $self -> AddRTFCmdWithEnd ('if', 'endif', - { - perlcode => 'if (%&<noname>%) { ', - removenode => 10, - mayjump => 1, - stackname => 'metacmd', - 'push' => 'if', - }) ; - - $self -> AddRTFCmdWithEnd ('else', 'endif', - { - perlcode => '} else {', - removenode => 10, - mayjump => 1, - stackname => 'metacmd', - stackmatch => 'if', - 'push' => 'if', - }) ; - $self -> AddRTFCmdWithEnd ('elsif', 'endif', - { - perlcode => '} elsif (%&<noname>%) { ', - removenode => 10, - mayjump => 1, - stackname => 'metacmd', - stackmatch => 'if', - 'push' => 'if', - }) ; - $self -> AddRTFCmd ('endif', - { - perlcode => '}', - removenode => 10, - mayjump => 1, - stackname => 'metacmd', - stackmatch => 'if', - }) ; - $self -> AddRTFCmdBlock ('while', 'endwhile', - { - perlcode => 'while (%&<noname>%) { ', - removenode => 10, - mayjump => 1, - }, - { - perlcode => '};', - removenode => 10, - mayjump => 1, - }) ; - $self -> AddRTFCmdBlock ('foreach', 'endforeach', - { - perlcode => 'foreach %&<noname>% { ', - removenode => 10, - mayjump => 1, - }, - { - perlcode => '};', - removenode => 10, - mayjump => 1, - }) ; - $self -> AddRTFCmdBlock ('do', 'until', - { - perlcode => 'do { ', - removenode => 10, - mayjump => 1, - }, - { - perlcode => '} until (%&<noname>%) ; ', - removenode => 10, - mayjump => 1, - }) ; - $self -> AddRTFCmd ('var', - { - compiletimeperlcode => 'use strict ; use vars qw{%%CLEANUP %&<noname>%} ; map { $CLEANUP{substr($_,1)} = 1 } qw{%&<noname>%} ;', - perlcode => 'use strict ;', - removenode => 3, - }) ; - $self -> AddRTFCmd ('hidden', - { - perlcode => '_ep_hid(%$n%,%&\'<noname>%);', - removenode => 8, - }) ; - $self -> AddRTFCmd ('syntax', - { - compiletimeperlcode => '$_[0] -> Syntax (Embperl::Syntax::GetSyntax(%&\'<noname>%, $_[0] -> SyntaxName));', - removenode => 3, - }, - { - parsetimeperlcode => '$_[0] -> Syntax (Embperl::Syntax::GetSyntax(\'%%\', $_[0] -> SyntaxName)) ;', - }, - ) ; - $self -> AddRTFCmdBlock ('sub', 'endsub', - { - perlcode => 'sub _ep_sub_%&<noname>% { ', - removenode => 10, - mayjump => 1, - stackname2 => 'subname', - push2 => '%&<noname>%', - switchcodetype => 2, - }, - { - perlcode => '}; sub %^subname% { my @_ep_save ; Embperl::Cmd::SubStart(\\$_ep_DomTree,%$q%,[EMAIL PROTECTED]); my $_ep_ret = _ep_sub_%^subname% (@_); Embperl::Cmd::SubEnd([EMAIL PROTECTED]); return $_ep_ret } ; $_[0] -> ExportHash -> - - - - {%^"subname%} = \&%^subname% ; ', - removenode => 10, - mayjump => 1, - pop2 => 'subname', - switchcodetype => 1, - }) ; - -=cut - - } + } Modified: perl/embperl/trunk/MANIFEST URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/MANIFEST?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/MANIFEST (original) +++ perl/embperl/trunk/MANIFEST Fri Dec 9 10:15:54 2005 @@ -89,6 +89,7 @@ README README.v2 Syntax.xs +TOC.pod TODO TipsAndTricks.pod crypto/Makefile Modified: perl/embperl/trunk/README URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/README?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/README (original) +++ perl/embperl/trunk/README Fri Dec 9 10:15:54 2005 @@ -41,6 +41,7 @@ The following documentation is available within the distribution +Detailed list of documenation: perldoc TOC.pod Features of Embperl: perldoc Features.pod Introduction to basic Embperl: perldoc Intro.pod Introduction to Embperl 2 @@ -54,7 +55,7 @@ perldoc Embperl/Inline.pm Tips and Tricks: perldoc TipsAndTricks.pod Changes: perldoc Changes.pod -Examples: eg/x/README +Examples: eg/README Sourcecode encryption: crypto/README All the above and further information can be found at the Embperl website Added: perl/embperl/trunk/TOC.pod URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/TOC.pod?rev=355574&view=auto ============================================================================== --- perl/embperl/trunk/TOC.pod (added) +++ perl/embperl/trunk/TOC.pod Fri Dec 9 10:15:54 2005 @@ -0,0 +1,228 @@ +=head1 NAME + +Embperl::TOC - Embperl Documenation: Table of Contents + +=head1 DESCRIPTION + +Embperl can be used in many ways and it's documentation doesn't fit in +one man pages. The following documentation is available within the +distribution and the installed system using perldoc(1) or man(1): + +=head1 CONTENT + + Installation Documentation + Embperl::Features + Embperl::Intro + Embperl::IntroEmbperl2 + Embperl::Config + Embperl + Embperl::Object + Embperl::Form + Embperl::Form::Validate + Embperl::Mail + Embperl::Inline + Embperl::Recipe + Embperl::Syntax + Embperl::Syntax::ASP + Embperl::Syntax::Embperl + Embperl::Syntax::EmbperlBlocks + Embperl::Syntax::HTML + Embperl::Syntax::EmbperlHTML + Embperl::Syntax::Mail + Embperl::Syntax::MsgIdExtract + Embperl::Syntax::Perl + Embperl::Syntax::POD + Embperl::Syntax::RTF + Embperl::Syntax::SSI + Embperl::Syntax::Text + Embperl::TipsAndTricks + Sourcecode encryption + Changes + +=head1 INSTALLATION DOCUMENTATION + +See perldoc L<INSTALL.pod> in the distribution archive. + + + +=head1 OVERVIEW DOCUMENTATION + +Introductionary texts + + + +=head1 L<Embperl::Features> (perldoc Features.pod) + +List of the main features of Embperl 2.0 + + + +=head1 L<Embperl::Intro> (perldoc Intro.pod) + +Embperl basics: What is Embperl? How to embed perl code in HTML +documents; Flow Control; Dynamic Tables; Form Processing; Maintaining +persistent (session) data; Breaking up your code in components; +Debugging; Database Access; Security; Escaping/Unescaping. + + + +=head1 L<Embperl::IntroEmbperl2> (perldoc IntroEmbperl2.pod) + +Introduction to the new features in Embperl 2 considering the Embperl +homepage as example. + + + +=head1 L<Embperl::IntroEmbperlObject> (perldoc IntroEmbperlObject.pod) + +Introduction to building object-oriented websites and web applications +with Embperl + + + +=head1 FULL DOCUMENTATION + +Detailed references + + + +=head1 L<Embperl::Config> (perldoc Config.pod) + +Using Embperl with mod_perl, CGI, FastCGI, offline or from +Perl. Includes documentation for Embperl::Execute() and +documentation for all Embperl internal objects and +their methods. You also find here all of Embperl's Apache +configuration directives. + + + +=head1 L<Embperl> + +Describes syntax, semantic, predefined variables, session handling, +etc. + + + +=head1 L<Embperl::Object> + +Building object-oriented websites and web applications with Embperl + + + +=head1 L<Embperl::Form> + +=head1 L<Embperl::Form::Validate> + +Automatically creating and verifying forms with Embperl + + + +=head1 L<Embperl::Mail> + +Sending mails generated with Embperl, e.g. results of submitted forms. + + + +=head1 L<Embperl::Inline> + +Using Embperl syntax in Perl modules. + + + +=head1 L<Embperl::Recipe> + +Defining Embperl recipes and provider + + + +=head1 L<Embperl::Syntax> + +Defining Embperl syntax. + +Modules derived from Embperl::Syntax and shipped with Embperl: + + + +=head2 L<Embperl::Syntax::ASP> + +ASP syntax module (<% ... %>) + + + +=head2 L<Embperl::Syntax::Embperl> + +Embperl syntax module: provides the default syntax, includes +Embperl::Syntax::EmbperlBlocks, Embperl::Syntax::EmbperlHTML and +Embperl::Syntax::MsgIdExtract.. + +=head2 L<Embperl::Syntax::EmbperlBlocks> + +Syntax module for Embperl blocks + +=head2 L<Embperl::Syntax::HTML> + +=head2 L<Embperl::Syntax::EmbperlHTML> + +Syntax module for dynamic tables, forms, etc. + +=head2 L<Embperl::Syntax::Mail> + +Taglib providing an HTML like syntax for sending mail + +=head2 L<Embperl::Syntax::MsgIdExtract> + +Syntax module for internationalisation via Embperl's [= =] blocks. + +=head2 L<Embperl::Syntax::Perl> + +Perl syntax module, allowing Embperl to execute files with normal Perl +syntax. + +=head2 L<Embperl::Syntax::POD> + +POD syntax module, converting Perl Plain Old Documentation files on +the fly into XML. + +=head2 L<Embperl::Syntax::RTF> + +Syntax module to define the syntax for Rich Text Format (RTF) files + +=head2 L<Embperl::Syntax::SSI> + +Syntax module to emulate Apache's mod_include syntax with Embperl. + +=head2 L<Embperl::Syntax::Text> + +Syntax module to literally include any file without interpretation. + + + +=head1 TIPS, TRICKS AND EXAMPLES + +=head1 L<Embperl::TipsAndTricks> (perldoc TipsAndTricks.pod) + +Alternative way to do global variables; Global variables via +namespaces; Handling queries in DBI; Handling exits; Handling errors; +Development and production websites. + +As an example how Embperl can be used, the sourcecode of the Embperl +website (see http://perl.apache.org/embperl/) is contained in the +directory eg/ of the Embperl distribution archive. Read L<eg/README> +of the Embperl distribution archive for an overview. + + + +=head1 Sourcecode encryption + +See L<crypto/README> of the Embperl distribution archive. + + + +=head1 CHANGES + +See perldoc L<Changes.pod> + + +=head1 AUTHOR + +G. Richter ([EMAIL PROTECTED]), A. Beckert ([EMAIL PROTECTED]) Modified: perl/embperl/trunk/crypto/README URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/crypto/README?rev=355574&r1=355573&r2=355574&view=diff ============================================================================== --- perl/embperl/trunk/crypto/README (original) +++ perl/embperl/trunk/crypto/README Fri Dec 9 10:15:54 2005 @@ -24,8 +24,8 @@ To enable encrypted sourcefile, go to the crypto directory and edit the epcrypto_config.h file. Here you can enable/disable encryption, choose which algorithmus to use, the encryption key and whenever -Embperl should still work with unencrypted files. Make sure to use a -unique encryption key. Addtionaly OpenSSL must be already installed +Embperl should still work with unencrypted files. Make sure to use a +unique encryption key. Additionally OpenSSL must be already installed on your system. Now install Embperl as usual, by running perl Makefile.PL @@ -36,7 +36,7 @@ To encrypt your source files go to the crypto directory and start the epcrypto program. It takes a source and a destination filename. If you are using Embperl 2.x, you have to specify the syntax the sourcefile -uses as third parameter, if it is any other then "Embperl". +uses as third parameter, if it is any other than "Embperl". IMPORTANT: Make sure to not distribute any files from the crypto directory, because it contains the key. Anybody who --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
