#!/usr/bin/perl -w
# Perl Download
# Terrence Ma
# 09/20/2000

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

# init variables
my $cgi     = new CGI;
my $title   = "Perl Download";
my $urlbase = "http://www.terrence.com/perl/download/";
my $url;
my $filename;

# main program
# if no parameter, print a request page
# otherwise send file

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_form(),
          $cgi->font("Select File Format :"),
          $cgi->popup_menu
          (
            -name=>"filename",
            -values=>["download.gz", "download.zip", "download.txt"],
            -labels=>{"download.gz"=>"download.gz",
                      "download.zip"=>"download.zip",
                      "download.txt"=>"View Online"},
            -default=>"download.gz"
          ),
          $cgi->br(),
          $cgi->br(),
          $cgi->submit(-value=>"Download"),
          $cgi->end_form()
        );

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

  exit(0);

} else {

# get $url
  $filename = $cgi->param("filename");
  $url = $urlbase . $filename;

# send file
  print $cgi->redirect(-location=>$url, -nph=>"0");

  exit(0);

}