| 1 |
#!/usr/bin/perl |
| 2 |
|
| 3 |
print <<'EOH'; |
| 4 |
Content-Type: text/html; charset=us-ascii |
| 5 |
|
| 6 |
<!DOCTYPE html> |
| 7 |
<html> |
| 8 |
<head> |
| 9 |
<title>document.lastModified</title> |
| 10 |
</head> |
| 11 |
<body> |
| 12 |
<h1><code>document.lastModified</code></h1> |
| 13 |
|
| 14 |
<p>This document has no <code>Last-Modified:</code> |
| 15 |
HTTP header field.</p> |
| 16 |
|
| 17 |
<p><code>document.lastModified == '<script type="text/javascript"> |
| 18 |
var s = document.lastModified; |
| 19 |
s = s.replace (/&/, '&'); |
| 20 |
s = s.replace (/</, '<'); |
| 21 |
document.write (s); |
| 22 |
</script>'</code></p> |
| 23 |
|
| 24 |
</body> |
| 25 |
</html> |
| 26 |
EOH |