<!-- showme.htm -->
<html>
<body>
<form method="POST" action="showme.pl">
<textarea name="myHTML"></textarea>
<input type="checkbox" name="asHTML">Show as HTML
<input type="submit">
</form>
</body>
</html>
#!/usr/bin/perl
# showme.pl
use strict;
use warnings;
use CGI 'param';
my $html = param('myHTML');
my $ashtml = param('asHTML');
if ($ashtml) {
print "Content-Type: text/html\n\n";
print $html;
} else {
print "Content-Type: text/plain\n\n";
print "The HTML you submitted looks like:\n";
print "*" x 76, "\n";
print $html;
print "\n", "*" x 76, "\n";
}
Given this input in the textarea:
<html>
<head>
<title>Show me</title>
</head>
<body>Hi</body>
</html>
Without checking the box I get this output:
The HTML you submitted looks like:
**********************************************************************
+******
<html>
<head>
<title>Show me</title>
</head>
<body>Hi</body>
</html>
**********************************************************************
+******
And if I check the box I just get a page saying "Hi", titled "Show me". It really isn't that hard.
|