1 |
wakaba |
1.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 |