#!/usr/local/bin/perl

use CGI qw(:standard);
use Env;

$| = 1;

print header;
print "<HTML><base href=\"http://www.csie.ntu.edu.tw/~cjlin/\"><body BGCOLOR=\"#FFEFD5\" TEXT=\"#000000\" LINK=\"#FF0000\" VLINK=\"#0000FF\" ><H2> BSVM </H2><H4>";
 

if(!($email = param('address')))
{
    print "<p>You left the email address line blank.";
    print "<br>Please go back and enter your email address.";
    print "</H4><p><A HREF=\"bsvm\">Back</A>";
} else {
    print "<p>Download the compressed file";
    print " <A HREF=\"cgi-bin/bsvm.cgi?+bsvm/bsvm.tar.gz\"> bsvm.tar.gz</A>.";
    print "\n</body></HTML>";
    $date = `date`;
    open(LOG,">>addresses");
    print LOG $email . "  " . $date;
    close(LOG);
}
print "\n</body></HTML>";

