You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2002/06/20 09:05:21 UTC
cvs commit: embperl/eg/web/pod/doc index.htm
richter 2002/06/20 00:05:21
Modified: . Tag: Embperl2c Changes.pod
Embperl Tag: Embperl2c Object.pm
eg/web Tag: Embperl2c config.pl content.epl epwebapp.pl
footer.htm header.epl index.htm indexD.htm
menuleft.epl menulist.epl news.epl
eg/web/db Tag: Embperl2c epwebapp.pl
eg/web/pod/doc Tag: Embperl2c index.htm
Log:
-
Revision Changes Path
No revision
No revision
1.129.4.78 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.77
retrieving revision 1.129.4.78
diff -u -r1.129.4.77 -r1.129.4.78
--- Changes.pod 17 Jun 2002 19:25:49 -0000 1.129.4.77
+++ Changes.pod 20 Jun 2002 07:05:19 -0000 1.129.4.78
@@ -32,6 +32,8 @@
configuration trace.
- When file is not found, Embperl::Object now returns status 404, instead
of 500. Reported by Cameron McBride.
+ - When optReturnError is set, Embperl::Object now really returns the error code.
+ Reported by Cameron McBride.
- Fixed a reference count error when using the import parameter. Reported
by Michael Smith.
- Fixed string reference counting problem in RTF&POD syntax.
No revision
No revision
1.1.2.25 +3 -4 embperl/Embperl/Attic/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Object.pm,v
retrieving revision 1.1.2.24
retrieving revision 1.1.2.25
diff -u -r1.1.2.24 -r1.1.2.25
--- Object.pm 17 Jun 2002 19:25:53 -0000 1.1.2.24
+++ Object.pm 20 Jun 2002 07:05:20 -0000 1.1.2.25
@@ -347,10 +347,9 @@
my $cparam = {%$req, inputfile => $fn } ;
my $c = $r -> setup_component ($cparam) ;
- print Embperl::LOG "[$$]Embperl::Object run error = ", $r -> error, "\n" if ($debug && !$fallback);
- run($r) ;
+ $rc = run($r) ;
$r -> cleanup ;
- return &OK ;
+ return $rc ;
}
No revision
No revision
1.1.2.10 +8 -6 embperl/eg/web/Attic/config.pl
Index: config.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/config.pl,v
retrieving revision 1.1.2.9
retrieving revision 1.1.2.10
diff -u -r1.1.2.9 -r1.1.2.10
--- config.pl 17 Jun 2002 19:25:54 -0000 1.1.2.9
+++ config.pl 20 Jun 2002 07:05:20 -0000 1.1.2.10
@@ -8,18 +8,20 @@
# The following two values must be changed to meet your local setup
# Additionaly DBI and DBIx::Recordset must be installed
- $r -> {dbdsn} = $^O eq 'MSWin32'?'dbi:ODBC:embperl':'dbi:mysql:embperl' ;
- $r -> {dbuser} = 'www' ;
+ $self -> {dbdsn} = $^O eq 'MSWin32'?'dbi:ODBC:embperl':'dbi:mysql:embperl' ;
+ $self -> {dbuser} = 'www' ;
+ $self -> {dbpassword} = undef ;
# There is normaly no need to change anything below this line
- $r -> {imageuri} = '/eg/images/' ;
- $r -> {baseuri} = '/eg/web/' ;
+ $self -> {baseuri} = '/eg/web/' ;
+ $self -> {basedepth} = 2 ;
+ $self -> {imageuri} = '../images/' ;
- $self -> {supported_lamnguages} = ['de', 'en'] ;
+ $self -> {supported_languages} = ['de', 'en'] ;
# Embperl 2 source directory
- $r -> {root} = $ENV{EMBPERL_SRC} . '/' ;
+ $self -> {root} = $ENV{EMBPERL_SRC} . '/' ;
# check if Embperl 1.3 is installed
my $lib_1_3 = dirname ($INC{'Apache.pm'}) ;
1.1.2.5 +2 -2 embperl/eg/web/Attic/content.epl
Index: content.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/content.epl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- content.epl 13 Feb 2002 05:26:30 -0000 1.1.2.4
+++ content.epl 20 Jun 2002 07:05:20 -0000 1.1.2.5
@@ -1,9 +1,9 @@
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td valign="top">
- [# <img src="/eg/images/aim/h_leer.gif/Annotate?text=ABOUT&gravity=NorthWest&pointsize=16&antialias=true&y=-6&x=3&font=/usr/msrc/fonts/ocraext.ttf" width="152" height="19"> #]
+ [# <img src="/eg/images/aim/h_leer.gif/Annotate?text=ABOUT&gravity=NorthWest&pointsize=16&antialias=true&y=-6&x=3&font=/usr/msrc/fonts/ocraext.ttf" width="152" height="19">
- <br><br>
+ <br>#]<br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">[- Execute ({inputfile => '*', syntax => 'Text'}) -]</td>
<td valign="top" width="10"> </td>
<td valign="top" height="100%"><img src="/eg/images/frame.jpg" width="1" height="100%"></td>
1.1.2.9 +51 -27 embperl/eg/web/Attic/epwebapp.pl
Index: epwebapp.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/epwebapp.pl,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -u -r1.1.2.8 -r1.1.2.9
--- epwebapp.pl 18 Jun 2002 06:27:35 -0000 1.1.2.8
+++ epwebapp.pl 20 Jun 2002 07:05:20 -0000 1.1.2.9
@@ -16,7 +16,7 @@
foreach $m (@$item)
{
$m -> {parent} ||= $parent ;
- $m -> {url} ||= "$baseuri$m->{uri}" ;
+ $m -> {relurl} ||= "$baseuri$m->{uri}" ;
if (ref $m -> {path})
{
foreach my $k (keys %{$m -> {path}})
@@ -38,7 +38,7 @@
}
elsif (!$m -> {file})
{
- $m -> {path} = $root . $m -> {url} ;
+ $m -> {path} = $root . $config -> {baseuri} . $m -> {relurl} ;
$m -> {path} .= 'index.htm' if ($m -> {path} =~ m#/$#) ;
}
elsif (ref $m -> {file})
@@ -50,19 +50,21 @@
$m -> {path} = $root . $m->{file} ;
$m -> {path} .= 'index.htm' if ($m -> {path} =~ m#/$#) ;
}
- $config -> {map1}{$m -> {url}} = $m ;
- $m -> {url} =~ /^(.*)\./ ;
- $config -> {map2}{$1} = $m ;
+ #if ($m -> {relurl})
+ {
+ $config -> {map1}{$m -> {relurl}} = $m ;
+ $config -> {map2}{$1} = $m if ($m -> {relurl} =~ /^(.*)\./ );
+ }
my $subbase ;
- if ($m -> {url} !~ m#/$#)
+ if ($m -> {relurl} !~ m#/$#)
{
- $m -> {url} =~ /^(.*)\./ ;
+ $m -> {relurl} =~ /^(.*)\./ ;
$subbase = "$1/" ;
}
else
{
- $subbase = $m -> {url} ;
+ $subbase = $m -> {relurl} ;
}
fill_menu ($config, $m -> {sub}, $subbase, $root, $m) if ($m -> {sub}) ;
@@ -78,7 +80,7 @@
{
my ($self, $r, $uri, $lang) = @_ ;
- my $buri = $r->{baseuri} ;
+ my $buri = $r->{config}{baseuri} ;
$lang ||= $r -> {selected_language} ;
if ($lang && ($uri =~ /$buri(.*?)$/))
{
@@ -92,18 +94,9 @@
sub map_file
{
- my ($r) = @_ ;
- my $uri = $r -> param -> uri ;
+ my ($r, $uri) = @_ ;
my $config = $r -> {config} ;
- # we embed some parameters in the uri itself, to allow making a
- # static copy, so see if there is anything here
- while ($uri =~ s/\.-(.*?)-(.*?)-\././g)
- {
- $fdat{$1} = $2 ;
- }
- $r -> param -> uri ($uri) ;
-
# check if we have anything under this uri in our configuration
# if it's a directory, try to append index.*
my $m ;
@@ -143,7 +136,7 @@
}
# nothing found, so return a general error page
- return "$r->{root}$r->{baseuri}notfound.htm" ;
+ return "$r->{config}{root}$r->{config}{baseuri}notfound.htm" ;
}
@@ -158,32 +151,64 @@
$r -> {config} = $config ;
- my $langs = $config -> {supported_lamnguages} ;
+ my $langs = $config -> {supported_languages} ;
my $uri = $r -> param -> uri ;
+ # we embed some parameters in the uri itself, to allow making a
+ # static copy, so see if there is anything here
+ while ($uri =~ s/\.-(.*?)-(.*?)-\././g)
+ {
+ $fdat{$1} = $2 ;
+ }
+
+
+ # figure out necessary prefixes, so we can use relativ urls
+ my @uri = split (/\//, $uri) ;
+ push @uri, '' if ($uri =~ m#/$#) ;
+ my $basedepth = $config->{basedepth} + 1 ;
+ shift @uri while ($basedepth--) ;
+ my $depth = $r -> {depth} = $#uri ;
+
+ $r -> {imageuri} = ('../' x $depth) . $config -> {imageuri} ;
+ $r -> {baseuri} = ('../' x $depth) ;
+
+ warn "1 d = $r->{depth} bd = $config->{basedepth} #uri=$#uri uri = @uri new uri = $uri" ;
+
+
# serach the url, if there is a language embeded,
# if yes remove it
$r -> {selected_language} = '' ;
foreach (@$langs)
{
- if ($uri =~ m#/$_/#)
+ if ($uri[0] eq $_)
{
$r -> param -> language($_) ;
$r -> {selected_language} = $_ ;
+ shift @uri ;
$uri =~ s#/$_/#/# ;
- $r -> param -> uri ($uri) ;
+ $r -> {baseuri} = ('../' x ($depth - 1)) ; # we want to stay in the same language tree
last ;
}
}
+ $r -> param -> uri ($uri) ;
+
+ warn "2 d = $r->{depth} bd = $config->{basedepth} #uri=$#uri uri = @uri new uri = $uri" ;
+
+ # get the menu data and create a tree structure out of it if not already done
$r -> {menu} = $config -> get_menu ($r) ;
- fill_menu ($config, $r -> {menu}, $r -> {baseuri}, $r -> {root}) ;
- $pf = map_file ($r) ;
+ fill_menu ($config, $r -> {menu}, '', $config -> {root}) ; ##if (!$config -> {map1}) ;
+
+
+ # map the request uri to the real filename
+ $pf = map_file ($r, join ('/', @uri)) ;
$r -> param -> filename ($pf) ; # tell Embperl the filename
$r -> apache_req -> filename ($pf) ; # tell Apache the filename
- print STDERR Dumper ($r -> {menu}, $r -> param -> uri, $pf, \%fdat) ;
+
+ #warn Dumper ($r -> {config}, $r -> param -> uri, $pf, \%fdat, $r -> config -> path) ;
+ # read in the multi language messages
Execute ({inputfile => 'messages.pl', syntax => 'Perl'}) ;
return 0 ;
@@ -228,7 +253,6 @@
}
$config -> xsltstylesheet('pod.xsl') ;
- #$config -> xsltstylesheet($r -> {root} . $r -> {baseuri} . 'xml/pod.xsl') ;
$r -> param -> uri =~ /^.*\/(.*)\.(.*?)$/ ;
$param -> xsltparam({page => $r -> thread -> form_hash -> {page} || 0, basename => "'$1'", extension => "'$2'"}) ;
return Embperl::Recipe::EmbperlXSLT -> get_recipe ($r, $recipe) ;
1.1.2.3 +1 -1 embperl/eg/web/Attic/footer.htm
Index: footer.htm
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/footer.htm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- footer.htm 12 Feb 2002 16:55:01 -0000 1.1.2.2
+++ footer.htm 20 Jun 2002 07:05:20 -0000 1.1.2.3
@@ -1 +1 @@
-<hr><font size="1">© 1997-2002 Gerald Richter / ecos gmbh</font>
\ No newline at end of file
+<hr><font size="1">© 1997-2002 Gerald Richter / <a href="http://www.ecos.de/">ecos gmbh</a></font>
\ No newline at end of file
1.1.2.5 +2 -2 embperl/eg/web/Attic/header.epl
Index: header.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/header.epl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- header.epl 14 Jun 2002 23:38:57 -0000 1.1.2.4
+++ header.epl 20 Jun 2002 07:05:20 -0000 1.1.2.5
@@ -20,8 +20,8 @@
[$if @{$r -> {menuitems}} > 1 || $r -> {menuitems}[0]{menu} ne 'Home' $]
<a href="[+ $r -> {baseuri} +]">Home</a>
[- $i = 0 -]
- [$foreach $level (@{$r -> {menuitems}}) $]
- : <a href="[+ $level -> {url} +]">[+ $r -> gettext($level -> {menu}) +]</a>
+ [$foreach $item (@{$r -> {menuitems}}) $]
+ : <a href="[+ !$item -> {url}?$r -> {baseuri} . $item -> {relurl}:$item -> {url} +]">[+ $r -> gettext($item -> {menu}) +]</a>
[$endforeach$]
[$endif$]
</td>
1.1.2.2 +29 -25 embperl/eg/web/Attic/index.htm
Index: index.htm
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/index.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- index.htm 12 Feb 2002 07:20:35 -0000 1.1.2.1
+++ index.htm 20 Jun 2002 07:05:20 -0000 1.1.2.2
@@ -1,29 +1,33 @@
-Embperl gives you the power to embed Perl code in your HTML documents
-and the ability to build your Web site out of small reusable objects
-in a OO-style. You can also take advantage all available Perl modules,
-(including DBI for database access) use their functionality and easily
-include their output into your web pages.<p>
+<p><b>Embperl</b> is a framework for building websites with <b>Perl</b>.</p>
-Embperl has several features especially useful for creating HTML,
+<p>For the beginner it's any easy to setup and use way of embedding
+Perl code in HTML pages.
+
+It delivers several features that ease the task of creating a websites,
including dynamic tables, formfield-processing, escaping/unescaping,
-session handling, and more. <p>
+session handling, caching and more. </p>
+
+<p>If your demands grows it gives you the power
+to make your Web site <b>object-oriented</b> and build it out of small reusable
+components. If you don't like the idea of mixing up all your layout and code
+Embperl supports separating it in different objects (e.g. createing an
+MVC application). Of course Embperl doesn't ties you to HTML, it allows
+components to be from different source formats (e.g. HTML, WML, XML, POD, ...)
+and if necessary transforms it (for example via XSLT) to other output formats.
+This is achieved by diving the output generation in small steps, where each
+is processed by a plugable provider.
+
+Advanced user can create their own syntax definitions (for example tag libraries)
+and extent Embperl by writing their own providers and much more</p>
+
+<p>Embperl is a server-side tool, which means that it's browser-independent.
+It can run in various ways: under mod_perl, as a CGI script, or offline.</p>
+
+<p>Read on with the <a href="pod/Features.htm">feature list</a> or take a
+look the <a href="pod/intro/">introductions</a> to different parts and possibilites of Embperl.
+
+<p>Embperl can be used under the terms of either the GNU General Public
+License or the Artistic License, as specified in the Perl README file.</p>
+
-Embperl is a server-side tool, which means that it's browser-independent.
-It can run in various ways: under mod_perl, as a CGI script, or offline.<p>
-If you would like to get an impression of Embperl's features,
-you can see them <a href="Features.pod.1.html">here</a>.
-Read the <a href="Intro.pod.cont.html">introduction</a> to get started.
-If you would like to know more about Embperl,
-here is the <a href="Embperl.pod.cont.html">full documentation</a>.
-Creating your website out of small reusable objects
-is described in the <a href="IntroEmbperlObject.pod.cont.html">
-introduction to EmbperlObject</a> and the documentation for
-<a href="EmbperlObject.pod.cont.html">EmbperlObject</a> and
-<a href="Mail.pod.cont.html">HTML::Embperl::Mail</a> gives you the possibility
-to send the result pages per email.
-A <a href="Faq.pod.cont.html">FAQ list</a> is also available and the history of
-<a href="Changes.pod.cont.html">Changes</a> can be found here. There are some useful
-<a href="Examples.html">examples</a> which shows how Embperl works.<p>
-Addtionaly there is a module for Database access within Embperl, look at
-<a href="Intro.pod.8.html#DBIx_Recordset">DBIx::Recordset</a> and read the introduction.<p>
1.1.2.2 +43 -47 embperl/eg/web/Attic/indexD.htm
Index: indexD.htm
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/indexD.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- indexD.htm 13 Feb 2002 05:37:14 -0000 1.1.2.1
+++ indexD.htm 20 Jun 2002 07:05:20 -0000 1.1.2.2
@@ -1,47 +1,43 @@
-<b>Embperl</b> ist ein System zum Erstellen dynamischer Websites mit Perl.
- Es erlaubt das direkte <b>Einbetten von </b> <b>Perlcode in HTML
- Dokumente, </b>sowie das Erstellen komplexer Websites aus kleinen, wiederverwendbaren <b>Objekten</b>.
- Egal ob Sie nur eine einfache dynamische Webseite erstellen wollen oder
- eine komplexe Site. Embperl w�chst mit Ihren Anforderungen. Es macht
- einfache Dinge einfach, komplexe Designs bleiben �bersichtlich und
- Unm�gliches wird m�glich.
- <p><a href="http://perl.apache.org/" target="_blank">Perl</a> ist nicht nur die im WWW nach
- wie vor am weitesten verbreitete Sprache, sondern ist ebenso m�chtig wie einfach zu
- erlernen. Dar�ber hinaus steht eine st�ndig wachsende Anzahl von fertigen Modulen f�r
- alle Bereiche, einschlie�lich Datenbankzugriff, zur Verf�gung.</p>
- <p>W�hrend es auch noch andere
- Perlmodule gibt, die es erlauben Perl in HTML einzubetten, geht Embperl weit
- dar�ber hinaus und unterst�tzt Sie bei der Erstellung dynamischer
- Websites mit Features wie:<br>
- dynamischen Tabellen, Formularfeldverarbeitung, HTML/URL-Kodierung, Session Handling, Modularisierung,
- Definition eigener Taglibs, Verwendung unterschiedlicher Syntaxen (z.B.
- auch SSI im gleichen Dokument) und nicht zuletzt Unterst�tzung und
- Verarbeitung von XML Dokumenten.</p>
- <p>Embperl l�uft auf dem <b>Webserver</b> ab, dadurch ist es v�llig browserunabh�ngig.
- Es kann dabei unter mod_perl, als CGI Skript oder Offline ausgef�hrt werden.</p>
- <p>Embperl wird durch die ecos gmbh entwickelt, gepflegt und <a href="/ep/pod/EmbperlD.pod.15.html#Kommerzieller_Support">supported</a>.
- Ideen, Anregungen, anderes Feedback und Patches sind jederzeit willkommen und
- sollten an die <a href="/x/index.htm/ep/pod/EmbperlD.pod.15.html">Embperl-Mailingliste</a>
- geschickt werden.</p>
- <p>Embperl darf sowohl unter <b>GPL</b>, wie auch unter der <b>Artistic License</b> weiterverbreitet werden. Es gelten die
- gleichen Lizenzbestimmungen
- wie f�r Perl selbst (siehe Perl README Datei).</p>
- <p>Diese Website enth�lt die <b>deutschen �bersetzungen</b> der <a href="http://perl.apache.org/embperl/" target="_blank">englischen Originaldokumentation</a>.
- Einen ersten Eindruck vermittelt die Liste der <a href="../x/index.htm/ep/pod/FeaturesD.pod.1.html" target="_top">Features von Embperl</a>.
- Wollen Sie mehr erfahren, dann lesen Sie die <a href="../x/index.htm/ep/pod/IntroD.pod.cont.html" target="_top">Einf�hrung</a>,
- um einen
- �berblick �ber die M�glichkeiten von Embperl zu erhalten. Es ist auch
- eine <a href="../x/index.htm/ep/pod/EmbperlD.pod.cont.html" target="_top">vollst�ndige
- Dokumentation</a> in deutsch verf�gbar. Die <a href="../x/index.htm/ep/pod/IntroEmbperlObject.pod.cont.html" target="_top">Einf�hrung</a>
- und <a href="../x/index.htm/ep/pod/EmbperlObject.pod.cont.html" target="_top">Dokumentation</a>
- von <b>EmbperlObject</b> (welche es erlaubt, Websites aus Objekten
- zusammenzusetzen), <a href="../x/index.htm/ep/pod/Mail.pod.cont.html">HTML::Embperl::Mail</a>
- sowie die <a href="../x/index.htm/ep/pod/Faq.pod.cont.html" target="_top">FAQs</a> und die <a href="../x/index.htm/ep/pod/Changes.pod.cont.html" target="_top">Liste der aktuellen
- �nderungen</a> sind nur in englischer Sprache verf�gbar. Des weiteren findet
- man dort kurze Beispiele. Au�erdem gibt es ein Perlmodul <a href="../x/index.htm/ep/pod/IntroD.pod.10.html|DBIx_Recordset" target="_top">(DBIx::Recordset)</a>,
- welches den Datenbankzugriff wesentlich vereinfacht und nicht zuletzt gibt es f�r Embperl
- nat�rlich auch <a href="../x/index.htm/ep/pod/EmbperlD.pod.15.html" target="_top">Support</a>
- und eine Reihe von (englischen) <a href="../x/index.htm/ep/pod/TipsAndTricks.pod.cont.html" target="_top">Tips & Tricks</a>.
- </p>
- <p>
- </p>
\ No newline at end of file
+<p><b>Embperl</b> ist ein System zum Erstellen dynamischer Websites mit <b>Perl</b>.</p>
+
+<p>F�r den Anf�nger ist es ein einfacher Weg um dynamische Seiten
+durch Einbetten von Perlcode in HTML zu erstellen.
+Es stellt verschiedenste Features f�r das Webumfeld zur Verf�gung, wei z.B.
+dynamischen Tabellen, Formularfeldverarbeitung, HTML/URL-Kodierung, Session Handling,
+Caching und mehr.</p>
+
+<p>Wenn die Anforderungen steigen erm�glicht es die Website objektorientiert,
+aus kleinen wiederverwendbaren Komponenten, aufzubauen. Wenn Sie Code und
+Layout nicht mixen wollen, unterst�tzt Sie Embperl, indem es erlaubt beides
+in verschiedene Objekte zu trennen (um z.B. MVC Applikationen zu bauen).
+Selbstverst�ndlich kann Embperl nicht nur HTML verarbeiten, sondern ist in der Lage
+Komponenten in verschiedenen Quellenformaten (z.B. HTML, WML, XML, POD, ...)
+zu bearbeiten und diese, soweit n�tig, in andere Ausgabeformate (z.B. via XSLT)
+zu transformieren. Dies wird dadurch erreicht, das die Ausgabeerzeugung in
+kleine Schritte zerlegt wird, wovon jeder von einem austauschbaren Provider
+bearbeitet wird.</p>
+
+<p>F�r fortgeschrittenen Anwender bietet Embperl weitere M�glichkeiten, wie
+das Erstellen von eigenen Grammatiken (z.b. Tag-Bibiliotheken) oder das
+schreiben von benutzerspezifischen Providern.</p>
+
+<p>Embperl l�uft auf dem <b>Webserver</b> ab und ist dadurch v�llig browserunabh�ngig.
+Es kann dabei unter <a href="http://perl.apache.org/">mod_perl</a>,
+als CGI Skript oder Offline ausgef�hrt werden.</p>
+
+<p>Die <a href="pod/Features.htm">Liste der Features</a>
+und die <a href="pod/intro/">Einf�hrungsartikel</a> zur verschieden Aspekten und Bereichen
+von Embperl geben eine weiteren �berblick �ber die M�glichkeiten.</p>
+
+
+<p>Embperl wird durch die <a href="http://www.ecos.de/">ecos gmbh</a> entwickelt, gepflegt und
+<a href="pod/doc/doc13/HTML/Embperl.-page-16-.htm#sect_80">supported</a>.
+Ideen, Anregungen, anderes Feedback und Patches sind jederzeit willkommen und
+sollten an die <a href="pod/doc/doc13/HTML/Embperl.-page-16-.htm">Embperl-Mailingliste</a>
+geschickt werden.</p>
+
+<p>Embperl darf sowohl unter <b>GPL</b>, wie auch unter der <b>Artistic License</b>
+weiterverbreitet werden. Es gelten die gleichen Lizenzbestimmungen
+wie f�r Perl selbst (siehe Perl README Datei).</p>
+
+
1.1.2.4 +10 -10 embperl/eg/web/Attic/menuleft.epl
Index: menuleft.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/menuleft.epl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- menuleft.epl 14 Jun 2002 23:38:57 -0000 1.1.2.3
+++ menuleft.epl 20 Jun 2002 07:05:20 -0000 1.1.2.4
@@ -30,16 +30,16 @@
[-
if ( $r -> {menuitems}[$ndx] eq $item)
{
- menuitem ($item -> {url}, $item -> {menu}, $r -> {menuitems}[$ndx+1]?2:3, $top, $ndx) ;
+ menuitem (!$item -> {url}?$r -> {baseuri} . $item -> {relurl}:$item -> {url}, $item -> {menu}, $r -> {menuitems}[$ndx+1]?2:3, $top, $ndx) ;
menu ($item -> {sub}, $ndx + 1, 0) if ($item -> {sub}) ;
}
else
{
- menuitem ($item -> {url}, $item -> {menu}, 0, $top, $ndx) ;
+ menuitem (!$item -> {url}?$r -> {baseuri} . $item -> {relurl}:$item -> {url}, $item -> {menu}, 0, $top, $ndx) ;
}
-]
<tr>
- <td><img src="/eg/images/linie-nav.gif" width="152" height="1"></td>
+ <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td>
</tr>
[$ endif $]
[$endforeach $]
@@ -53,7 +53,7 @@
<table width="152" border="0" cellspacing="0" cellpadding="0">
<tr>
- <td><img src="/eg/images/h_content.gif" width="152" height="19"></td>
+ <td><img src="[+ $r -> {imageuri} +]h_content.gif" width="152" height="19"></td>
</tr>
<tr>
<td> </td>
@@ -63,32 +63,32 @@
<td> </td>
</tr>
<tr>
- <td><img src="/eg/images/h_current-v.gif" width="152" height="19"></td>
+ <td><img src="[+ $r -> {imageuri} +]h_current-v.gif" width="152" height="19"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> </font></td>
</tr>
<tr>
- <td><img src="/eg/images/linie-nav.gif" width="152" height="1"></td>
+ <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td>
</tr>
<tr>
<td bgcolor="#D2E9F5"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b> Stable
1.3.4</b></font></td>
</tr>
<tr>
- <td><img src="/eg/images/linie-nav.gif" width="152" height="1"></td>
+ <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td>
</tr>
<tr>
- <td><img src="/eg/images/transp.gif" width="152" height="5"></td>
+ <td><img src="[+ $r -> {imageuri} +]transp.gif" width="152" height="5"></td>
</tr>
<tr>
- <td><img src="/eg/images/linie-nav.gif" width="152" height="1"></td>
+ <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td>
</tr>
<tr>
<td bgcolor="#D2E9F5"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
Beta 2.0b8</b></font></td>
</tr>
<tr>
- <td><img src="/eg/images/linie-nav.gif" width="152" height="1"></td>
+ <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td>
</tr>
</table>
1.1.2.2 +1 -1 embperl/eg/web/Attic/menulist.epl
Index: menulist.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/menulist.epl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- menulist.epl 14 Jun 2002 23:39:31 -0000 1.1.2.1
+++ menulist.epl 20 Jun 2002 07:05:20 -0000 1.1.2.2
@@ -10,7 +10,7 @@
[$foreach $item (@$sub)$]
[$if $item -> {path} $]
<tr>
- <td><a href="[+ $app -> languri ($r, $item -> {url}) +]">[+ $r -> gettext ($item -> {menu}) +]</a></td>
+ <td><a href="[+ $app -> languri ($r, !$item -> {url}?$r -> {baseuri} . $item -> {relurl}:$item -> {url}) +]">[+ $r -> gettext ($item -> {menu}) +]</a></td>
<td>[+ $item -> {desc}{$lang} +]</td>
</tr>
[$endif$]
1.1.2.4 +4 -3 embperl/eg/web/Attic/news.epl
Index: news.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/news.epl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- news.epl 14 Jun 2002 23:38:57 -0000 1.1.2.3
+++ news.epl 20 Jun 2002 07:05:20 -0000 1.1.2.4
@@ -1,5 +1,6 @@
[-
$r = shift ;
+$config = $r -> {config} ;
$dberr = '' ;
eval { require DBIx::Recordset ; } ;
@@ -9,9 +10,9 @@
if (!$dberr)
{
eval {
- *set = DBIx::Recordset -> Search ({'!DataSource' => $r -> {dbdsn},
- '!Username' => $r -> {dbuser},
- '!Password' => $r -> {dbpassword},
+ *set = DBIx::Recordset -> Search ({'!DataSource' => $config -> {dbdsn},
+ '!Username' => $config -> {dbuser},
+ '!Password' => $config -> {dbpassword},
'!DBIAttr' => { RaiseError => 1, PrintError => 1, LongReadLen => 32765, LongTruncOk => 0, },
'!Table' => 'item, itemtext',
'!TabRelation' => 'item_id = item.id',
No revision
No revision
1.1.2.6 +4 -4 embperl/eg/web/db/Attic/epwebapp.pl
Index: epwebapp.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/epwebapp.pl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- epwebapp.pl 1 Mar 2002 15:29:34 -0000 1.1.2.5
+++ epwebapp.pl 20 Jun 2002 07:05:20 -0000 1.1.2.6
@@ -51,13 +51,13 @@
{
my $self = shift ;
my $r = shift ;
-
+ my $config = $r -> {config} ;
$DBIx::Recordset::Debug = 2 ;
*DBIx::Recordset::LOG = \*STDERR ;
- my $db = DBIx::Database -> new ({'!DataSource' => $r -> {dbdsn},
- '!Username' => $r -> {dbuser},
- '!Password' => $r -> {dbpassword},
+ my $db = DBIx::Database -> new ({'!DataSource' => $config -> {dbdsn},
+ '!Username' => $config -> {dbuser},
+ '!Password' => $config -> {dbpassword},
'!DBIAttr' => { RaiseError => 1, PrintError => 1, LongReadLen => 32765, LongTruncOk => 0, },
}) ;
No revision
No revision
1.1.2.4 +2 -2 embperl/eg/web/pod/doc/Attic/index.htm
Index: index.htm
===================================================================
RCS file: /home/cvs/embperl/eg/web/pod/doc/Attic/index.htm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- index.htm 14 Jun 2002 23:38:58 -0000 1.1.2.3
+++ index.htm 20 Jun 2002 07:05:20 -0000 1.1.2.4
@@ -1,13 +1,13 @@
<blockquote>
<br>
[$ if $_[0] -> param -> language eq 'de' $]
-Hier finden Sie die vollst�ndige Dokumentation von Embperl. Sie enth�lt eine Referenz aller Features.
+Hier finden Sie die vollst�ndige Dokumentation von Embperl 2. Sie enth�lt eine Referenz aller Features.
<br><br>
F�r schreitweise Tutorials gehen Sie bitte auf die <a href="../intro/">Einf�hrungsseite</a>.
<br>
Details zur Installation k�nnen Sie in der <a href="../INSTALL.htm">Installationsanweisung</a> nachlesen.
[$else$]
-Here you find the whole documention of Embperl.
+Here you find the whole documention of Embperl 2.
This contains the full reference of all Embperl features.
<br><br>
For step by step tutorials go to the <a href="../intro/">introduction page</a>.
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org