richter 2002/09/11 02:17:19
Modified: . Tag: Embperl2c Changes.pod Old.xs
Embperl Tag: Embperl2c App.pm
Embperl/Form Tag: Embperl2c Validate.pm
eg/web Tag: Embperl2c content.epl
Log:
fix SIGSEGV when print to LOG before setup
Revision Changes Path
No revision
No revision
1.129.4.90 +3 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.89
retrieving revision 1.129.4.90
diff -u -r1.129.4.89 -r1.129.4.90
--- Changes.pod 5 Sep 2002 05:02:31 -0000 1.129.4.89
+++ Changes.pod 11 Sep 2002 09:17:18 -0000 1.129.4.90
@@ -16,6 +16,9 @@
- fixed spelling: CACKE_KEY -> CACHE_KEY. Reported by Andre Landwehr.
- URL escaping now fully conforms to RFC 2396. This mainly solves some problems
where IE interpreted characters in URLs as UTF8.
+ - Embperl::Form::Validate JavaScript code can now handle fieldnames that
+ aren't correct JavaScript identifier.
+ - Fix SIGSEGV when printing to Embperl::LOG before Embperl log file is setup.
=head1 2.0b8 (BETA) 25. Juni 2002
1.1.2.9 +4 -1 embperl/Attic/Old.xs
Index: Old.xs
===================================================================
RCS file: /home/cvs/embperl/Attic/Old.xs,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -u -r1.1.2.8 -r1.1.2.9
--- Old.xs 28 May 2002 06:56:03 -0000 1.1.2.8
+++ Old.xs 11 Sep 2002 09:17:19 -0000 1.1.2.9
@@ -78,7 +78,10 @@
INIT:
tReq * r = CurrReq ;
CODE:
- lwrite (r->pApp,sText, strlen (sText)) ;
+ if (r)
+ lwrite (r->pApp,sText, strlen (sText)) ;
+ else
+ PerlIO_puts(PerlIO_stderr(), sText) ;
void
No revision
No revision
1.1.2.6 +6 -2 embperl/Embperl/Attic/App.pm
Index: App.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/App.pm,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- App.pm 24 Jun 2002 19:22:30 -0000 1.1.2.5
+++ App.pm 11 Sep 2002 09:17:19 -0000 1.1.2.6
@@ -116,14 +116,18 @@
else
{
$Embperl::escmode = 3 ;
+ $r -> output ("\\<table cellspacing='2' cellpadding='5'\\>\r\n") ;
foreach $err (@$errors)
{
$err =~ s|\\|\\\\|g;
$err =~ s|\n|\n\\<br\\>\\ \\ \\ \\ |g;
- $r -> output ("$err\\<p\\>\r\n") ;
+ $r -> output ("\\<tr bgcolor='#eeeeee'\\>\\<td\\>\r\n\\<!-- - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - --\\>\r\n") ;
+ $r -> output ("$err\r\n") ;
+ $r -> output ("\\<!-- - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - --\\>\r\n\\</td\\>\\</tr\\>\r\n") ;
#$r -> output ("\\<tt\\>$err\\</tt\\>\\<p\\>\r\n") ;
$cnt++ ;
}
+ $r -> output ("\\</table\\>\r\n\\<br\\>\n\r") ;
$Embperl::escmode = 0 ;
}
No revision
No revision
1.1.2.15 +3 -3 embperl/Embperl/Form/Attic/Validate.pm
Index: Validate.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Form/Attic/Validate.pm,v
retrieving revision 1.1.2.14
retrieving revision 1.1.2.15
diff -u -r1.1.2.14 -r1.1.2.15
--- Validate.pm 21 Aug 2002 05:44:10 -0000 1.1.2.14
+++ Validate.pm 11 Sep 2002 09:17:19 -0000 1.1.2.15
@@ -564,7 +564,7 @@
}
if (!ref $key)
{
- $script .= "obj = document.$form.$key ; if (!($code)) { $setmsg
" . ($param{fail}?'fail=1;break;':($param{cont}?'':'break;')) . "}\n" ;
+ $script .= "obj = document.$form\['$key'\] ; if (!($code)) {
$setmsg " . ($param{fail}?'fail=1;break;':($param{cont}?'':'break;')) . "}\n" ;
}
else
{
No revision
No revision
1.1.2.9 +1 -9 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.8
retrieving revision 1.1.2.9
diff -u -r1.1.2.8 -r1.1.2.9
--- content.epl 5 Sep 2002 05:02:31 -0000 1.1.2.8
+++ content.epl 11 Sep 2002 09:17:19 -0000 1.1.2.9
@@ -2,20 +2,12 @@
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td valign="top">
-<<<<<<< content.epl
[#
<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>
-=======
- [#
- <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>
->>>>>>> 1.1.2.7
- <font size="2" face="Verdana, Arial, Helvetica, sans-serif">[- Execute
({inputfile => '*', syntax => 'Text'}) -]</td>
+ <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="[+ $r -> {imageuri} +]frame.jpg"
width="1" height="100%"></td>
<td valign="top" width="2"> </td>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
