src/third_party/WebKit/LayoutTests/http/tests/xmlhttprequest/supported-xml-content-types.cgi

   1 #!/usr/bin/perl -wT
   2
   3 use CGI qw(:standard);
   4 my $cgi = new CGI;
   5 my $type = $cgi->param('type');
   6 $type =~ s/\^\^PLUS\^\^/+/g;
   7
   8 my $escapedType = $type;
   9 $escapedType =~ s/&/&#38;/;
  10 $escapedType =~ s/</&#60;/;
  11 $escapedType =~ s/>/&#62;/;
  12 $escapedType =~ s/'/&#39;/;
  13 $escapedType =~ s/"/&#34;/;
  14
  15 print "Content-type: $type\n\n";
  16 print "<type>$escapedType</type>\n";