#!/usr/bin/perl

use strict;
use CGI;
use Digest::SHA1;
use URI::Escape;

use Tetragon;

my $q = new CGI;

print Tetragon::html_header();

print <<STUFF;
<h2>Converting an MS Word File</h2>

<p>
This web-based program is designed to convert a fiction manuscript from MS Word format
to plain text format. The main advantage of this over a simple "Save as" in Word is
that it will automatically format italics <tt>_like this_</tt> and boldface
<tt>*like this*</tt>. Once you upload your file, the resulting converted
version will be displayed in your browser, and you can cut and paste it into
a text editor such as NotePad.
</p>
<p>Caveats:</p>
<ul>
<li>This is a fairly computation-intensive thing for my server to do, so I don't want this
    to be a service that's used heavily by a huge number of people. Please don't
    use it from an automated script, and don't use it more than a few times per day.</li>
<li>Don't assume blindly that the results are what you want. Look over the output file
     carefully, and fix any problems by hand.</li>
<li>This probably will not work with the OOXML format used as the default format by the most recent
    versions of word. To make sure that's not a problem, do a "Save as" in Word, and choose
    an older format.</li>
</ul>

STUFF

print <<STUFF;
<form method="post" action="http://tetragonsf.com/cgi-bin/convert_word2.cgi" enctype="multipart/form-data">
        <p>file: <input type="file" name="foo" size="40"/></p>
        <p> <input type="submit" name="Continue" value="Continue" /> </p>
</form>

STUFF

print Tetragon::html_footer();