richter 2002/06/24 12:22:31
Modified: . Tag: Embperl2c Changes.pod Embperl.pm MANIFEST
epmain.c test.pl
Embperl Tag: Embperl2c App.pm
eg Tag: Embperl2c README
eg/web Tag: Embperl2c messages.pl news.epl
eg/web/db Tag: Embperl2c add.epl addsel.epl epwebapp.pl
eg/webutil Tag: Embperl2c db.schema setupdb.pl
test/conf Tag: Embperl2c httpd.conf.src
Log:
web site
Revision Changes Path
No revision
No revision
1.129.4.79 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.78
retrieving revision 1.129.4.79
diff -u -r1.129.4.78 -r1.129.4.79
--- Changes.pod 20 Jun 2002 07:05:19 -0000 1.129.4.78
+++ Changes.pod 24 Jun 2002 19:22:29 -0000 1.129.4.79
@@ -48,6 +48,8 @@
now displays the URL how to request the site.
- libxslt does correct error reporting now.
- libxslt output encoding is now recognized correctly.
+ - set Content-Length when sending error page, so Internet Explorer won't show
+ his own error page.
=head1 2.0b7 (BETA) 21. Mar. 2002
1.118.4.116 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.115
retrieving revision 1.118.4.116
diff -u -r1.118.4.115 -r1.118.4.116
--- Embperl.pm 10 Jun 2002 06:13:11 -0000 1.118.4.115
+++ Embperl.pm 24 Jun 2002 19:22:29 -0000 1.118.4.116
@@ -46,7 +46,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.0b8_dev-14' ;
+$VERSION = '2.0b8_dev-15' ;
if ($modperl = $ENV{MOD_PERL})
1.50.4.51 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.50.4.50
retrieving revision 1.50.4.51
diff -u -r1.50.4.50 -r1.50.4.51
--- MANIFEST 15 Jun 2002 23:06:01 -0000 1.50.4.50
+++ MANIFEST 24 Jun 2002 19:22:29 -0000 1.50.4.51
@@ -110,6 +110,7 @@
eg/web/index.htm
eg/web/indexD.htm
eg/web/menuleft.epl
+eg/web/menulist.epl
eg/web/messages.pl
eg/web/news.epl
eg/web/notfound.htm
@@ -118,6 +119,7 @@
eg/web/pod/doc/index.htm
eg/web/pod/doc/doc13.htm
eg/web/pod/intro/index.htm
+eg/web/README
eg/webutil/db.schema
eg/webutil/setupdb.pl
eg/x/Execute.pl
1.75.4.125 +5 -5 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.124
retrieving revision 1.75.4.125
diff -u -r1.75.4.124 -r1.75.4.125
--- epmain.c 19 Jun 2002 04:22:43 -0000 1.75.4.124
+++ epmain.c 24 Jun 2002 19:22:29 -0000 1.75.4.125
@@ -770,7 +770,7 @@
}
else if (r -> Component.pOutput && !(r -> Component.Config.bOptions &
optDisableEmbperlErrorPage))
{
- oRollbackOutput (r, NULL) ; /* forget everything outputed so far */
+ oRollbackOutput (r, NULL) ; /* forget everything outputed so far */
oBegin (r) ;
SPAGAIN ;
@@ -784,7 +784,9 @@
if (r -> pApacheReq)
r -> pApacheReq -> status = 500 ;
#endif
- }
+
+ SetHashValueInt (r, r -> pThread -> pHeaderHash, "Content-Length",
GetContentLength (r) ) ;
+ }
r -> bError = 1 ;
return ok ;
@@ -975,8 +977,6 @@
oputs (r, "Content-Type: ") ;
oputs (r, pContentType) ;
oputs (r, "\n") ;
- /* sprintf (txt, "Content-Length: %d\n", GetContentLength (r) + (r ->
Component.pCurrEscape?2:0)) ; */
- /* oputs (r, txt) ; */
if (pCookie)
{
oputs (r, "Set-Cookie") ;
1.70.4.139 +7 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.138
retrieving revision 1.70.4.139
diff -u -r1.70.4.138 -r1.70.4.139
--- test.pl 18 Jun 2002 06:27:34 -0000 1.70.4.138
+++ test.pl 24 Jun 2002 19:22:29 -0000 1.70.4.139
@@ -2407,6 +2407,12 @@
{
kill 15, $httpdpid ;
}
+ foreach (1..5)
+ {
+ last if (!-f "$tmppath/httpd.pid") ;
+ sleep (1) ;
+ }
+
unlink "$tmppath/httpd.pid" ;
}
}
No revision
No revision
1.1.2.5 +3 -8 embperl/Embperl/Attic/App.pm
Index: App.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/App.pm,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- App.pm 24 Jun 2002 09:22:46 -0000 1.1.2.4
+++ App.pm 24 Jun 2002 19:22:30 -0000 1.1.2.5
@@ -91,7 +91,7 @@
$req_rec -> content_type('text/html') if (defined ($req_rec)) ;
- $r -> output ("\r\n\r\n<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY
bgcolor=\"#FFFFFF\">\r\n$url") ;
+ $r -> output ("<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY
bgcolor=\"#FFFFFF\">\r\n$url") ;
$r -> output ("<H1>Internal Server Error</H1>\r\n") ;
$r -> output ("The server encountered an internal error or misconfiguration and
was unable to complete your request.<P>\r\n") ;
$r -> output ("Please contact the server administrator, $mail and inform them
of the time the error occurred, and anything you might have done that may have caused
the error.<P><P>\r\n") ;
@@ -129,12 +129,7 @@
my $server = $ENV{SERVER_SOFTWARE} || 'Offline' ;
- $r -> output ("$server Embperl $Embperl::VERSION [$time]<P>\r\n") ;
- $r -> output ("<!-- wast some space to make sure Internet Explorer displays our
page, instead of it's information page -->\r\n") ;
- $r -> output ("<!-- wast some space to make sure Internet Explorer displays our
page, instead of it's information page -->\r\n") ;
- $r -> output ("<!-- wast some space to make sure Internet Explorer displays our
page, instead of it's information page -->\r\n") ;
- $r -> output ("<!-- wast some space to make sure Internet Explorer displays our
page, instead of it's information page -->\r\n") ;
- $r -> output ("<!-- wast some space to make sure Internet Explorer displays our
page, instead of it's information page -->\r\n") ;
+ $r -> output ($server . ($server =~ /Embperl/?'':" Embperl $Embperl::VERSION")
. " [$time]<P>\r\n") ;
$r -> output ("</BODY></HTML>\r\n\r\n") ;
}
No revision
No revision
1.4.6.3 +4 -4 embperl/eg/README
Index: README
===================================================================
RCS file: /home/cvs/embperl/eg/README,v
retrieving revision 1.4.6.2
retrieving revision 1.4.6.3
diff -u -r1.4.6.2 -r1.4.6.3
--- README 12 Mar 2002 08:58:45 -0000 1.4.6.2
+++ README 24 Jun 2002 19:22:30 -0000 1.4.6.3
@@ -1,14 +1,14 @@
This directory contains a few examples for use of Embperl.
-eg/web This directory contains the upcoming new Embperl website.
+eg/web This directory contains the new Embperl website.
It uses most of the new possibilites of Embperl 2.0b6+.
To take a look at it just type "make start" and then
request http://localhost:8531/eg/web/ . To get it
- working you need to have libxml installed and a mysql
+ working you need to have libxml installed and a
database called "embperl", which should be setup with
the script setupdb.pl in eg/webutil.
- Keep in mind that this sample web isn't ready yet, it's
- just here to give you an idea what will coming...
+ Look at eg/web/README for more informations and setup
+ instructions.
eg/x Here are the following html files
eg/images Here are the background GIF
No revision
No revision
1.1.2.6 +2 -0 embperl/eg/web/Attic/messages.pl
Index: messages.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/messages.pl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- messages.pl 24 Jun 2002 09:22:47 -0000 1.1.2.5
+++ messages.pl 24 Jun 2002 19:22:30 -0000 1.1.2.6
@@ -18,6 +18,7 @@
'show2' => 'Folgender Eintrag wurde erfolgreich der Datenbank
hinzugef�gt',
'Search' => 'Suchen',
'under_construction' => 'Hinweis: Dieser Teil der Website befindet sich
noch im Aufbau.',
+ 'more_news' => 'Weitere News...',
},
'en' =>
{
@@ -34,6 +35,7 @@
'show2' => 'The following entry has been sucessfully added to the
database',
'Search' => 'Search',
'under_construction' => 'NOTE: This part of the site is still under
contruction.',
+ 'more_news' => 'more news...',
},
) ;
1.1.2.7 +11 -1 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.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- news.epl 24 Jun 2002 09:22:47 -0000 1.1.2.6
+++ news.epl 24 Jun 2002 19:22:30 -0000 1.1.2.7
@@ -19,7 +19,7 @@
'!Order' => 'creationtime desc',
'language_id' => $r -> param -> language,
'category_id' => 1,
- '$max' => 15}) ;
+ '$max' => 8}) ;
} ;
$dberr = "Error accessing $config->{dbdsn}: " . DBIx::Recordset -> LastError .
$@ if (DBIx::Recordset -> LastError || $@) ;
}
@@ -59,6 +59,7 @@
$txt = $rec -> {description} ;
$txt =~ s#<#<#g ;
$txt =~ s#>#>#g ;
+ $txt =~ s#L<\"(.*?)\"\|(.*?)>#<A
HREF="$2">$1</A>#g ;
$txt =~ s#B<(.*?)>#<B>$1</B>#g ;
$txt =~ s#(http://[-a-zA-Z.]+)#<A
HREF="$1">$1</A>#g ;
-]
@@ -70,6 +71,15 @@
</tr>
</table>
[$endwhile $]
+ <table width="100%" border="0" cellspacing="0" cellpadding="0">
+ <tr>
+ <td bgcolor="#327EA7"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif">
+ <a href="db/news/news.htm"><b><font
color="#FFFFFF"> [= more_news =]</font></b></a></font></td>
+ </tr>
+ <tr>
+ <td bgcolor="#C2D9E5"><img src="[+ $r -> {imageuri}
+]linie-news.gif" width="152" height="4"/></td>
+ </tr>
+ </table>
[$else$]
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
No revision
No revision
1.1.2.4 +6 -2 embperl/eg/web/db/Attic/add.epl
Index: add.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/add.epl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- add.epl 24 Jun 2002 09:22:47 -0000 1.1.2.3
+++ add.epl 24 Jun 2002 19:22:31 -0000 1.1.2.4
@@ -1,4 +1,8 @@
-[- $r = shift -]
+[-
+use File::Basename ;
+
+$r = shift
+-]
<table width="100%">
<tr bgcolor="#fefcad">
@@ -8,7 +12,7 @@
-<form action="[+ $r -> {action_prefix} +]show.epl" method="POST">
+<form action="[+ $r -> {action_prefix}?($r->{action_prefix} . dirname($r-> param ->
uri) .'/'):'' +]show.epl" method="POST">
[= add2 =]<br><br>
1.1.2.7 +6 -2 embperl/eg/web/db/Attic/addsel.epl
Index: addsel.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/addsel.epl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- addsel.epl 24 Jun 2002 09:22:47 -0000 1.1.2.6
+++ addsel.epl 24 Jun 2002 19:22:31 -0000 1.1.2.7
@@ -1,4 +1,8 @@
[-
+use Embperl::Form::Validate ;
+use File::Basename ;
+
+
$r = shift ;
my $langset = $r -> {language_set} ;
@@ -18,7 +22,7 @@
-use Embperl::Form::Validate ;
+
$epf = Embperl::Form::Validate -> new ([
-key => \@keys,
-name => { de => 'eine Kategorie', en =>
'one category' },
@@ -43,7 +47,7 @@
</ul>
-<form action="[+ $r -> {action_prefix} +]addsel.epl" OnSubmit="">
+<form action="[+ $r -> {action_prefix}?($r->{action_prefix} . dirname($r-> param ->
uri) .'/'):''+]addsel.epl" OnSubmit="">
[= addsel2 =]<br>
[= addsel3 =]<br><br>
1.1.2.8 +4 -0 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.7
retrieving revision 1.1.2.8
diff -u -r1.1.2.7 -r1.1.2.8
--- epwebapp.pl 21 Jun 2002 03:19:39 -0000 1.1.2.7
+++ epwebapp.pl 24 Jun 2002 19:22:31 -0000 1.1.2.8
@@ -83,6 +83,8 @@
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
+ $mon++ ;
+ $year += 1900 ;
return "$year-$mon-$mday $hour:$min:$sec" ;
}
@@ -175,6 +177,7 @@
'!Table' => 'item,
itemtext',
'!TabRelation' => 'item_id =
item.id',
'language_id' => $r ->
param -> language,
+ '!Order' =>
'creationtime desc',
$fdat{category_id}?(category_id => $fdat{category_id}):(),
$fdat{item_id}?(item_id =>
$fdat{item_id}):()}) ;
}
@@ -190,6 +193,7 @@
$r -> {item_set} = DBIx::Recordset -> Search ({'!DataSource' => $r -> {db},
'!Table' => 'item, itemtext,
language',
'!TabRelation' => 'item_id =
item.id and language_id = language.id',
+ '!Order' =>
'creationtime desc',
$fdat{category_id}?(category_id => $fdat{category_id}):(),
$fdat{item_id}?(item_id =>
$fdat{item_id}):()}) ;
}
No revision
No revision
1.1.2.4 +22 -15 embperl/eg/webutil/Attic/db.schema
Index: db.schema
===================================================================
RCS file: /home/cvs/embperl/eg/webutil/Attic/db.schema,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- db.schema 24 Jun 2002 14:19:28 -0000 1.1.2.3
+++ db.schema 24 Jun 2002 19:22:31 -0000 1.1.2.4
@@ -70,20 +70,27 @@
'!PrimKey' => 'id',
'!Init' =>
[
- { id => 1, item_id => 1, heading => '28.5.2002', language_id => 'de',
description => 'Auch auf der diesj�hrigen L<"O\'Reilly Open-Source
Convention"|http://conferences.oreillynet.com/os2002/> in San Diego wird es wieder ein
Vortrag �ber Embperl geben.' },
- { id => 2, item_id => 1, heading => '5/28/2002', language_id => 'en',
description => 'Again this year there will be a talk about Embperl at the L<"O\'Reilly
Open-Source Convention"|http://conferences.oreillynet.com/os2002/> in San Diego in
July.' },
- { id => 3, item_id => 1, heading => '28.5.2002', language_id => 'de',
description => 'Embperl 2.0b7 freigegeben' },
- { id => 4, item_id => 1, heading => '3/21/2002', language_id => 'en',
description => 'Embperl 2.0b7 released ' },
- { id => 5, item_id => 1, heading => '21.3.2002', language_id => 'de',
description => 'Embperl 2.0b6 freigegeben: Verbesserungen des Embperl-Objekt-Modells,
Formular Validierung, Internationalisierung, Performance Verbesserungen. Embperl 2 ist
jetzt komplett und vor dem endg�ltigen Release werden haupts�chlich noch Fehler
beseitigt.' },
- { id => 6, item_id => 1, heading => '3/13/2002', language_id => 'en',
description => 'Embperl 2.0b6 released: Enhancements of the Embperl object modell,
form validation, internationalization speed improvments. Embperl 2.0 is now feature
complete, mainly bugfixing and documetation will be done before final 2.0 release.
Test it out!' },
- { id => 7, item_id => 1, heading => '13.3.2002', language_id => 'de',
description => 'Embperl 1.3.4 freigegeben' },
- { id => 8, item_id => 1, heading => '12/5/2001', language_id => 'en',
description => 'Embperl 1.3.4 released.' },
- { id => 9, item_id => 1, heading => '5.12.2001', language_id => 'de',
description => 'Embperl 2.0b5 freigegeben' },
- { id => 10, item_id => 1, heading => '11/27/2001', language_id => 'en',
description => 'Embperl 2.0b5 released' },
- { id => 11, item_id => 1, heading => '27.11.2001', language_id => 'de',
description => 'Embperl 2.0b4 freigegeben. Neu ist die Unterst�tzung f�r XML und XSLT,
sowie das Zusammensetzen des Ergebnisses eines Requests durch mehrere frei
kombinierbare Provider.' },
- { id => 12, item_id => 1, heading => '11/20/2002', language_id => 'en',
description => 'Embperl 2.0b4 released. This release introduces XML and XSLT support
into Embperl, along with a new way of creating a request from a series of providers,
which pluged together in a hierachial tree structure.' },
- { id => 13, item_id => 1, heading => '28.7.2001', language_id => 'de',
description => 'David Lloyd wird einen Vortrag �ber Embperl auf der L<"AUUG Annual
Conference"|http://www.auug.org.au/winter/auug2001/> in Sydney, Australien, am 26, 27
and 28 September 2001 halten.' },
- { id => 14, item_id => 1, heading => '7/28/2001', language_id => 'en',
description => 'David Lloyd is makeing a talk at the L<"AUUG Annual
Conference"|http://www.auug.org.au/winter/auug2001/>, which will be held in Sydney,
Australia, on 26, 27 and 28 September 2001 ' },
+ { id => 1, item_id => 1, heading => '28.7.2001', language_id => 'de',
description => 'David Lloyd wird einen Vortrag �ber Embperl auf der L<"AUUG Annual
Conference"|http://www.auug.org.au/winter/auug2001/> in Sydney, Australien, am 26, 27
and 28 September 2001 halten.' },
+ { id => 2, item_id => 1, heading => '7/28/2001', language_id => 'en',
description => 'David Lloyd is makeing a talk at the L<"AUUG Annual
Conference"|http://www.auug.org.au/winter/auug2001/>, which will be held in Sydney,
Australia, on 26, 27 and 28 September 2001 ' },
+
+ { id => 3, item_id => 1, heading => '20.11.2001', language_id => 'de',
description => 'Embperl 2.0b4 freigegeben. Neu ist die Unterst�tzung f�r XML und XSLT,
sowie das Zusammensetzen des Ergebnisses eines Requests durch mehrere frei
kombinierbare Provider.' },
+ { id => 4, item_id => 1, heading => '11/20/2001', language_id => 'en',
description => 'Embperl 2.0b4 released. This release introduces XML and XSLT support
into Embperl, along with a new way of creating a request from a series of providers,
which pluged together in a hierachial tree structure.' },
+
+ { id => 5, item_id => 1, heading => '27.11.2001', language_id => 'de',
description => 'Embperl 2.0b5 freigegeben' },
+ { id => 6, item_id => 1, heading => '11/27/2001', language_id => 'en',
description => 'Embperl 2.0b5 released' },
+
+ { id => 7, item_id => 1, heading => '12/5/2001', language_id => 'en',
description => 'Embperl 1.3.4 released.' },
+ { id => 8, item_id => 1, heading => '5.12.2001', language_id => 'de',
description => 'Embperl 1.3.4 freigegeben' },
+
+ { id => 9, item_id => 1, heading => '3/13/2002', language_id => 'en',
description => 'Embperl 2.0b6 released: Enhancements of the Embperl object modell,
form validation, internationalization speed improvments. Embperl 2.0 is now feature
complete, mainly bugfixing and documetation will be done before final 2.0 release.
Test it out!' },
+ { id =>10, item_id => 1, heading => '13.3.2002', language_id => 'de',
description => 'Embperl 2.0b6 freigegeben: Verbesserungen des Embperl-Objekt-Modells,
Formular Validierung, Internationalisierung, Performance Verbesserungen. Embperl 2 ist
jetzt komplett und vor dem endg�ltigen Release werden haupts�chlich noch Fehler
beseitigt.' },
+
+ { id =>11, item_id => 1, heading => '3/21/2002', language_id => 'en',
description => 'Embperl 2.0b7 released ' },
+ { id =>12, item_id => 1, heading => '21.3.2002', language_id => 'de',
description => 'Embperl 2.0b7 freigegeben' },
+
+ { id =>13, item_id => 1, heading => '28.5.2002', language_id => 'de',
description => 'Auch auf der diesj�hrigen L<"O\'Reilly Open-Source
Convention"|http://conferences.oreillynet.com/os2002/> in San Diego wird es wieder ein
Vortrag �ber Embperl geben.' },
+ { id =>14, item_id => 1, heading => '5/28/2002', language_id => 'en',
description => 'Again this year there will be a talk about Embperl at the L<"O\'Reilly
Open-Source Convention"|http://conferences.oreillynet.com/os2002/> in San Diego in
July.' },
+
{ id => 15, item_id => 2, heading => 'http://bilder.ecos.de - Gerald
Richter [[EMAIL PROTECTED]]', language_id => 'de', description => 'Dies ist die Site f�r
die Embperl urspr�nglich geschrieben wurde. Es ist eine einfache Bilddatenbank die
touristische Bilder aus Rheinland-Pflaz enth�lt. ' },
{ id => 16, item_id => 2, heading => 'http://bilder.ecos.de - Gerald
Richter [[EMAIL PROTECTED]]', language_id => 'en', description => 'This was the site
Embperl was originally written for. It\'s a simple picture database which contains
pictures and tourist information for Rheinland-Pfalz/Germany. It\'s intended as press
information, to reduce the need for sending photographs by real mail. You can view and
search the pictures via the Internet or via a direct dial-in. Download is only
available for valid users and via direct dial-in. It is also possible to maintain the
database via the web and insert new pictures and descriptions and change or delete old
ones.' },
]
1.1.2.3 +3 -2 embperl/eg/webutil/Attic/setupdb.pl
Index: setupdb.pl
===================================================================
RCS file: /home/cvs/embperl/eg/webutil/Attic/setupdb.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- setupdb.pl 24 Jun 2002 14:19:30 -0000 1.1.2.2
+++ setupdb.pl 24 Jun 2002 19:22:31 -0000 1.1.2.3
@@ -16,6 +16,7 @@
##############################################################################
+use FindBin ;
use DBIx::Recordset ;
use Getopt::Long ;
@@ -44,7 +45,7 @@
$DBIx::Recordset::Debug = $opt_debug ;
-my $dbshema = "db.schema" ;
+my $dbshema = "$FindBin::Bin/db.schema" ;
my $db = DBIx::Database -> new ({'!DataSource' => $ds,
No revision
No revision
1.24.4.68 +2 -1 embperl/test/conf/httpd.conf.src
Index: httpd.conf.src
===================================================================
RCS file: /home/cvs/embperl/test/conf/httpd.conf.src,v
retrieving revision 1.24.4.67
retrieving revision 1.24.4.68
diff -u -r1.24.4.67 -r1.24.4.68
--- httpd.conf.src 24 Jun 2002 09:22:48 -0000 1.24.4.67
+++ httpd.conf.src 24 Jun 2002 19:22:31 -0000 1.24.4.68
@@ -558,6 +558,7 @@
<Location /eg/web>
EMBPERL_APPNAME EmbperlWeb
EMBPERL_OPTIONS 16
+EMBPERL_DEBUG 0
EMBPERL_ALLOW .
EMBPERL_OBJECT_BASE base.epl
EMBPERL_OBJECT_APP epwebapp.pl
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
