#! /usr/bin/perl -T

$ENV{PATH} = "/bin:/usr/bin";
delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' };

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

print header();
print start_html(-encoding=>"utf8",-title=>"Anmeldung zum Seminar \"Sprache und Recht\" 2005");
my $name = param('name');
my $matrikelnummer = param('matnr');
my $hauptfach = param('fach');
my $fachsemester = param('fs');
my $email = param('email');
my $zp = param('zp');
my $step = 1;
if (defined param('step')){$step =  param('step')};
die unless ($step =~ /^\d$/);

my @params = (\$name, \$matrikelnummer, \$hauptfach, \$fachsemester, \$email, \$zp);

my $invalid=0;





# if ($step < 2){
#     foreach $p(@params){
# 	${$p} = "";};
# };

if ($name =~ /^([\s\w\-\.]+)$/s){
    $name = $1;
}
else {
    $name="";
    $invalid++;
};

if ($matrikelnummer =~ /^([\d\s]+)$/s){
    $matrikelnummer = $1;
}
else {$matrikelnummer="";
      $invalid++;
  };

if ($hauptfach =~ /^([\s\w\-\.]+)$/s){
    $hauptfach = $1;
}
else {$hauptfach="";
      $invalid++;
  };

if ($fachsemester =~ /^([\d\s]+)$/s){
    $fachsemester = $1;
}

else {$fachsemester="";
      $invalid++;
  };

if ($email =~ /^\s*([\w\-\.]+@[\w\-\.]*)\s*$/){
    $email = $1;
}

else {$email="";
      $invalid++;
  };

if ($zp =~ /^(\w*)$/){
    $zp = $1;
}
else {$invalid++;};


if ($invalid){
    if ($step >= 2){
	Delete_all();
	print start_p();
	print h4("Eingabe(n) mit ung&uuml;tigen Zeichen:"),
	end_p(),
	start_p(),
	h3("Nochmal:",br,br),
	end_p();}
    else{    
	Delete_all();
	print h3("Anmeldung Seminar \"Sprache und Recht\" 05",br,br);};
    print
	start_p(),
	start_form(),
	start_table,
	Tr(td("Name"),td(textfield(-name=>'name',-size=>'30',-value=>$name))),
	Tr(td("Matrikelnummer"),td(textfield(-name=>'matnr',-size=>'30',-value=>$matrikelnummer))),
	Tr(td("Hauptfach"),td(textfield(-name=>'fach',-size=>'30',-value=>$hauptfach))),
	Tr(td("Fachsemester"),td(textfield(-name=>'fs',-size=>'30',-value=>$fachsemester))),
	Tr(td("e-Mail"),td(textfield(-name=>'email',-size=>'30',-value=>$email))),
	end_table;
    if ($zp eq "yes"){
	print p(input({-type=>'checkbox',-name=>'zp',-value=>"yes", -checked=>"checked"},"Meine Zwischenpr&uuml;fung habe ich bereits bestanden"))}
    else 
    {print p(input({-type=>'checkbox',-name=>'zp',-value=>"yes"},"Meine Zwischenpr&uuml;fung habe ich bereits bestanden"))};
    print
	hidden(-name=>'step',-value=>'2'),
	p(submit(-name=>'Abschicken')),
	end_form(),
	end_p();}
else{
    print h3("Vielen Dank f&uuml;r Ihre Anmeldung!"),
    p(em('Um Doppeltanmeldung zu vermeiden, benutzen Sie bitte nicht die "Zur&uuml;ck"-Taste Ihres Browsers!')),
    p('Zur&uuml;ck zur ',a({-href=>'http://www.coli.uni-saarland.de/courses/spracheundrecht05/'},'Seminarhomepage'));
    open(LOG,">>./angemeldet/anmeldung.log") or die "Kann Logdatei nicht oeffnen!";
    my $today = localtime(time);
    $today =~ s/\s/_/g;
    $today =~ s/:/-/g;
    print LOG "$today\t$name\t$matrikelnummer\t$hauptfach\t$fachsemester\t$email\t$zp\n";
    close(LOG);
};

print 
    br(),hr,
    p(span({-style=>'font-style:italic'},"Bei Problemen mit diesem Formular wenden Sie sich bitte an ", a({-href=>'mailto:stwa@coli.uni-sb.de?subject=Formular-Anmeldung'},"Stephan Walter."))),
    end_html();