Author: richter
Date: Fri Mar 19 05:38:32 2010
New Revision: 925098
URL: http://svn.apache.org/viewvc?rev=925098&view=rev
Log:
Embperl::Form example
Modified:
perl/embperl/trunk/Changes.pod
perl/embperl/trunk/Embperl.pm
perl/embperl/trunk/MANIFEST
perl/embperl/trunk/eg/forms/README.txt
perl/embperl/trunk/test.pl
perl/embperl/trunk/test/conf/httpd.conf.src
perl/embperl/trunk/test/conf/startup.pl
Modified: perl/embperl/trunk/Changes.pod
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Changes.pod?rev=925098&r1=925097&r2=925098&view=diff
==============================================================================
--- perl/embperl/trunk/Changes.pod (original)
+++ perl/embperl/trunk/Changes.pod Fri Mar 19 05:38:32 2010
@@ -4,6 +4,9 @@
- Support for CGI.pm 3.43 (included within Perl 5.10.1)
for file uplaods. CGI.pm < 2.43 is not supported anymore.
+ - A lot of enhancements for Embperl::Form
+ - Add example for usage of Embperl::Form. See
+ eg/forms/README.txt. Can be viewed used using "make start"
- Increased size limit for errormessage from 1024 to 4096
- Makefile.PL can now handle compiling 32Bit code on 64Bit
sytsem if Perl was compiled as 32Bit application
@@ -11,9 +14,6 @@
- Makefile.PL can now cope with OpenSuSE 11.2, if perl,
mod_perl and apache are installed from OpenSuSE packages.
- Fix make test error for Perl compiled with DEBUGGING on
-
-=head1 2.3.1
-
- Support for internationalization in Emberl::Form
- Do not link against unused libz
Modified: perl/embperl/trunk/Embperl.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl.pm?rev=925098&r1=925097&r2=925098&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl.pm (original)
+++ perl/embperl/trunk/Embperl.pm Fri Mar 19 05:38:32 2010
@@ -49,7 +49,7 @@ use vars qw(
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.4.0_1' ;
+$VERSION = '2.4.0_2' ;
if ($modperl = $ENV{MOD_PERL})
Modified: perl/embperl/trunk/MANIFEST
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/MANIFEST?rev=925098&r1=925097&r2=925098&view=diff
==============================================================================
--- perl/embperl/trunk/MANIFEST (original)
+++ perl/embperl/trunk/MANIFEST Fri Mar 19 05:38:32 2010
@@ -664,4 +664,33 @@ xsbuilder/maps/ep_type.map
xsbuilder/source_scan.pl
xsbuilder/xs_check.pl
xsbuilder/xs_generate.pl
-META.yml Module meta-data (added by MakeMaker)
+META.yml
+eg/forms/pages/loop.htm
+eg/forms/wizard/finish.epl
+eg/forms/wizard/name.epl
+eg/forms/wizard/gateway.epl
+eg/forms/wizard/do.epl
+eg/forms/wizard/dsl.epl
+eg/forms/wizard/importslave.epl
+eg/forms/wizard/inetconnect.epl
+eg/forms/wizard/network.epl
+eg/forms/wizard/base.epl
+eg/forms/wizard/wizconfig.pl
+eg/forms/wizard/exportslave.epl
+eg/forms/wizard/action.epl
+eg/forms/wizard/isdn.epl
+eg/forms/wizard/organisation.epl
+eg/forms/Embperl/MyForm.pm
+eg/forms/Embperl/MyForm
+eg/forms/Embperl/MyForm/Control
+eg/forms/Embperl/MyForm/DataSource
+eg/forms/Embperl/MyForm/DataSource/languages.pm
+eg/forms/Embperl/MyForm/DataSource/netmask.pm
+eg/forms/lib/wizard.epl
+eg/forms/lib/header.epl
+eg/forms/lib/wizard.pl
+eg/forms/lib/footer.epl
+eg/forms/css/EmbperlForm.css
+eg/forms/README.txt
+eg/forms/js/prototype.js
+eg/forms/js/EmbperlForm.js
Modified: perl/embperl/trunk/eg/forms/README.txt
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/eg/forms/README.txt?rev=925098&r1=925097&r2=925098&view=diff
==============================================================================
--- perl/embperl/trunk/eg/forms/README.txt (original)
+++ perl/embperl/trunk/eg/forms/README.txt Fri Mar 19 05:38:32 2010
@@ -2,7 +2,19 @@
Example Code for using Embperl::Forms and the wizard.pl application
===================================================================
-This example assumes that Embperl is extracted under
+On Unix you can access this example using
+
+ make start
+
+and then accessing
+
+ http://localhost:8531/eg/forms/wizard/action.epl
+
+Continue with step 6
+
+
+
+On Windows this example assumes that Embperl is extracted under
C:\perl\msrc\embperl
Modified: perl/embperl/trunk/test.pl
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/test.pl?rev=925098&r1=925097&r2=925098&view=diff
==============================================================================
--- perl/embperl/trunk/test.pl (original)
+++ perl/embperl/trunk/test.pl Fri Mar 19 05:38:32 2010
@@ -3033,6 +3033,12 @@ else
View $EPPATH/eg/web/README for more details about localy
setting up the Embperl website.
+ To see some example of Embperl::Form use
+
+ http://localhost:$EPPORT/eg/forms/wizard/action.epl
+
+ More information can be found at $EPPATH/eg/forms/README.txt
+
To stop the test server again run
$make stop
Modified: perl/embperl/trunk/test/conf/httpd.conf.src
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/test/conf/httpd.conf.src?rev=925098&r1=925097&r2=925098&view=diff
==============================================================================
--- perl/embperl/trunk/test/conf/httpd.conf.src (original)
+++ perl/embperl/trunk/test/conf/httpd.conf.src Fri Mar 19 05:38:32 2010
@@ -759,6 +759,35 @@ Alias /ckwiki $EPPATH/eg/kwiki
SetHandler cgi-script
</Location>
+########## forms example ############
+
+SetEnv PERL5LIB \"$EPPATH/eg/forms\"
+
+AddType text/html .epl
+
+<Location /eg/forms/pages>
+ SetHandler perl-script
+ PerlHandler Embperl
+ Options ExecCGI
+ #EMBPERL_INPUT_ESCMODE 7
+ #EMBPERL_OPTIONS 262288
+</Location>
+
+
+<Location /eg/forms/wizard>
+ SetHandler perl-script
+ PerlHandler Embperl::Object
+
+ Options ExecCGI
+ Embperl_Appname setupwizard
+ Embperl_Object_Base base.epl
+ Embperl_Object_App wizard.pl
+
+ EMBPERL_OBJECT_ADDPATH \"$EPPATH/eg/forms/lib\"
+ # optAllFormData + optRawInput
+ EMBPERL_OPTIONS 0x2010
+ EMBPERL_ALLOW .epl
+</Location>
Modified: perl/embperl/trunk/test/conf/startup.pl
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/test/conf/startup.pl?rev=925098&r1=925097&r2=925098&view=diff
==============================================================================
--- perl/embperl/trunk/test/conf/startup.pl (original)
+++ perl/embperl/trunk/test/conf/startup.pl Fri Mar 19 05:38:32 2010
@@ -48,6 +48,8 @@ BEGIN
$ENV{EMBPERL_SRC} =~ /^(.*?)$/;
my $cwd = $1 ;
+ eval "use lib \"$cwd/eg/forms\"" ;
+
if ($ENV{TEST_PRELOAD})
{
$Embperl::initparam{debug} = 0x7fffffff ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
