#!/bin/perl

use strict;
use CGI;

my $lomake = new CGI;

my $sukunimi = $lomake->param('sukunimi');
my $etunimi = $lomake->param('etunimi');
my $opnumero = $lomake->param('opnumero');
my $emailOK = $lomake->param('emailOK');
my $email1 = $lomake->param('email1');
my $email2 = $lomake->param('email2');
my $paaaine = $lomake->param('paaaine');
my $ryhma = $lomake->param('ryhma');

# Jos postia ei haluta, mahdollisesti annettuja osoitteita ei
# talleteta, vaan ne tyhjennetään tässä.
if ($emailOK ne 'on') {
    $email1 = '';
    $email2 = '';
}

open(F,'>>ilmoittautumiset.txt') or virhe($!);
print F
join("\t",$sukunimi,$etunimi,$opnumero,$emailOK,$email1,$email2,$paaaine,$ryhma)."\n";
close F;

print <<XXX;
Content-type: text/html; charset=ISO-8859-1

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fi" lang="fi">
  <head>
    <title>Ilmoittautumisen tallettaminen</title>
  </head>
  <body>
    <pre>
Sukunimi: $sukunimi
Etunimi: $etunimi
Opiskelijanumero: $opnumero
Haluan sähköpostia: $emailOK
Sähköpostiosoite 1: $email1
Sähköpostiosoite 2: $email2
Pääaine: $paaaine
Ryhmä: $ryhma
    </pre>
  </body>
</html>
XXX

exit 0;

#------------------------------

sub virhe {

  my ($viesti) = @_;
  print <<XXX;
Content-type: text/html; charset=ISO-8859-1

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fi" lang="fi">
  <head>
    <title>Ilmoittautumisen tallettaminen ei onnistunut</title>
  </head>
  <body>
    <pre>
Virhe: $viesti
    </pre>
  </body>
</html>
XXX

    exit 1;
}
    

