#!/usr/bin/perl -w
# Perl Upload
# Terrence Ma
# 08/25/2000

# use lib
use strict;
use CGI::Pretty;

# limit 1000K bytes post, permit upload
$CGI::POST_MAX        = 1024 * 1000;
$CGI::DISABLE_UPLOADS = 0;

# init variables
my $cgi   = new CGI;
my $title = "Perl Upload";

if (!$cgi->param()) {

# print header
  print $cgi->header(),
        $cgi->start_html($title);

  print $cgi->center($cgi->h1($title)),
        $cgi->hr(),
        $cgi->br();

# print body
  print $cgi->center
        (
          $cgi->start_multipart_form(),
          $cgi->font("Filename :"),
          $cgi->filefield(-name=>"filename", -size=>"30"),
          $cgi->br(),
          $cgi->br(),
          $cgi->submit(-value=>"Upload"), 
          $cgi->reset(-value=>"Clear"),
          $cgi->end_form()
        );

# print footer
  print $cgi->hr(),
        $cgi->a({-href=>"http://www.terrence.com/perl/upload/upload.txt"},
                "Program Source"),
        $cgi->br(),
        $cgi->end_html();

  exit(0);

} else {

# get file data
  my $file = $cgi->param("filename");
  my @filedata = <$file>;
  foreach (@filedata) {
    s/</&lt;/g;
    s/>/&gt;/g;
    s/\n/<BR>\n/g;
  }

# print header
  print $cgi->header(),
        $cgi->start_html($title);

  print $cgi->center($cgi->h1($title)),
        $cgi->hr(),
        $cgi->br();

# print body
  print $cgi->h3("$file :<BR>\n"),
        "@filedata";

# print footer
  print $cgi->br(),
        $cgi->hr(),
        $cgi->a({-href=>"http://www.terrence.com/perl/upload/upload.txt"},
                "Program Source"),
        $cgi->br(),
        $cgi->end_html();

  exit(0);

}