#!/usr/local/bin/perl
# Copyright (C) 1992-2000 Michigan State University
#
# The CAPA system is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of the
# License, or (at your option) any later version.
#
# The CAPA system is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public
# License along with the CAPA system; see the file COPYING. If not,
# write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
# As a special exception, you have permission to link this program
# with the TtH/TtM library and distribute executables, as long as you
# follow the requirements of the GNU GPL in regard to all of the
# software in the executable aside from TtH/TtM.
require "./cgi-lib.pl";
## TO DO: file with zero length
##
$cgi_lib'maxdata = 512000;
$cgi_lib'writefiles = "/tmp";
$ret = &ReadParse;
&CgiDie("Error in reading and parsing of CGI input") if !defined $ret;
&CgiDie("No data uploaded", "Please enter it in fup.html.") if !$ret;
$in{'paperfile'} =~ s/</g;
$in{'paperfile'} =~ s/>/>/g;
# Now produce the result: an HTML page...
print &PrintHeader;
print &HtmlTop("File Upload Results");
print <You've uploaded a file.
Your title of the paper were:
$in{'title'}
The file's full path is:
$in{'paperfile'}
MSG:: $cgi_msg
EOT
print &HtmlBot;