#! /usr/bin/perl

use CGI qw(:all *table *p);

print header();
print start_html(-title=>"DeepBank (v0.9) Request");

if (param('Cancel')) {Delete_all()};

if (! (param('step') && param('name') && param('institution') && param('email'))) {
#  Delete_all();
  print
    h3("Please fill in the request form:"),
     start_form(),
     start_table,
#     Tr(td("Name"),td(textfield(-name=>'name',-value=>'Der Stephan'))),
#     Tr(td("Institution"),td(textfield(-name=>'institution',-value=>'UdS'))),
#     Tr(td("Email"),td(textfield(-name=>'email',-value=>'whgsb@sms.at'))),
     Tr(td("Name"),td(textfield(-name=>'name'))),
     Tr(td("Institution"),td(textfield(-name=>'institution'))),
     Tr(td("Email"),td(textfield(-name=>'email'))),
     Tr(td("Purpose*"),td(textarea(-rows=>'3',-cols=>"50",-name=>'purpose'))),
     end_table,
      p('*Optional field; we would be interested to learn what you want to use DeepBank for.'),
     hidden(-name=>'step',-value=>'2'),
     p(submit(-name=>'Download')),
     end_form
     } elsif (param('step') == 2) {
       my $name = param('name');
       my $inst = param('institution');
       my $email = param('email');
       my $purpose = param('purpose');

       foreach my $string ($name,$inst,$email,$purpose) {
           $string =~ s/[^a-zA-Z0-9_@\-\. ]/*/g;
       };


#       system("echo \"DeepBank Request from\n\n$name\n$inst\n$email\n$purpose\" |mail -s 'DeepBank Request' yzhang\@coli.uni-sb.de");

       open(LOG,'>>/web/www.coli.uni-saarland.de/html/projects/deepbank/request.log');
       my $today = `date +%D-%H:%M:%S`;
       chomp $today;
       print LOG "$today\t$name\t$inst\t$email\t$purpose\n";
       close(LOG);

       print "<meta http-equiv=\"Refresh\" content=\"0; URL=http://www.coli.uni-saarland.de/projects/deepbank/deepbank-0.9.zip\">";
       print h2("Thanks for requesting DeepBank v0.9!");
       print h3("If the download does not start automatically, please click <a href=\"deepbank-0.9.zip\">here</a>."),br;
       
     };
	

print hr,
  p(span({-style=>'font-style:italic'},a({-href=>'http://www.coli.uni-saarland.de/projects/deepbank/index.html'},"DeepBank Project"))),
  end_html();