mime-multipart/mixed-replace/content-location-1.cgi

#!/usr/bin/perl 
use strict;

require 'mixed-replace-generation.pl';

$| = 1;

my $mr = mixed_replace_generation->new;

$mr->output_cgi_header;

for my $i (1..10) {
  $mr->output_boundary;

  $mr->output_line ('Content-Type: text/html; charset=us-ascii');
  $mr->output_line ('Content-Location: http://www.example.com/test/' . $i);

  $mr->output_line ('');

  $mr->output_line ('<script src="../../../support/result0.js"></script>');
  $mr->output_line ('<p>Part ' . $i . '/10</p>');
  $mr->output_line ('<p><code>location.href</code> is <script type="text/javascript">writeResult (location.href)</script>.</p>');
  $mr->output_line ('<p><a href="relative-ref">relative-ref</a></p>');
  $mr->output_line ('<p><a id="a">view-source:<var>this</var></a></p>');
  $mr->output_line ('<script>document.getElementById ("a").href = "view-source:" + location.href</script>');

  sleep 1;
}

$mr->output_last_boundary;
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			require 'mixed-replace-generation.pl';
5
6			$\| = 1;
7
8			my $mr = mixed_replace_generation->new;
9
10			$mr->output_cgi_header;
11
12			for my $i (1..10) {
13			$mr->output_boundary;
14
15			$mr->output_line ('Content-Type: text/html; charset=us-ascii');
16			$mr->output_line ('Content-Location: http://www.example.com/test/' . $i);
17
18			$mr->output_line ('');
19
20			$mr->output_line ('<script src="../../../support/result0.js"></script>');
21			$mr->output_line ('<p>Part ' . $i . '/10</p>');
22			$mr->output_line ('<p><code>location.href</code> is <script type="text/javascript">writeResult (location.href)</script>.</p>');
23			$mr->output_line ('<p><a href="relative-ref">relative-ref</a></p>');
24			$mr->output_line ('<p><a id="a">view-source:<var>this</var></a></p>');
25			$mr->output_line ('<script>document.getElementById ("a").href = "view-source:" + location.href</script>');
26
27			sleep 1;
28			}
29
30			$mr->output_last_boundary;