use strict;
use lib '/wasd_root/src/perl/cgipm';
require CGI;
use CGI qw(:standard);

my $query = new CGI;

print $query->header();

# when being strict we need to cast a tainted variable to a string
my $tfilename = $query->param('upload');
my $filename = $tfilename;

my $tmpFileName = $query->tmpFileName($filename);
my $mimeType;
$mimeType = $query->uploadInfo($filename)->{'Content-Type'};

print

"<B><U>Using GGI.pm to demonstrate file upload!</U></B>

<P><B>FileName:</B> ", $filename,

"<P><B>tmpFileName:</B> ", $tmpFileName,

"<P><B>MIME type:</B> ", $mimeType,

"<P><TABLE BORDER=1 CELLPADDING=5 CELLSPACING=0><TR><TD><PRE>";

if ($mimeType eq 'text/plain')
{
   my $length = 0;
   my $fh = $query->upload('upload');
   while (my $record = <$fh>) {
      print escapeHTML($record);
      $length += length($record);
   }
   print
"</PRE></TD></TR></TABLE>
<P>Document length: ", $length, " bytes";
}
else
{
   print
"<B>File content cannot be displayed unless plain text!</B>
</PRE></TD></TR></TABLE>";
}

if (defined $main::perlRTEcount) {
  print "<P>Engine usage count: ", $main::perlRTEcount,
        "<BR>Cached script usage count: ", $main::perlRTEcache;
}