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

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

$| = 1;

print qq[Content-Type: text/html; charset=utf-8

<!DOCTYPE HTML>
<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;

print qq[<title>Title</title>];

sleep 2;

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

sleep 2;

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			print qq[Content-Type: text/html; charset=utf-8
8
9			<!DOCTYPE HTML>
10			<html style="border: blue 0.5em solid; padding: 0.5em; cursor: pointer"
11			onclick="
12			var head = document.createElement ('head');
13			head.setAttribute ('style', 'border: orange 0.5em solid; padding: 0.5em; display: block; margin: 0.5em');
14			head.setAttribute ('data-source', 'html/\@onclick');
15			document.documentElement.appendChild (head);
16			">];
17
18			sleep 2;
19
20			print qq[<title>Title</title>];
21
22			sleep 2;
23
24			print q[<body style="border: blue 0.5em solid; padding: 0.5em; margin: 0.5em">];
25
26			sleep 2;
27
28			print q[<p><a href="javascript:alert (document.innerHTML \|\| document.documentElement.outerHTML \|\| document.documentElement.innerHTML)">Check DOM of this page!</a>];
29
30			print q[<p>] . rand;