#!/usr/local/bin/perl
######################################################################

# Initsiering
######################################################################
require "/net/www/share/cgi-bin/cgi-lib.pl";
$DEBUG=0;

# Initsiering av html-filen
######################################################################
 print &PrintHeader;


# Innlesing av variabler
######################################################################

&ReadParse;### Read the GET or POST data into %in

if ($in{"DEBUG"}) {
  print "<pre>\n<hr><b>DEBUG INFORMATION</b>\n\n";

  print "ARGUMENTS:\n----------\n";
  print "ARGC                 = '$#ARGV'\n";
  foreach $e (@ARGV) {
    printf ("%-20s = \'%s\'\n", "ARGV", $e);
  }

  print "\nENVIRONMENT VARIABLES:\n----------------------\n";
  foreach $key (sort keys(%ENV)) {
    printf ("%-20s = \'%s\'\n", $key, $ENV{$key});
  }

  print "\nThe decoded arguments:\n----------------------\n";
  foreach $key (sort keys(%in)) {
    printf ("%-20s = \'%s\'\n", $key, $in{$key});
  }
  print "<hr>\n</pre>\n\n";
}


# Slutt på innlesning av variabler.
######################################################################


# Do's and dont's
########################################################################
# if (!($in{"forel"}) && !($in{"ovelser"}) && !($in{"ellers"}) && !($in{"positiv"})) {
#   print "<h2>Skriv noe ...</h2>\n";
#   exit(0);
# } 

# elsif (!($in{"affiliation"})) {
#   print "<h2>You must give me the name of your department.</h2>\n";
#   exit(0);
# } elsif (!($in{"e_post"} =~ /..*@.*\..*/)) {
#   print "<h2>\"$in{\"e_post\"}\" ";
#   print "is definately NOT an email address!</h2>\n";
#   exit(0);
# }


# Send beskjeden til webmaster.
########################################################################
$ADM="michal\@ii.uib.no";
open(MAIL, "|/usr/lib/sendmail -t -fmichal\@ii.uib.no")
  || die "Message not submitted, server error!\n";
print MAIL "To: $ADM\n";
print MAIL "Subject: i120-klage\n";
#print MAIL "From: webmaster\@ii.uib.no\n";
# print MAIL 
#   "From: webmaster\@ii.uib.no (WWW mail gateway)\n"
#   ."Subject: i120-klage\n"
#   ."To: michal\@ii.uib.no \n";
#  ."Cc: eivind\@ii.uib.no \n";
$msg =
#  ">From: $in{\"e_post\"} (WWW mail gateway)\n"
  ">Klager ang.: \n\n"
  ."FORELESNINGER:\n $in{\"forel\"}\n\n"
  ."GRUPPER:\n $in{\"ovelser\"} \n\n"
  ."GENERELT:\n $in{\"ellers\"}\n\n"
  ."POSITIVT: $in{\"positiv\"}\n\n"
#  $msg .= "REMOTE_ADDR...: $ENV{\"REMOTE_ADDR\"}\n"
#  ."REMOTE_HOST...: $ENV{\"REMOTE_HOST\"}\n"
  ."\n";

print MAIL " \n";
print MAIL "$msg";
close(MAIL);

print "Klagen sendt\n"
# print "<pre><hr>\n" .$msg;