uri/javascript/test.cgi

#!/usr/bin/perl
use strict;

my $file_name = 'javascript-uris.txt';

my @item;
{
  open my $file, '<', $file_name;
  local $/ = undef;
  @item = split /\n\n#/, <$file>;
}

sub htescape ($) {
  my $s = shift;
  $s =~ s/&/&amp;/g;
  $s =~ s/</&lt;/g;
  $s =~ s/"/&quot;/g;
  return $s;
} # htescape

sub get_id ($) {
  my $s = shift;
  $s =~ s/([^0-9A-Za-z-])/sprintf '_%08X', ord $1/ge;
  return $s;
} # get_id

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

<!DOCTYPE HTML>
<html lang=en>
<title>javascript: URIs</title>
<style>
.note {

}
.item {
  margin: 1em;
  padding: 0.2em 0.7em;
  background-color: #F0F8FC;
  color: black;
}
[irrelevant] {
  display: none;
}
</style>
<script>
  window.onload = function () {
    var tags = {};
    var anchors = document.getElementsByTagName ('a');
    var anchorsL = anchors.length;
    for (var i = 0; i < anchorsL; i++) {
      var anchor = anchors[i];
      if (!anchor.hasAttribute ('href')) {
        var tagName = anchor.textContent;
        anchor.setAttribute ('href', '#tag=' + encodeURIComponent (tagName));
        anchor.onclick = function () {
          showTag (this.textContent);
        };
        tags[tagName] = true;
      }
    }

    var uri = location.href;
    if (uri.match (/#/)) {
      var hash = uri.substring (uri.indexOf ('#'));
      if (hash.match (/^#tag=/)) {
        showTag (decodeURIComponent (hash.substring (5)));
      }
    }

    var tagsEl = document.getElementById ('tags');
    var tagList = [];
    for (var v in tags) {
      tagList.push (v);
    }
    tagList = tagList.sort ();
    for (var i = 0; i < tagList.length; i++) {
      tagsEl.appendChild (document.createTextNode (', '));
      var a = tagsEl.appendChild (document.createElement ('a'));
      a.href = '#tag=' + encodeURIComponent (tagList[i]);
      a.textContent = tagList[i];
      a.onclick = function () {
        showTag (this.textContent);
      };
    }
  }; // window.onload

  function showTag (tag) {
    var items = document.getElementsByTagName ('div');
    var itemsL = items.length;
    I: for (var i = 0; i < itemsL; i++) {
      var item = items[i];
      if (tag == '') {
        item.removeAttribute ('irrelevant');
      } else {
        var itemAs = item.getElementsByTagName ('a');
        var itemAsL = itemAs.length;
        for (var j = 0; j < itemAsL; j++) {
          if (itemAs[j].textContent == tag) {
            item.removeAttribute ('irrelevant');
            continue I;
          }
        }
        item.setAttribute ('irrelevant', '');
      }
    }
  }
</script><p id=tags>Tags: <a href="#" onclick="showTag ('')">All</a></p>];

for (@item) {
  s/^#//;
  my %prop;
  for (split /\n#/, $_) {
    if (s/^([0-9A-Za-z-]+)(?>\n|\z)//s) {
      $prop{$1} = $_;
    } elsif (s/^([0-9A-Za-z-]+)\s+escaped(?>\n|\z)//s) {
      my $t = $1;
      s/&#x([0-9A-Fa-f]+);/chr hex $1/ge;
      $prop{$t} = $_;
    }
  }

  my $id = htescape (get_id ($prop{data}));
  my $euri = htescape ($prop{data});
  print qq[<div class=item id=$id><p>URI: &lt;<a href="$euri">$euri</a>&gt;];
  for (qw/note conforming non-conforming source/) {
    next unless defined $prop{$_};
    print qq[<p>];
    print qq[<strong>Conforming <code>javascript:</code> URI</strong>: ] if $_ eq 'conforming';
    print qq[<strong>Non-conforming <code>javascript:</code> URI</strong>: ] if $_ eq 'non-conforming';
    print qq[Source: ] if $_ eq 'source';
    my $v = htescape ($prop{$_});
    $v =~ s[&lt;([^>]+)>][&lt;<a href="$1">$1</a>&gt;]g;
    print qq[<span class=note>] . $v . qq[</span>];
  }

  if (defined $prop{tags}) {
    my @tag = sort {$a cmp $b} split /\n/, $prop{tags};
    print q[<p class=tags>Tags: ];
    print join ', ', map {'<a>' . htescape ($_) . '</a>'} @tag;
  }
  print qq[</div>];
}
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			my $file_name = 'javascript-uris.txt';
5
6			my @item;
7			{
8			open my $file, '<', $file_name;
9			local $/ = undef;
10			@item = split /\n\n#/, <$file>;
11			}
12
13			sub htescape ($) {
14			my $s = shift;
15			$s =~ s/&/&/g;
16			$s =~ s/</</g;
17			$s =~ s/"/"/g;
18			return $s;
19			} # htescape
20
21			sub get_id ($) {
22			my $s = shift;
23			$s =~ s/([^0-9A-Za-z-])/sprintf '_%08X', ord $1/ge;
24			return $s;
25			} # get_id
26
27			print q[Content-Type: text/html; charset=utf-8
28
29			<!DOCTYPE HTML>
30			<html lang=en>
31			<title>javascript: URIs</title>
32			<style>
33			.note {
34
35			}
36			.item {
37			margin: 1em;
38			padding: 0.2em 0.7em;
39			background-color: #F0F8FC;
40			color: black;
41			}
42			[irrelevant] {
43			display: none;
44			}
45			</style>
46			<script>
47			window.onload = function () {
48			var tags = {};
49			var anchors = document.getElementsByTagName ('a');
50			var anchorsL = anchors.length;
51			for (var i = 0; i < anchorsL; i++) {
52			var anchor = anchors[i];
53			if (!anchor.hasAttribute ('href')) {
54			var tagName = anchor.textContent;
55			anchor.setAttribute ('href', '#tag=' + encodeURIComponent (tagName));
56			anchor.onclick = function () {
57			showTag (this.textContent);
58			};
59			tags[tagName] = true;
60			}
61			}
62
63			var uri = location.href;
64			if (uri.match (/#/)) {
65			var hash = uri.substring (uri.indexOf ('#'));
66			if (hash.match (/^#tag=/)) {
67			showTag (decodeURIComponent (hash.substring (5)));
68			}
69			}
70
71			var tagsEl = document.getElementById ('tags');
72			var tagList = [];
73			for (var v in tags) {
74			tagList.push (v);
75			}
76			tagList = tagList.sort ();
77			for (var i = 0; i < tagList.length; i++) {
78			tagsEl.appendChild (document.createTextNode (', '));
79			var a = tagsEl.appendChild (document.createElement ('a'));
80			a.href = '#tag=' + encodeURIComponent (tagList[i]);
81			a.textContent = tagList[i];
82			a.onclick = function () {
83			showTag (this.textContent);
84			};
85			}
86			}; // window.onload
87
88			function showTag (tag) {
89			var items = document.getElementsByTagName ('div');
90			var itemsL = items.length;
91			I: for (var i = 0; i < itemsL; i++) {
92			var item = items[i];
93			if (tag == '') {
94			item.removeAttribute ('irrelevant');
95			} else {
96			var itemAs = item.getElementsByTagName ('a');
97			var itemAsL = itemAs.length;
98			for (var j = 0; j < itemAsL; j++) {
99			if (itemAs[j].textContent == tag) {
100			item.removeAttribute ('irrelevant');
101			continue I;
102			}
103			}
104			item.setAttribute ('irrelevant', '');
105			}
106			}
107			}
108			</script><p id=tags>Tags: <a href="#" onclick="showTag ('')">All</a></p>];
109
110			for (@item) {
111			s/^#//;
112			my %prop;
113			for (split /\n#/, $_) {
114			if (s/^([0-9A-Za-z-]+)(?>\n\|\z)//s) {
115			$prop{$1} = $_;
116			} elsif (s/^([0-9A-Za-z-]+)\s+escaped(?>\n\|\z)//s) {
117			my $t = $1;
118			s/&#x([0-9A-Fa-f]+);/chr hex $1/ge;
119			$prop{$t} = $_;
120			}
121			}
122
123			my $id = htescape (get_id ($prop{data}));
124			my $euri = htescape ($prop{data});
125			print qq[<div class=item id=$id><p>URI: <<a href="$euri">$euri</a>>];
126			for (qw/note conforming non-conforming source/) {
127			next unless defined $prop{$_};
128			print qq[<p>];
129			print qq[<strong>Conforming <code>javascript:</code> URI</strong>: ] if $_ eq 'conforming';
130			print qq[<strong>Non-conforming <code>javascript:</code> URI</strong>: ] if $_ eq 'non-conforming';
131			print qq[Source: ] if $_ eq 'source';
132			my $v = htescape ($prop{$_});
133			$v =~ s[<([^>]+)>][<<a href="$1">$1</a>>]g;
134			print qq[<span class=note>] . $v . qq[</span>];
135			}
136
137			if (defined $prop{tags}) {
138			my @tag = sort {$a cmp $b} split /\n/, $prop{tags};
139			print q[<p class=tags>Tags: ];
140			print join ', ', map {'<a>' . htescape ($_) . '</a>'} @tag;
141			}
142			print qq[</div>];
143			}