← Back to branch summary

~ubuntu-branches/debian/sid/libembperl-perl/sid

« back to all changes in this revision

Viewing changes to test/html/escape.htm

  • Committer: Bazaar Package Importer
  • Author(s): Angus Lees
  • Date: 2005-04-20 19:25:44 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 hoary)
  • Revision ID: james.westby@ubuntu.com-20050420192544-dcp6nkxni4puc6h6
Tags: 2.0rc3-1
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/html/escape.htm
271
271
  
272
272
 
273
273
[- 
274
 
$fdat{esc} = 'environment of the <font color="red">Sample Company</font>' ;
 
274
$fdat{esc} = 'environment of the &lt;font color="red"&gt;Sample Company&lt;/font&gt;<>&' ;
275
275
$fdat{null} = 0 ;
276
276
-]
277
 
[#
 
277
 
278
278
escmode = [+ $escmode = 7 +]
279
279
 
280
280
<input name="esc">
281
281
<input name="null">
282
 
#]
 
282
 
283
283
 
284
284
 
285
285
--> my
317
317
    [- hello(); hello(); -]
318
318
 
319
319
 
 
320
[- $escmode=1 -]<a href=[+ do { '&' } +]>html escaped</a>
 
321
<a href=[+ do { local $escmode=1; '&' } +]>html escaped?</a>
 
322
<a href=[+ do { local $escmode=2; '&' } +]>url escaped</a>
 
323
 
 
324
[- $fdat{foobar} = "Don't go there!" -]
 
325
 
 
326
[- $escmode = 3; -]
 
327
<textarea name="foobar" rows="5" cols="80" wrap="off">[+ $fdat{foobar}
 
328
+]</textarea>
 
329
[- $escmode = 0; -]
 
330
 
 
331
This does not work:
 
332
 
 
333
[- $escmode = 3; -]
 
334
<textarea name="foobar" rows="5" cols="80" wrap="off"></textarea>
 
335
[- $escmode = 0; -]
 
336
 
320
337
 
321
338
<P>Ok.<P>
322
339