#!/usr/local/bin/perl
#
# CGI-script for mottak av NIK-98-registrering
#

  require "cgi-lib.pl";


# Epost-adresse for skjemaet

$RECIPIENT = 'nik98@hia.no';

# Programfil for sendmail

$SENDMAIL = "|/usr/ucb/mail -t";

# Filen der data skal lagres

$filename = "~nik98/reg.txt";


$tid =(time);
$klokken=localtime($tid);



 &ReadParse (*values);

# Sjekk om skjemaet er fylt ut riktig:

if ((! $values{"Navn"} ) ||
    (! $values{"Institusjon"} ) ||
    (! $values{"Adresse"}) ||
    (! $values{"Telefon"}) ||
    (! $values{"E-post"} ) ||
    (! $values{"Betalt"}) ||
    (( $values{"Enerom"} eq "Nei") & (! $values{"Romkamerat"}))
   )
{

    print "Content-type: text/html

      <head><title>NIK-98: Feil i påmeldingsskjema</title>\n";
    print "</head>\n";	
    print '<body BGCOLOR="#FFFFF8" link="#ee0000" vlink="#ab1b55">';
    print "\n";
    print "<center><b><h1> Fyll ut feltene ! </h1></b></center>\n";
    print "<br>\n";
    print "<hr>\n";
    print "<br><br>\n";
    print "<b>";
    print "Du må fylle ut feltene : Navn, Institusjon, tlf.nr., din epost adresse. \n Hvis du ønsker dobbeltrom, må du i tillegg fylle ut feltet for romkamerat. \n";
    print "</b>";
    print "<br><br>\n";
    print "<hr>\n";
    print '<center><b><a href ="http://www.krs.hia.no/~rolfn/nik98/registrering.html">Tilbake til registrerings-skjemaet.</a></b></center>'; 
    print "<br>\n";
    print '<i><font size="-1">Siden ble sist oppdatert 16.09.1998 av <a href="mailto:Rolf.Nossum@hia.no">';
    print 'Rolf Nossum</a></font></i>';
    print "</body></html>\n";
    exit 0;
}

# OK da er dataene sjekket


open (OUT,$SENDMAIL);

print OUT "To: ", $RECIPIENT, "\n";
print OUT "From: ", $values{"Navn"}, " <", $values{"E-post"},  ">\n";
print OUT "Subject: Konferanseregistering via WWW\n";
print OUT "Mime-Version: 1.0\n";
print OUT 'Content-Type: text/plain; charset="iso-8859-1"';
print OUT "\n";
print OUT "Denne meldingen var sendt med skjema via WWW.\n";
print OUT "--\n";


print "Content-type: text/html

      <head>
         <title>NIK-98: påmeldingsskjema mottatt</title>
      <\head>

      <body BGCOLOR='#FFFFF8' link='#ee0000' vlink='#ab1b55'>

      <center><h1>Påmelding sendt til NIK-98</h1></center>

      <hr>

      Du er registert med følgende data, som er oversendt 
      arrangørene av NIK-98. 
     <P>

      Du vil få bekreftelse i løpet av noen dager.

<hr>";

# open file in append mode

open (FILE, ">>$filename");
flock (FILE,2);

foreach $param (@values) {
    $param =~ tr/+/ /;
	($id,$val) = split(/=/,$param);
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

    # Fjerner vognretur-, tabulator- og linjeskift-tegn fra feltene
    # før de legges inn i datafilen

    $val =~ tr/\r\t\n//d;
    if ( $id ne "valg" ) {   # vi vil ikke ha "Send skjema" skrevet noen steder
	print "<br>$id -->  $val\n";
	print OUT "$id -->  $val\n";
	print FILE "$val\t";      # feltene i en post skilles ad med tabulator-tegn
    }
}
    
print FILE "$klokken\n";
flock (FILE,8);
close (FILE);

print OUT "$klokken<P>";
close (OUT);


</body>";                    
