#!/usr/bin/perl -w | |
use CGI qw(:standard); | |
my $cgi = new CGI; | |
my $type = $cgi->param('type'); | |
$type =~ s/\^\^PLUS\^\^/+/g; | |
my $escapedType = $type; | |
$escapedType =~ s/&/&/; | |
$escapedType =~ s/</</; | |
$escapedType =~ s/>/>/; | |
$escapedType =~ s/'/'/; | |
$escapedType =~ s/"/"/; | |
print "Content-type: $type\n\n"; | |
print "<type>$escapedType</type>\n"; |