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