#!/usr/bin/perl

use CGI qw(:standard);

use Convert::UU;
use Convert::BinHex;
use MIME::Base64;
use MIME::QuotedPrint;
use URI::Escape;

print header(-charset=>'big5');
print start_html(-bgcolor=>'#F8F4E7', -title=>'編碼線上教具');

print '<h1 ALIGN="center">編碼線上教具</h1>';

if (param('tf')) {
	$tf = param('tf');
	print "<H2 ALIGN=\"center\">原文：$tf</H2>\n";
	print "<BLOCKQUOTE><DL>\n";

	print "<DT><B>Base64</B><BR />\n";
	print "<DD>", encode_base64($tf), "<BR />\n";

	print "<DT><B>QuotedPrint</B><BR />\n";
	print "<DD>", MIME::QuotedPrint::encode($tf), "<BR />\n";

	print "<DT><B>URL</B><BR />\n";
	print "<DD>", URI::Escape::uri_escape($tf), "<BR />\n";

	print "<DT><B>UU</B><BR />\n";
	print "<DD>";

	@uuoutput = split("\n", Convert::UU::uuencode($tf));
	foreach(@uuoutput) {
		if($_ !~ 'begin' && $_ !~ 'end') {
			print;
		}
	}

	print "<BR />\n";

	my $b2h = Convert::BinHex->bin2hex;
	print "<DT><B>BinHex</B><BR />\n";
	print "<DD>",$b2h->next($tf), $b2h->done, "<BR />\n";

	print "</DL></BLOCKQUOTE>\n";
	print hr, "\n";
}

print '您可以在下面的欄位中輸入最多二十四個字以進行編碼示範：', br, br, "\n";

print start_form(), "\n";
#print "輸入字串：", textfield(-name=>'tf', -maxlength=>'24'), "\n";
print "輸入字串：<input type=\"text\" name=\"tf\" maxlength=\"24\">\n";
print submit(-value=>'編碼'), "\n";
print end_form, "\n";

print '<center><a href="http://libai.math.ncu.edu.tw/bcc16/6/">[按這裡回課程首頁]</a></center>';

print << 'END';
<hr>

<p>
Created: November 13, 2002<br>
&#169; Copyright 2002 En-Ran Zhou 周恩冉
<br>
<br>
<ul>
<li><a HREF="/~shann/Welcome.html">Back</a> to the home page of
    <em>Wei-Chang Shann</em>.
<li><a HREF="http://www.math.ncu.edu.tw">Connect</a> to the home page of
    <em>Department of Mathematics</em>, <em>National Central University</em>,
    <em>Taiwan</em>.
</ul>

<address>
<a HREF="mailto:shann@math.ncu.edu.tw">shann@math.ncu.edu.tw</a><br>
</address>
</p>
END

print end_html();