html/head/head-by-script-and-parser-3.html.cgi

#!/usr/bin/perl
use strict;
use warnings;

$| = 1;

# 0s

sleep 2;

# 2s
print qq[Content-Type: text/html; charset=utf-8\n\n];

sleep 2;

# 4s
print q[  ];

sleep 2;

# 6s
print q[<!DOCTYPE HTML>];

sleep 2;

# 8s
print q[<html style="border: blue 0.5em solid; padding: 0.5em; cursor: pointer"
    onclick="
      var head = document.createElement ('head');
      head.setAttribute ('style', 'border: orange 0.5em solid; padding: 0.5em; display: block; margin: 0.5em');
      head.setAttribute ('data-source', 'html/\@onclick');
      document.documentElement.appendChild (head);
    ">];

sleep 2;

# 10s
print qq[<head data-source="html/head" style="border: blue 0.5em solid; padding: 0.5em; display: block; margin: 0.5em">];

sleep 2;

# 12s
print q[<body style="border: blue 0.5em solid; padding: 0.5em; margin: 0.5em">];

sleep 2;

# 14s
print q[<p><a href="javascript:alert (document.innerHTML || document.documentElement.outerHTML || document.documentElement.innerHTML)">Check DOM of this page!</a>];

print q[<p>] . rand;
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			$\| = 1;
6
7			# 0s
8
9			sleep 2;
10
11			# 2s
12			print qq[Content-Type: text/html; charset=utf-8\n\n];
13
14			sleep 2;
15
16			# 4s
17			print q[ ];
18
19			sleep 2;
20
21			# 6s
22			print q[<!DOCTYPE HTML>];
23
24			sleep 2;
25
26			# 8s
27			print q[<html style="border: blue 0.5em solid; padding: 0.5em; cursor: pointer"
28			onclick="
29			var head = document.createElement ('head');
30			head.setAttribute ('style', 'border: orange 0.5em solid; padding: 0.5em; display: block; margin: 0.5em');
31			head.setAttribute ('data-source', 'html/\@onclick');
32			document.documentElement.appendChild (head);
33			">];
34
35			sleep 2;
36
37			# 10s
38			print qq[<head data-source="html/head" style="border: blue 0.5em solid; padding: 0.5em; display: block; margin: 0.5em">];
39
40			sleep 2;
41
42			# 12s
43			print q[<body style="border: blue 0.5em solid; padding: 0.5em; margin: 0.5em">];
44
45			sleep 2;
46
47			# 14s
48			print q[<p><a href="javascript:alert (document.innerHTML \|\| document.documentElement.outerHTML \|\| document.documentElement.innerHTML)">Check DOM of this page!</a>];
49
50			print q[<p>] . rand;