File: nochdir.htm

package info (click to toggle)
libhtml-embperl-perl 1.3.6-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,524 kB
  • ctags: 1,182
  • sloc: ansic: 8,983; perl: 4,555; makefile: 83
file content (30 lines) | stat: -rw-r--r-- 532 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
<html>
<head>
<title>Some tests for Embperl</title>
</head>


<body>

[- use Cwd (); -]

optDisableChdir:[+ $optDisableChdir +] <BR>
optDisableFormData: [+ $optDisableFormData +] <BR>
Script  CWD: [+ $script = Cwd::fastcwd() +] <BR>
Embperl CWD: [+ $ep =     $HTML::Embperl::cwd +] <BR>

Equal: [+ $script eq $ep?'Yes':'No' +]<BR>
Diff CWD: [+ do { $script =~ /$ep/ ; ">$'<" } +]<BR>

[- @ks = sort keys %fdat -]

	<table>
		<tr>
			<td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
		</tr>
	</table>



</body>
</html>