richter 02/03/12 22:29:37
Modified: . Tag: Embperl2c eputil.c
Embperl Tag: Embperl2c Object.pm
Embperl/Recipe Tag: Embperl2c Embperl.pm EmbperlPODXSLT.pm
eg/web Tag: Embperl2c epwebapp.pl
eg/web/db Tag: Embperl2c addsel.epl
eg/web/db/news Tag: Embperl2c pod.xsl
Log:
website
Revision Changes Path
No revision
No revision
1.15.4.50 +5 -3 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.15.4.49
retrieving revision 1.15.4.50
diff -u -r1.15.4.49 -r1.15.4.50
--- eputil.c 11 Mar 2002 08:47:26 -0000 1.15.4.49
+++ eputil.c 13 Mar 2002 06:29:36 -0000 1.15.4.50
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: eputil.c,v 1.15.4.49 2002/03/11 08:47:26 richter Exp $
+# $Id: eputil.c,v 1.15.4.50 2002/03/13 06:29:36 richter Exp $
#
###################################################################################*/
@@ -1548,7 +1548,7 @@
{
epTHX_
AV *pPathAV = r -> Config.pPathAV ;
- int skip = r -> Component.pPrev?r -> Component.pPrev -> nPathNdx:0 ;
+ int skip = 0 ;
int i ;
struct stat st ;
char * fn ;
@@ -1562,7 +1562,9 @@
skip++ ;
sFilename += 3 ;
}
-
+ if (skip)
+ skip += r -> Component.pPrev?r -> Component.pPrev -> nPathNdx:0 ;
+
for (i = skip ; i <= AvFILL (pPathAV); i++)
{
fn = ep_pstrcat(r -> pPool, SvPV(*av_fetch (pPathAV, i, 0), l),
PATH_SEPARATOR_STR, sFilename, NULL) ;
No revision
No revision
1.1.2.18 +12 -5 embperl/Embperl/Attic/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Object.pm,v
retrieving revision 1.1.2.17
retrieving revision 1.1.2.18
diff -u -r1.1.2.17 -r1.1.2.18
--- Object.pm 11 Mar 2002 14:08:27 -0000 1.1.2.17
+++ Object.pm 13 Mar 2002 06:29:36 -0000 1.1.2.18
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Object.pm,v 1.1.2.17 2002/03/11 14:08:27 richter Exp $
+# $Id: Object.pm,v 1.1.2.18 2002/03/13 06:29:36 richter Exp $
#
###################################################################################
@@ -110,6 +110,13 @@
#############################################################################
+sub run
+ {
+ $_[0] -> run ;
+ }
+
+#############################################################################
+
sub Execute
{
@@ -212,7 +219,7 @@
print Embperl::LOG "[$$]Embperl::Object import new Base: $fn\n" if
($debug);
my $cparam = {%$req, inputfile => $fn, import => 0 } ;
my $c = $r -> setup_component ($cparam) ;
- $c -> run ;
+ run($c) ;
$basepackage = $packages{$fn} = $c -> curr_package if (!$r -> error) ;
$c -> cleanup ;
print Embperl::LOG "[$$]Embperl::Object import base ", ($r ->
error?'with ERRORS ':'') . "finished: $fn, " . ($basepackage?"package = $basepackage
\n":"\n") if ($debug);
@@ -241,7 +248,7 @@
my $cparam = {object => $appfn, syntax => 'Perl'} ;
my $c = $r -> setup_component ($cparam) ;
- my $app = $c -> run ;
+ my $app = run($c) ;
my $package = $packages{"$fn::$appfn"} = $c -> curr_package if (!$r ->
error) ;
$c -> cleanup ;
print Embperl::LOG "[$$]Embperl::Object import new Application ", ($r
-> error?'with ERRORS ':'') . "finished: $fn, " . ($package?"package =
$package\n":"\n") if ($debug);
@@ -294,7 +301,7 @@
my $cparam = {%$req, inputfile => $filename, import => 0 } ;
my $c = $r -> setup_component ($cparam) ;
- $c -> run ;
+ run($c) ;
$package = $packages{$filename} = $c -> curr_package if (!$r -> error);
$c -> cleanup ;
print Embperl::LOG "[$$]Embperl::Object import finished: $filename,
package = $package\n" if ($debug);
@@ -321,7 +328,7 @@
my $cparam = {%$req, inputfile => $fn } ;
my $c = $r -> setup_component ($cparam) ;
- $r -> run ;
+ run($r) ;
$r -> cleanup ;
return &OK ;
}
No revision
No revision
1.1.2.19 +2 -2 embperl/Embperl/Recipe/Attic/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Recipe/Attic/Embperl.pm,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -u -r1.1.2.18 -r1.1.2.19
--- Embperl.pm 27 Feb 2002 15:42:50 -0000 1.1.2.18
+++ Embperl.pm 13 Mar 2002 06:29:36 -0000 1.1.2.19
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.1.2.18 2002/02/27 15:42:50 richter Exp $
+# $Id: Embperl.pm,v 1.1.2.19 2002/03/13 06:29:36 richter Exp $
#
###################################################################################
@@ -47,7 +47,7 @@
push @recipe, ref $src eq 'ARRAY'?@$src:$src ;
}
- push @recipe, {'type' => 'epparse' } ;
+ push @recipe, {'type' => 'epparse', $syntax?(syntax => $syntax):() } ;
push @recipe, {'type' => 'epcompile', cache => 1 } ;
push @recipe, {'type' => 'eprun' } if ($param -> import < 0) ;
1.1.2.3 +5 -1 embperl/Embperl/Recipe/Attic/EmbperlPODXSLT.pm
Index: EmbperlPODXSLT.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Recipe/Attic/EmbperlPODXSLT.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- EmbperlPODXSLT.pm 25 Feb 2002 11:20:28 -0000 1.1.2.2
+++ EmbperlPODXSLT.pm 13 Mar 2002 06:29:36 -0000 1.1.2.3
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: EmbperlPODXSLT.pm,v 1.1.2.2 2002/02/25 11:20:28 richter Exp $
+# $Id: EmbperlPODXSLT.pm,v 1.1.2.3 2002/03/13 06:29:36 richter Exp $
#
###################################################################################
@@ -42,6 +42,10 @@
push @$epsrc, { type => 'eptostring' } ;
my $ep = Embperl::Recipe::EmbperlXSLT -> get_recipe ($r, $recipe, $epsrc,
'POD') ;
+ for (my $i = @$epsrc; $i < @$ep; $i++)
+ {
+ $ep -> [$i] -> {'cache'} = 0 if (exists $ep -> [$i] -> {'cache'}) ;
+ }
return $ep ;
}
No revision
No revision
1.1.2.5 +2 -2 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.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- epwebapp.pl 27 Feb 2002 15:42:50 -0000 1.1.2.4
+++ epwebapp.pl 13 Mar 2002 06:29:36 -0000 1.1.2.5
@@ -111,8 +111,8 @@
$pf = map_file ($r) ;
$r -> param -> filename ($pf) ;
- use Data::Dumper ;
- print STDERR Dumper ($r -> {menu}, $r -> param -> uri, $pf, \%fdat) ;
+ #use Data::Dumper ;
+ #print STDERR Dumper ($r -> {menu}, $r -> param -> uri, $pf, \%fdat) ;
Execute ({inputfile => 'messages.pl', syntax => 'Perl'}) ;
No revision
No revision
1.1.2.5 +0 -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.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- addsel.epl 6 Mar 2002 15:24:22 -0000 1.1.2.4
+++ addsel.epl 13 Mar 2002 06:29:36 -0000 1.1.2.5
@@ -45,8 +45,6 @@
<form action="[+ $r -> param -> uri +]" OnSubmit="">
-<input type="button" onclick="epform_validate()"><br>
-
[= addsel2 =]<br>
[= addsel3 =]<br><br>
No revision
No revision
1.1.2.2 +2 -1 embperl/eg/web/db/news/Attic/pod.xsl
Index: pod.xsl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/news/Attic/pod.xsl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- pod.xsl 12 Feb 2002 17:22:08 -0000 1.1.2.1
+++ pod.xsl 13 Mar 2002 06:29:37 -0000 1.1.2.2
@@ -33,7 +33,8 @@
<table width="100%" border="0" cellspacing="0" cellpadding="6">
<tr>
<td bgcolor="#fefcad"><b>
- <font color="0" xx="#FFFFFF"><xsl:text
disable-output-escaping="yes">&nbsp;</xsl:text>
+ <font size="4" face="Verdana, Arial, Helvetica, sans-serif">
+ <xsl:text disable-output-escaping="yes">&nbsp;</xsl:text>
<xsl:value-of select="$txt"/>
</font></b></td>
</tr>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
